探検

Excel VBA 質問スレ Part76

■ このスレッドは過去ログ倉庫に格納されています
2022/05/01(日) 02:23:41.78ID: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
2022/05/01(日) 10:10:19.02ID:Pk0oKD+E0
２げろ
3デフォルトの名無しさん (ｽｯﾌﾟ Sd7f-TUas)
垢版 |
2022/05/01(日) 14:46:30.73ID:q0kLnjNbd
Excel使い方すらわからない人はお断りです
Excel VBAが何かもわからない人もお断りです
4デフォルトの名無しさん (ﾌﾞｰｲﾓ MMcb-LnX+)
垢版 |
2022/05/01(日) 16:08:24.73ID:CXxh8/QkM
我々の承認欲求を満たしてくれる質問お待ちしてます
5デフォルトの名無しさん (ﾜｯﾁｮｲ df4f-bbcD)
垢版 |
2022/05/01(日) 17:04:11.22ID:PgWgEC/y0
向こうのスレ消化してから書き込めカス共
2022/05/01(日) 19:54:56.03ID:Om3L9uk+0
前スレ終わってないのに立てる >>1 が悪い
2022/05/01(日) 21:27:37.77ID:geOevaoi0
>>6
終わってから立てたらスレの連続性が途絶えるだろ
考えて物言え知恵足らずが
2022/05/01(日) 21:39:32.49ID:Rd1MW2220
レス古事記の相手すんなよ...
2022/05/02(月) 19:28:34.96ID:MoQSVCv50
過去にもしばらくスレ立て放置プレイされた事あったぜ
2022/05/02(月) 23:18:57.97ID: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

繰り返し完了
2022/05/02(月) 23:38:34.90ID: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.61ID:F3b8ltuB0
先生方教えて！
エクセルを1枚1枚開いてvbaによって加工したい場合、
マクロの表示からそのvbaを選ぶのが一般的なんでしょうか。

FileDialogをつかって複数エクセルを一気に加工するほうが
自分は楽なんですが契約社員にはわかりづらいそうで。。
■ このスレッドは過去ログ倉庫に格納されています
ニューススポーツなんでも実況