[過去ﾛｸﾞ] Excel VBA 質問スレ Part80 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
228: 2023/12/03(日)06:53:42.28 ID:xZHPSaOR(1/2)調 AAS
>>200
そもそもintって何？
データ型は正確に書かないと
234: 2023/12/04(月)15:18:26.28 ID:+hRuE00u(1)調 AAS
skip,endif,next の位置関係を省略すんな
236(4): 2023/12/04(月)16:43:57.28 ID:Nbpgvbo/(2/3)調 AAS
質問パクったわけではないですが確かに似てますね
省略しないと以下になります
処理の内容は同じです
■うまくいく方
For Each rng In Range(Cells(3, 7), Cells(m, n))
If rng.Column <> 9 Then
If rng.Value = "-" Then
dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value
dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value
j = j + 1
End If
End If
-----------------------------------------------------------------
■すべてスキップされてしまう方
For Each rng In Range(Cells(3, 7), Cells(m, n))
If rng.Column = 9 Then
GoTo skipCol
If rng.Value = "-" Then
dataEx.Cells(j, i) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(rng.Row, 3).Value
dataEx.Cells(j, i + 1) = ThisWorkbook.Sheets(dataEx.Cells(1, i).Value).Cells(2, rng.Column).Value
j = j + 1
End If
skipCol:
End If
410(1): 400 [age] 2024/01/21(日)12:07:31.28 ID:FTr5VFHF(1)調 AAS
https://i.imgur.com/h1EsLS7.jpg
https://i.imgur.com/QL7Cbdy.jpg
ここまで作った。 ほめて〜
423: 2024/01/24(水)13:07:54.28 ID:4H3THdR1(1)調 AAS
>>417
意味不明だな
Win95はメモリ8MBでも動作するように設計されたOSだが64bitアプリはサポートしていないぞ
459: 2024/01/29(月)10:08:59.28 ID:eJ6L0Jkg(1)調 AAS
>>451
改修できないのは能力不足なだけでは
479: 2024/02/10(土)12:07:45.28 ID:oVCg53lr(1)調 AAS
プロパティウィンドウで何か設定イジったとか？
560: 2024/02/22(木)07:57:58.28 ID:3bwZ9Td1(1)調 AAS
ブリブリブリリアント
605: 2024/02/26(月)17:34:28.28 ID:1Vk9jr6+(2/3)調 AAS
自論に反論 ってもんじゃねーだろ バカアホ老害と、見ず知らずのアカの他人から真実を指摘されたから
じゃあってんで倍返ししてただけだ なんだ？当人か？
設計がおかしいっつーのは初手の頃から指摘してる 初っ端にトヨタをドロップダウンで選択して？該当するシートの
商品リストを引っ張って来る？ 一品一葉の納品書なら兎も角、扱い品目は食品だって後述し出してる
それだと複数明細がある納品書を想像するのが一般的だろ 一品ごとに納品書書き直してたら手間が掛かってしょうがない
一行目はそれで引っ張れても、二行目以降はホンダや共通をドロップダウンし直すのか？
幸い各明細の左端のコードで複数シートから引っ張れる数式をご教示賜ったようだが、パフォーマンスはどうなんだ？
1シートから検索するのと複数シートから検索するのじゃ複数倍面倒だ 1秒で返るデータが複数秒掛かるようなもの
ま、それが許容できるレベルだったとしても、今度は日常の運用でメンテナンスに難儀する
商品の増減の都度、アチコチのシート探さなきゃいけなくなる うっかり間違ったシートに記入して、当人が気付かずに
居たりしたら、全く別の品目引っ張って来たり該当ナシ判断されて改めてマスタ登録し直したり ゴミマスタに成り果てる
今のうちにマスタ整理しなさい 付け焼刃で継ぎ接ぎシステムなんか作られた日にゃあ、現場の人間が大いに迷惑する
そおゆう老婆心だ 二度手間三度手間を予想できるだけに、ちゃんと設計しなさいと忠告してる
基本のキを疎かにしてたら、しっぺ返し喰らうのは開発した本人なんだから おまえら外野には無関係なんだろうけど
759: 2024/03/26(火)07:44:21.28 ID:6wvSwoRo(1)調 AAS
>>757
取りやめになったよ
ブログでの発言がソースだろ？
そのブログで開発中止、
openpyxlやxlwingsといった優れたアドオンがあるからそっち使ってねとも書いてたろ
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.069s
