-1
Excelで長い数式を持つ列を入力するコマンドボタンを作成しようとしました。ここ は公式です：長い数式の列を塗りつぶします。
=CONCATENATE(IFERROR(IF(ISNUMBER(SEARCH('Tagging Inputs'!$C$4,'Template Ideas'!D2))=TRUE,VLOOKUP('Tagging Inputs'!$C$4,'Tagging Inputs'!$B$12:$C$38,2,FALSE),""),""),IF(AND(ISNUMBER(SEARCH('Tagging Inputs'!$C$4,'Template Ideas'!D2)),OR(ISNUMBER(SEARCH('Tagging Inputs'!$C$5,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$6,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$7,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$8,'Template Ideas'!D2))))=TRUE,"; ",""),IFERROR(IF(ISNUMBER(SEARCH('Tagging Inputs'!$C$5,'Template Ideas'!D2))=TRUE,VLOOKUP('Tagging Inputs'!$C$5,'Tagging Inputs'!$B$12:$C$38,2,FALSE),""),""),IF(AND(ISNUMBER(SEARCH('Tagging Inputs'!$C$5,'Template Ideas'!D2)),OR(ISNUMBER(SEARCH('Tagging Inputs'!$C$6,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$7,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$8,'Template Ideas'!D2))))=TRUE,"; ",""),IFERROR(IF(ISNUMBER(SEARCH('Tagging Inputs'!$C$6,'Template Ideas'!D2))=TRUE,VLOOKUP('Tagging Inputs'!$C$6,'Tagging Inputs'!$B$12:$C$38,2,FALSE),""),""),IF(AND(ISNUMBER(SEARCH('Tagging Inputs'!$C$6,'Template Ideas'!D2)),OR(ISNUMBER(SEARCH('Tagging Inputs'!$C$7,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$8,'Template Ideas'!D2))))=TRUE,"; ",""),IFERROR(IF(ISNUMBER(SEARCH('Tagging Inputs'!$C$7,'Template Ideas'!D2))=TRUE,VLOOKUP('Tagging Inputs'!$C$7,'Tagging Inputs'!$B$12:$C$38,2,FALSE),""),""),IF(AND(ISNUMBER(SEARCH('Tagging Inputs'!$C$7,'Template Ideas'!D2)),ISNUMBER(SEARCH('Tagging Inputs'!$C$8,'Template Ideas'!D2)))=TRUE,"; ",""),IFERROR(IF(ISNUMBER(SEARCH('Tagging Inputs'!$C$8,'Template Ideas'!D2))=TRUE,VLOOKUP('Tagging Inputs'!$C$8,'Tagging Inputs'!$B$12:$C$38,2,FALSE),""),""))
私はこの
lrow = Range("AD2", Range("AD" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Count
Range("AD2:AD" & lrow).Formula = "=CONCATENATE("......)"
のようにコマンドボタン
Private Sub CommandButton2_Click()
Range("AD2").Formula = ""
Range("AD2", "AD" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Sub
あなたの質問は何ですか？ –
データを表示したかどうか、データで達成しようとしているものが小さい方を提案できるかどうかがわかります。 FWIWも '= TRUE'は必要ありません。それが本当であれば最初のことを理解する。 –