Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Добавление в строку данных по условиям
 
#1
30.10.2017 15:09:13
Подскажите, возможно уже есть какой-то готовый макрос по заполнению в одной строке нескольких данных через запятую по условиям.
Сделать фнкциями ЕСЛИ не получается...
 
 
 
#2
30.10.2017 15:37:43
Приветствую Вас любезный. Попытался понять  из прикрепленного файла что куда поставить и что с чем сравнивать, но так ничего и не понял. Предлагаю Вам объяснить все более подробно, доходчиво и логично, без лишних самододумываний.  
Изменено: amibus - 30.10.2017 15:38:12
 
 
 
#3
30.10.2017 15:49:13
amibus, здравствуйте, в ячейке G2 должен отрабатывать макрос по типу функции =ЕСЛИ(И(G3>0;G4>0;G5>0;G6>0);"I,II,III,IV";ЕСЛИ(..... и т.д., очень много придется расписывать условий, при которых ячейка G2 заполнится разными значениями в соответствии того есть ли данные в каком-либо из кварталов.
Надеюсь более менее понятно расписал. Заранее спасибо за советы.
 
 
 
#4
30.10.2017 15:59:59
Добрый день.

Сделал огромнейшей формулой..но вроде работает (см. вложение)
Изменено: Гаубица - 30.10.2017 16:06:57
 
 
 
#5
30.10.2017 16:07:39
Вариант для кварталов:

=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(СЦЕПИТЬ(ЕСЛИ(G3>0;"I";"");" ";ЕСЛИ(G4>0;"II";"");" ";ЕСЛИ(G5>0;"III";"");" ";ЕСЛИ(G6>0;"IV";" ")));" ";", ")

Изменено: Bema - 30.10.2017 16:07:54
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#6
30.10.2017 16:10:59
Гаубица, огромное спасибо, действительно то, что нужно. Я думал это нереально сделать формулой, сейчас изучу, что и как.
 
 
 
#7
30.10.2017 16:15:42
UDF
Код
Function СЧЕТКВ(rng As Range)
Dim cl As Range
For Each cl In rng
    If CInt(cl) > 0 Then СЧЕТКВ= СЧЕТКВ & " " & cl.Offset(, -6)Next cl
End Function
 
 
 
#8
30.10.2017 18:30:22
Друзья. Крайне необходима Ваша помощь: необходимо относительно столбца "G"(Остаток %) поставить формулу в строке "P" (% скидки).
Условия:
[img]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAALYAAABtCAYAAAAMCZvoAAAR3UlEQVR4Ae1dv2/cyBX+Nrh/ICl9Z/iHRJ9cqFDhHKTijBSL3CpX2MBBQlQYEGysCgOCtpALwVYhGypOxS4MuNBCgoErFFg4QC4u2gQuAqWQCiFQocKydn3WxRe3yX+wweNwZodD7g9yOVySOwJskjPDN+9783H4ODtvBk3n77zxnp9GdtQhM4hyOuvXKTsIRr+yOnTTIdNP97Bpqn6/gfkzFsigBQyxM9ioBhIA6vrpYI1ct490HtU/HTKD6Kazfp2yg2D0K6tDNx0y/XQPm8b1465MjnyTP/0xj/PGe/tBz+Vyrgee8b6VZPKNfVpssDtG+RKD5MeN0RH89e9vbH1yxHBShgjMlTJkppdW64/bhack3T6kp6xj2vSXdScsvehP91A5fq+H2DyDN6I5ps8CcgOnT/vwGsu4P+Ni1KeCp5tj+izw21t/xt8a6dM7jMbfjLK7VP66RkVMbx3GtOaeJFrARewkKmh0MhYIYwFD7DBWS9U9DezN5FCw6N8Cjl261/DcmsLehSsxdReqG0IABLFT74Y0KpjK5ewvYwJK/6YqPo6mWm6qAlaqgcqU+36SsVBLXTu7FT7YQPXGPmr1JrZXTrHzsmWT48fTwNYh7l5135LGK5W/gtgExo/5qQBZW0DOKmF8v2kP9xDIZr0MlCw3ue1yu5ipt8rVZ3ZxT3oAirKMZhObhVRYoK2Sn34+FXmXro/j7H3dvv70cgqr2MfibZGdqRMXsdOJrIHK0yomy3U3CUeXcLhfxFFpA6zTrWFhuori/iGWnC9pwju6dIhDOSGdRmirNZEZ5+/wCQCRfGzEAi4q2Fgfx9qzLk/tRQUl24VhrszzA6qGuTbsnK5ld0bNA+gBKsxU7Pq5ksePuWvkHB/z16J6f3fZuakKpObkVbRcEZGStpPGT9g9msTMtz7wCndQxCne0du38Q6nKOJOl7ZMG/yu+t5eRhEl3LdyuL8+jrl5YO9RCde2NnGr4801PM+XgJW67cbU6vvACzdB6fZPL5+iNjGDr/zcGfsBOvKtZcyRu70y6ZsfRHbNnhXiFpORcexxfOnDawb1CG/tt+9b+JvYbZDsXY3i7m4Tdx1gtgtCPvcV6o1LOANAJCvPKwY8eI0ailgT6QUs7lKv0PLRqbf+cf0Iha1DXPIYrsEeoNkizs7lzAZ+PQeu5ZX65CL2eY+y/81uVN1olyuiOuCeuhKb4PTKvvpN4qblmzF8idSD1maw/cxyeu0mqCe+tn7Pf2Rk4iY+b2Ol2gNyI+jjs+nrpx8/tuyP1sW8KqCOjyeTuHxFTW9dh5fdkuEidis5RWejX2IcvFdW9K69RhVOb267JVW85u6cUjT7l+Ra7OLr75ec3pWTy8LliTboT97iP22yClv0UNRx+UUOJWmkxS7+ZgGr52Vs+/nw9CZo57o4dYWWLemafmKjgOXyJKrTU5AGNwAa1pumj8plMLfav1yjMuUeOZGMk6VTGtr7sPKDNLR3hI+/EELqQcfxheoj376DAqrS8GANz5WPQGAUdx8Wcba+4Rofr706RVE8QLIVG9h7UUXhIX+45Dz1vHfZBWVGKkkSPnZ63RA2stH8kob8cigJ+0yiXG96RkDqmIIll5sso35I/p7sOwoh2Tg54D0o92sZaQoPcvaIEfnYix6kBSy+KaOUt1BYp8xJFN+QL63YiT5OJyzsvFzGrXkmZMz1AHHBNOJhoXoCwKmX5wDTKFAPv/ttK4nOepbNZjPKfraZ3ec2ZSaufvf7Oezs7CQMCxH7HvC9zw9CNKz4CFje7aUnd8OiSVBEaOqY+ZFKZMAVcQM1V8YCZAHTY2eQB8nssfUYmk9btcksBRqIHlv2T/SoYKQaC+izgMpfEfNYf/+zqJUmqps/Y4E0WOC/x38Raloj170xj5TLR0aiir6YmxvsR4zO+nXKFi0V8kSHbjpkhoTnuo27IrzH5hwWroirtLkwFkiRBTipZZUFsTnT5UxzbiyQFguo/BXEJgB+zE8LMKOnsYBsARex5QxzbiyQZgukiNhsEnqWY/f8iTSMuINhVt0QsqMgdmLcEN+oDQAZid2zI0poroo6Iy6LuA8WnCBiJWKGBxVHiFnlryA2sdyP+f69iK5UJWpjq4jaAxZFnf7YPQpzymEDT1D0TBPNKO7bm070DU1xZf/WZgHM3sEtCimTI3QibmsXsXXRtWe5TtTGHI/asGd3semVfcXu9ayAzoIFLNabKM/7RD1kGrdk04sKdl5NovigAGjGLKatStUP7NTulSdmPFEbH35uAPPLKL6wcN+iialFrNWBvRmK3Wt2id0bGJyeKx4W3MdbJZzN7qN8Ffj0j1MgorZW3RAyvCD24N0QPx6M4osbPD1k7B6/PVXHLOKu4egVUNhqF03dH2bir0xwlysiZySDByzw06NL0Ng9j4CkJ2QPN4tmL+O7tuuYRItZ9NhJaGrbj3bi7OSo52vXeeQHaenE7olojh5i95IAroMO2cftjTjXjdnVY3ewfTxZTpzdkb0wizPEd1LEpPSUB47di0fz/mrJOG67t4a7HREhZj83WvTYyXBDeJxdzgnAZXF2YmGXULF7/XEuurtpuG/aWZUKwAmLJWRremQbN609QnGQoh1to0aLWeWviKChujjzzbTV7nRO6jRO0lyHbjpkdrdy9xJm2mp3G5kSGbJAsnzsDBnWQInPAqobQjULYnM3JD51TE3GAtFZQOXvZxTrSLFi9EfMVwv0WzX5Zln9yzI2vzZLIl6KeeScJR7z2N3P5As/MP2mDXLhFt0NMUhsndpFF+4k4v1mdEd0yHInLVyRToYyecYCSbYA77FlHQWx/RxwuaA5NxZIsgVU/gpik9J+zE8yGKObsUA7C7iI3a6QSTcWSJsFUkTsYHFwaWuI9voOI+5gmFU3hGwpiB23GzJUsX8Oazlm34DkCOP/2j8kcefIBFV3CIO9e5l3V7Jw8a0qfwWxCbIf86M3xRDG/tlGrOFH2v9FxP5VsSq2gdMb/xd9GwaTyLbecOIexfYdejG7iB1M3bClhzX2j3bdai1s/vnIpNh/UXf8X9iW0nqfiXkEshfzyCbe01ROCqjIeswj7QLG9rRi05Bpi+soMatuCD2QCZuPrfYR/cXBqdIGfk3rbDyoMjVm91Hj0fgexbKC2xunej+/gC/qm56AbdqoqZ/4VtWNdrkifsz32DzWhGjj4GJV3a8yaZ2N7ZGnKPCFYzxlM4bbwXdp/om9E5mIkHLhjhazi9iuegZwIcfBydX7xjyK7dbSGfN46Q8zGMMpfr0Ahgb3xTt8AGsv3ZgTRewo4+DkByMR5zScJ0ZBaF2NXZzB2V8xwvi/RGB1lDh+zFbx4jrZ64rwzUsjxKy6IVSf8LHjc0OGNPbv6rf4+txCQSwERR9Sm04cYLTxf5xIgz7eyo9jNZ+D81UBTNBejnxkKFrMxF+Z4CLmkWfQ0cQ8dqcETQ1N4jRO0lyHbjpkdrdy9xJmn8fuNjIlMmSBDj62+nPogrNftpru/FTq2Wc7mVY6fqwsaSv5vbTt9N6MnM8xJxNLd61UPGpbqfnpxOvnRgtiy/4Ja2AL1Rv7YvnX7ZVTrNrDU2xskpaFZUvCOmWE79Td3IMuQWt5kP7bK5OSKtTI7TBLxVJ12qmtsoXXzV9AxDxSWI1g/sVP+OdJEWu7rQUE7THI9af28NStq723rq4wpd41kEuysdJreXnJNCc/BOZkYZNx9nCeEbzqPo+dYx5/eYszj20sXJ5ga1UjALEH+YHlJV4dH0/4uLcCMATmQWJTtHddenG7stlFRvBSzCP9UY/dPebxyk2MeWzRgRSesglNoIk3fBxVVTGrmFWc/DpDeFU3hCAKH1u4IZRKY64T8rRKgC0DO4OvAvTW3IbJODaw96KKwkM+jqpolUnMCkb5MmN4XfyVf6AhzMR8VoA+Ovbx0ZpG4ZVjDdfgumyhNJw7H0onAMRMM673NArn7IeDbGHm+Nods9bGbpzil0d3Ml2xedOL3gyRcutZs7V6qEhN6klryqRLQ/qp+xFP6Y6Zl0zb0b+tsotXuCLJbyh5zFUdb6Wf6d3zEpKPp1cNhxF3MMyqG0KWFcT2c8B7NX3QcvHH/tFr9xA0wd3zd3UJ5VjG4OXGcn4okX8cymTMI32bTUl7PSodUoSYVf4KYlOD+zHfQ4S+E4Y39o9MN4j4v76bLLSAwbW1i9ih9Q90o4n985hLc/yfp77YEgbX1h0+HuNAP1yxf2RR3fF/cbRauDr0tbXqhpB+gtjxuCGOSYYu9o9ws3kbdx0TkO+pK/7PqSIZh5jamvgrE9zlisgZWq0y5LF/ZNs44/+0tmU34QNqaxexu+moI38oY//IkDHG/+lotzAy42zr+Ik9hLF/RIK44v/CEE7bPTG1tZ8bLXzs2NyQIYz9I+LEGf+njahBBcfY1ip/Rcwj6cyZb2Ieu7cgTQ1N8rTVqHVLKl6zz2N3rpoSGbJA/D52hoxnoCTDAqobQloJYnM3JBmqGi2MBYJZQOWviHkkMcR8tUAw8d7SPYUpeW9LRUqWsfk1QBLxmn0e/Vqqz7SoP9D6VEfcrouAScRr9nkUzW5OsmYBPy9D+Nh+DnjWDGDwZNcCKn8FsQmyH/OzawqDLMsWcBE7y0ANtuGyQIqILYdWKSFGMDGPmaKtHTLG25i1+/OD9ghVN4RKCmLH54bIBM1m7B+P8yu9bLhbo12MH5Vql3ewIdZQpPUTdySZx4+nga02sZzumtN1dXUJc7NVrFrEDwtVlPHd7c4QVP4KYtNtfszvLC58bjZj/8LtYQl64+RLgLNYZm2riNoDFnVv767lmJm2tzh7X7ev6OFZxT4WuzR4+BYa7J32chHOnpi1EMHWLmIPFgrtyPoaNRQxx3fTur2MorNeoL1nyfk7fHK2jxsbsexebmN9HGtiU8xBIwi3h2X6cPu8dal3FUtJUz49mOxBZzsRK8tjtHtDOUs5y66H/QYUst1vN+qMN1trpwoCDIzYFPunAmZ7/930bJVm7/NIJEcJ960c7q+PY24e2HtUwrUtvt2FwJTIk07YOuUhwbhdb92tomL3I1TzT3H5DduRd3sFqOa531zD80fAstMj03LOtRcVu9NShDid15GU7H67NZv7+Nf/ylI+OxXEjs8NYbF/tD41W6NaBqzq5937j923ic9f3rN9z8UrFfD9uD0+rSouUdcyNlUxOU+2V7pwFyT/n4XCsV3S7FXGJPfCjqw5eYv/qGag3ps6r1npoVHf6ihg83DJ40YLYpNM1QH31KMhYWhi/zy2a7OvoV2uTd5FBRu0H/szy3lbUeewj2vr97B34akggQnOMtTkTsoL6eRLPstWU9QRW4h/Ma9AmfC+1ZUSrVERNSO26yGJ/eu0r2GnvFY70Ct4F1+nen9LZ23ygwXbnVzjH4dvyt5lq98sYJUWC/X7fvLt3VuWojNXj+3O0nM1lLF/ZMpO+xp2ynOagYb2Pqz8IC3Txns/Wrfc2S9ST5OFlspHdkhAp2Wo7f0flVpqr05RFA+xlOnYqjXsWUP1qCQVYKci5jEuNyTbsX80CjDdWoH2xEJhHaA9b8rznfY17JRHo0W89+JbjIzi7sMiCs6SyCS/06q4nlaPKaGw9QQf8zmwQYsi1urO2uS3N7E2m8OqxXaAHFspo4C3Lq3GXA+xnMVtxWwLTGJp9Mh2o+XvRBHzSMSmDDqamEfZkP7nNDU0idM4SVsdugWTScN9Fj4+bGofZzf7PPrz06RmwAJyp8zh+PbYPLPfI38D9Csn7P0669cpOyxefp8O3YLJbKAyZeHtk6bvjydczyiOsl50Tn820ZvNZpMnqBVRAflPLdctn1fCZQS9v5v8bvk661frprrixqfqwOundDpvl8/bI0g+l83vVW07CPyyDrJ+hEvEPPL98YKAHQQYo19vnQ23k9zgMhHonP7SnE+6y/pbI9dtTDaXqcem3tsauW4f6TyqfzpkBtFNZ/06ZQfB6FdWh246ZPrpHiSNc5fukfWjdHu4j7gtb/7InuX+/9chM4hWOuvXKTsIRr+yOnTTIdNP96jSxDh2VAKNHGOBOC3AXS71wYv9l8c4QZu6htcC/wcroXyKagjGOwAAAABJRU5ErkJggg==[/img]Файл с исходными данными

Огромное Спасибо, а то я уже голову сломал
 
 
 
#9
30.10.2017 18:33:08
Условия СУПЕР :D  
 
 
 
#10
30.10.2017 19:01:34
Цитата
Lucyfire написал:
поставить формулу в строке "P"
А где такая строка? Вообще ничего не понял, да и эта тема не соответствует Вашей задаче.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
Страницы: 1
Наверх