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