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