[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
973: (ﾜｯﾁｮｲ 27b3-h4dw) 2020/12/11(金)02:32 ID:t8ktWZN00(1/2) AAS
>>945
D列がブランクかどうかを調べる必要があるので、転記列をE列、さらに作業列をF列として
C列はC2からデータ
D列はD2からデータ
E列はE2から =IF(C:C="なし",IF(D:D="",F:F,D:D),"")
F列はF2から =IF(AND(C:C<>"なし",C:C<>0),C:C,IF(INDEX(F:F,ROW()-1)="","",INDEX(F:F,ROW()-1)))
なし以外の文字列が最初にC列に出てくるまでは、とりあえずE列は空欄になる。
974: (ﾜｯﾁｮｲ 27b3-h4dw) 2020/12/11(金)02:47 ID:t8ktWZN00(2/2) AAS
>>971
それなら、C列を作業列として
A列にA2からデータ
B列はB2から =IF(A:A="",C2,"")
C列にC2から =IF(A:A="",C1,A2)
でB,C列をドラッグで、では？
975: (ﾜｯﾁｮｲ df42-D4Qg) 2020/12/11(金)07:09 ID:pv/aap0P0(1) AAS
創作系は怠け者に厳しいから
こうやったけどうまくいかないってのは直してくれるが１から作ってってのはなあ
976: (ﾜｯﾁｮｲ e701-1Ur4) 2020/12/11(金)08:01 ID:xHfuP7vB0(1/2) AAS
>>952
0以外の数値も文字列に含めて、空白を停止フラグにした
これであってる？
Dim LastValue
LastValue = "未入力"
Dim Row As Range
For Each Row In Range("A:B").Rows 'A:B範囲を一行ずつ
Dim AColumn As Range, BColumn As Range
Set AColumn = Row.Columns(1) '処理中の行の一列目をAColumn
Set BColumn = Row.Columns(2) '処理中の行の二列目をBColumn
省7
977: (ﾜｯﾁｮｲ e701-1Ur4) 2020/12/11(金)08:34 ID:xHfuP7vB0(2/2) AAS
>>971
ワークシート関数で、条件付きで最後にある値を取るのは面倒だと思う
Filter関数とVlookup関数でできなくはないけど
978(2): (ｽﾌﾟﾌﾟ Sdff-8+uZ) 2020/12/11(金)12:26 ID:A055qJ39d(1/2) AAS
ifのあとカッコで書けるのかしらなんだわ
979: (ｵｯﾍﾟｹ Sr1b-m1m7) 2020/12/11(金)13:05 ID:wz04rSM4r(1) AAS
974さんのやり方にinblankを付け足して解決出来ました
ありがとうございました。
980: (ﾄﾞｺｸﾞﾛ MM9f-1sNk) 2020/12/11(金)13:07 ID:5MdaedDCM(1) AAS
>>978
単に 式をカッコで包んでるだけ
A = B + 1
を
A = (B + 1)
と書くのと同じ
981(1): (ﾜｯﾁｮｲ 87ce-kNbH) 2020/12/11(金)14:46 ID:UAef87jg0(1) AAS
カッコも式の一部だから書くのは自由だけど処理上はまったく意味がない
たとえばこれでも別にエラーにはならない
If (((((a)) = ((b))))) Then
982: (ﾜｯﾁｮｲ 7f1f-m9Es) 2020/12/11(金)14:57 ID:7k+CWJkj0(1) AAS
zipファイルを解凍して別フォルダにコピー後にzipファイルと元の解凍ファイルをfso.deletefolderでまとめて削除するvba作ってるんだけどもなんでかzipファイルだけ削除できないんやがなんでや
983: (ﾜｯﾁｮｲ 7f68-kNbH) 2020/12/11(金)15:00 ID:g30meLDD0(1) AAS
解凍処理の方でまだ掴んでるとかは？
984: (ｵｲｺﾗﾐﾈｵ MM4f-by1m) 2020/12/11(金)16:18 ID:xfvmoUwoM(1) AAS
>>978
見やすくていいでしょ
おすすめ
985: (ｽﾌﾟﾌﾟ Sdff-8+uZ) 2020/12/11(金)17:17 ID:A055qJ39d(2/2) AAS
おう、マネささて頂きますわ
986: (ｱｳｱｳｳｰ Sa6b-EtKx) 2020/12/11(金)18:12 ID:f/nqGphBa(1) AAS
>>981
そんなにカッコつけるなよ
987: (ﾃﾃﾝﾃﾝﾃﾝ MM8f-JIxf) 2020/12/11(金)18:17 ID:YQ4SKnSdM(1) AAS
囲えるくらいの甲斐性を見せろよ
988: (ﾜｯﾁｮｲ 874e-pdMI) 2020/12/11(金)19:03 ID:RI9UvvOD0(2/2) AAS
FUCK (((((●)) = ((●))))) 凸 YOU
989: (ﾜｯﾁｮｲ 7fda-EtKx) 2020/12/11(金)20:45 ID:u1KAArwg0(1) AAS
ウンコ
990(1): (ﾜｯﾁｮｲ 67f1-k4Kn) 2020/12/12(土)12:26 ID:D0KYkpwQ0(1/3) AAS
Office田中の人生きてるの？
突然Youtubeの更新が止まって数ヵ月過ぎた。
991: (ﾜｯﾁｮｲ 7f68-kNbH) 2020/12/12(土)13:02 ID:cNsXl+Rv0(1) AAS
Excel関数のHyperLinkの処理を置き換え(APIHookのような処理)はどうすればできますか？
目的としてはHyperLink関数では一部のURLの表示が遅い(Excel自体のタイムアウト待ち？)ので
直接「CreateObject("WScript.Shell").Run URL文字列」の処理をさせたいのです
関数名はHyperLinkのままにしたいのでAPIHookのような処理ができればいいのですが
992: (ﾜｯﾁｮｲ 87da-orE1) 2020/12/12(土)14:44 ID:goTAsgOP0(1) AAS
またおまんこ
上下前次1-新書関写板覧索設栞歴
あと 10 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.021s