Excel VBA 質問スレ Part76

[1 デフォルトの名無しさん (ﾌﾞｰｲﾓ MMff-XZ6m) 2022/05/01(日) 02:23:41.78 ID:2t63WK/jM]

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part75
https://mevius.5ch.net/test/read.cgi/tech/1644384272/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[2 デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-l/ZD) 2022/05/01(日) 10:10:19.02 ID:Pk0oKD+E0]

２げろ

[3 デフォルトの名無しさん (ｽｯﾌﾟ Sd7f-TUas) 2022/05/01(日) 14:46:30.73 ID:q0kLnjNbd]

Excel使い方すらわからない人はお断りです
Excel VBAが何かもわからない人もお断りです

[4 デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcb-LnX+) 2022/05/01(日) 16:08:24.73 ID:CXxh8/QkM]

我々の承認欲求を満たしてくれる質問お待ちしてます

[5 デフォルトの名無しさん (ﾜｯﾁｮｲ df4f-bbcD) 2022/05/01(日) 17:04:11.22 ID:PgWgEC/y0]

向こうのスレ消化してから書き込めカス共

[6 デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-Nh0L) 2022/05/01(日) 19:54:56.03 ID:Om3L9uk+0]

前スレ終わってないのに立てる >>1 が悪い

[7 デフォルトの名無しさん (ﾜｯﾁｮｲ 6793-ow/s) 2022/05/01(日) 21:27:37.77 ID:geOevaoi0]

>>6
終わってから立てたらスレの連続性が途絶えるだろ
考えて物言え知恵足らずが

[8 デフォルトの名無しさん (ﾜｯﾁｮｲ df01-nj6J) 2022/05/01(日) 21:39:32.49 ID:Rd1MW2220]

レス古事記の相手すんなよ...

[9 デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-l/ZD) 2022/05/02(月) 19:28:34.96 ID:MoQSVCv50]

過去にもしばらくスレ立て放置プレイされた事あったぜ

[10 デフォルトの名無しさん (ﾜｯﾁｮｲ 0702-Nh0L) 2022/05/02(月) 23:18:57.97 ID:X95f3WhM0]

よろしくお願いします。以下の日本語で書いた部分に相当するような
繰り返し文ってありますでしょうか。

イメージしているのはwhile read line do done < test.txt
みたいなものです。

テキストファイルの変わりに「とある列の値が尽きるまで(空欄が見つかるまで)」、
繰り返し文内の処理を繰り返すような文です。

Range("B1").Select

繰り返し A列の値 = 空欄のセルが見つかるまで

ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste

ActiveCell.Offset(1, 0).Range("A1").Select

繰り返し完了

[11 デフォルトの名無しさん (ﾜｯﾁｮｲ 7fbb-sZ5+) 2022/05/02(月) 23:38:34.90 ID:hdDLukhc0]

>>10
すげーざっくりだけどやりたいことはこんな感じ？
やりたいことがあってるならもう少しちゃんとしたコードにはするけど
SelectとかCopy、Pasteは基本VBAで使わないので

Dim WS As WorkSheet
Set WS=ActiveSheet
Dim RngA1 As Range
Set RngA1=WS.Cells(1,1)

Dim i As Long
For i = 1 to 16384
　If WS.Cells(i,1).Value="" Then
　　Exit For
　Else
　　WS.Cells(i, 1).Value=WS.Cells(i, 2).Value
　End If
Next

[12 デフォルトの名無しさん (ﾜｯﾁｮｲ a763-PwpY) 2022/05/03(火) 10:09:18.61 ID:F3b8ltuB0]

先生方教えて！
エクセルを1枚1枚開いてvbaによって加工したい場合、
マクロの表示からそのvbaを選ぶのが一般的なんでしょうか。

FileDialogをつかって複数エクセルを一気に加工するほうが
自分は楽なんですが契約社員にはわかりづらいそうで。。

[13 デフォルトの名無しさん (ﾜｯﾁｮｲ df4f-bbcD) 2022/05/03(火) 10:15:31.86 ID:MA4dMZuw0]

一般的かどうかは分からんけど
ファイルダイアログを開いて
設定したパスをどこかのセルに設定しておいて
実行ボタンでそのセルを読みに行くほうが
複数のブックを読みに行く場合には親切

[14 デフォルトの名無しさん (ﾜｯﾁｮｲ bf8c-pWxw) 2022/05/03(火) 13:25:25.46 ID:xaGln49G0]

理解が十分でない契約社員には直感的にわかりやすい上記の方法
そのうち慣れて面倒になってきたら下記の方法（バッチ）
2つのアプローチを用意するのがいいかもしれませんね

コンピュータになれていなかったり入れ替わりが多い契約社員というところがポイントですね
私もＶＢＡを他人に提供することが多いから参考になるわー

[15 デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-l/ZD) 2022/05/03(火) 13:57:26.99 ID:nOtJseDM0]

Nextじゃなくて、Next iって書かなきゃあかんと言われたよ

[16 デフォルトの名無しさん (ｱｳｱｳｳｰ Saab-wueb) 2022/05/03(火) 14:12:22.20 ID:utR4VoxQa]

iが足りなかったからか

[17 デフォルトの名無しさん (ﾜｯﾁｮｲ 2701-XZ6m) 2022/05/04(水) 14:54:21.99 ID:Bmz10qTz0]

前スレ987で質問した者です。
アドバイスありがとうございます。
2019に変わる際にPCがwin7からwin10に変わり性能もアップしたのでVBA処理も早くなるかと思っていたのですがそのようなバグが出るようになりました。

自分1人で使ってる範囲では良いのですが複数が利用しているため質問させて頂きました。

PC性能があがりEXCELがついてこれてない可能性もありますね。

[18 デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-l/ZD) 2022/05/04(水) 16:13:00.23 ID:waxP/JpN0]

Excel板なら人間の性能を上げろって揶揄されるからな

[19 デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-Nh0L) 2022/05/04(水) 19:42:48.21 ID:3VW2nuLk0]

win7がwin10になったのとPCの性能は別だからな
古いPCのOSだけ変えたのかもしれんし

[20 デフォルトの名無しさん (ﾜｯﾁｮｲ 2701-XZ6m) 2022/05/04(水) 20:57:36.39 ID:Bmz10qTz0]

説明不足で申し訳ないです。
win7からwin10でPC変わってます。
個人的に所有しているPCではないので具体的なスペックはわかりません。