[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
963(1): (ﾜｯﾁｮｲ 7fbb-oPen) 2020/12/11(金)00:36 ID:2rJlNOe/0(1) AAS
=if(C1=″なし″,offset(C1,0,-1),″″)
こんな感じか
964: (ﾜｯﾁｮｲ 7f10-YTVu) 2020/12/11(金)00:37 ID:bQCq39tb0(2/4) AAS
スレッド眺めましたがまともに答えてる人ここはあまりいないんですね
失礼しました
965: (ﾜｯﾁｮｲ df4b-JIxf) 2020/12/11(金)00:41 ID:Lka/LNP10(1) AAS
まともな質問をしましょう
966: (ﾜｯﾁｮｲ dfb5-IxYp) 2020/12/11(金)00:44 ID:6Y+QuIqT0(1) AAS
流と関係ないけどここの人ってVBAはもちろんだけど関数も糞詳しいんだよなあ
VBAが関数の上位互換みたいなとこあるから当然か
SQRTとかここで教わったりセルの書式設定の代わりにVBAとかめちゃくちゃ助けてもらったわ
967: (ﾜｯﾁｮｲ 874e-pdMI) 2020/12/11(金)00:46 ID:RI9UvvOD0(1/2) AAS
上位互換じゃなくて全く同等。
lambda関数導入でチューリング完全になったからね。
968(1): (ﾜｯﾁｮｲ 7f10-YTVu) 2020/12/11(金)01:01 ID:bQCq39tb0(3/4) AAS
>>963
それだと、なしの横にりんごやみかんの文字列が表示されませんでした
969(1): (ﾜｯﾁｮｲ 477c-YTVu) 2020/12/11(金)01:47 ID:sk80MZxp0(1) AAS
シート関数でもVBAでもどっちでもいいけど組むにあたってどの部分で詰まってるわけ？
970: (ﾜｯﾁｮｲ 7f8e-EgOZ) 2020/12/11(金)02:06 ID:vUB51gLL0(1) AAS
>>968
馬鹿は死ねば？
971(2): (ﾜｯﾁｮｲ 7f10-YTVu) 2020/12/11(金)02:21 ID:bQCq39tb0(4/4) AAS
>>969
質問の仕方が下手ですいません
Ａ列 Ｂ列
文字列Ａ 空欄
空欄1 文字列Ａ
空欄1 文字列Ａ
文字列Ｂ 空欄
空欄2 文字列Ｂ
空欄2 文字列Ｂ
空欄2 文字列Ｂ
省9
972: (ﾜﾝﾐﾝｸﾞｸ MMbf-Yd2C) 2020/12/11(金)02:26 ID:egj/vl+4M(1) AAS
いつものあいつっぽい
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ファイルだけ削除できないんやがなんでや
上下前次1-新書関写板覧索設栞歴
あと 20 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.024s