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をつかって複数エクセルを一気に加工するほうが
自分は楽なんですが契約社員にはわかりづらいそうで。。
13デフォルトの名無しさん (ﾜｯﾁｮｲ df4f-bbcD)
垢版 |
2022/05/03(火) 10:15:31.86ID:MA4dMZuw0
一般的かどうかは分からんけど
ファイルダイアログを開いて
設定したパスをどこかのセルに設定しておいて
実行ボタンでそのセルを読みに行くほうが
複数のブックを読みに行く場合には親切
14デフォルトの名無しさん (ﾜｯﾁｮｲ bf8c-pWxw)
垢版 |
2022/05/03(火) 13:25:25.46ID:xaGln49G0
理解が十分でない契約社員には直感的にわかりやすい上記の方法
そのうち慣れて面倒になってきたら下記の方法（バッチ）
2つのアプローチを用意するのがいいかもしれませんね

コンピュータになれていなかったり入れ替わりが多い契約社員というところがポイントですね
私もＶＢＡを他人に提供することが多いから参考になるわー
2022/05/03(火) 13:57:26.99ID:nOtJseDM0
Nextじゃなくて、Next iって書かなきゃあかんと言われたよ
16デフォルトの名無しさん (ｱｳｱｳｳｰ Saab-wueb)
垢版 |
2022/05/03(火) 14:12:22.20ID:utR4VoxQa
iが足りなかったからか
2022/05/04(水) 14:54:21.99ID:Bmz10qTz0
前スレ987で質問した者です。
アドバイスありがとうございます。
2019に変わる際にPCがwin7からwin10に変わり性能もアップしたのでVBA処理も早くなるかと思っていたのですがそのようなバグが出るようになりました。

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

PC性能があがりEXCELがついてこれてない可能性もありますね。
2022/05/04(水) 16:13:00.23ID:waxP/JpN0
Excel板なら人間の性能を上げろって揶揄されるからな
2022/05/04(水) 19:42:48.21ID:3VW2nuLk0
win7がwin10になったのとPCの性能は別だからな
古いPCのOSだけ変えたのかもしれんし
2022/05/04(水) 20:57:36.39ID:Bmz10qTz0
説明不足で申し訳ないです。
win7からwin10でPC変わってます。
個人的に所有しているPCではないので具体的なスペックはわかりません。
2022/05/04(水) 21:05:48.55ID:hxvZ+FeqM
>>20
所有権の問題ではなく馬鹿だからわからないだけでは？
2022/05/04(水) 21:14:48.05ID:Bmz10qTz0
申し訳ありません、具体的なスペックが提示できないようではアドバイスも難しいですもんね。
これまで頂いたアドバイスでもう少し試行錯誤してみたいと思います。ありがとうございました。
2022/05/04(水) 22:17:07.14ID:hNQ/TBre0
数秒待たせればエラーに成らないなら、原因判明するまでは待たせる方式で
或いは
最終的に鳥瞰図が欲しいなら、数値データをDXFとして出力してjw-cadとかで描画とか
　　https://www.hakko.co.jp/javascript/soft011.htm　　作者に問い合わせしながら検討とかも

https://www.apptec.co.jp/technical_report/pdf/vol24/treport_vol_24-06.pdf　　
https://movies.woxikon.co.nz/excel-%E3%81%A7-cad-%E5%9B%B3%E9%9D%A2-%E4%BD%9C%E6%88%90
https://www.tipsfound.com/excel/05038
https://www.nichibun-g.co.jp/data/education/ict-education/archive/31/02.php
この辺は既にご承知かも　ぜんぶちゃんと目を通した訳では無いから抜粋ということで
グラフ機能を応用して鳥瞰図(風)にしてるってことかな
2022/05/04(水) 23:12:41.36ID:Bmz10qTz0
>>23
ありがとうございます。勉強になります。
今のところはエラーが出た際バッファーの時間を調整して対応しています。

とりあえずは動いているので良いのですが書き方としてどうなのだろうと思いまして…
もっとスマートに解決方法があればと思い質問させて頂きました。
アドバイス頂きありがとうございます。アドバイスを元に検討してみたいと思います。
25デフォルトの名無しさん (ﾜｯﾁｮｲ 2701-I+xZ)
垢版 |
2022/05/04(水) 23:54:17.61ID:4EN2kx2R0
>>24
むかしファイルメーカーから画像を取り出してExcelに貼り付けるマクロ書いたことあるわ。
クリップボードからExcelに貼るときにちょいちょいエラーが出て苦労した。
最終的にはエラーが出たところからリランできるようにして人力で最後まで走り切った。
継続的に長い期間使うマクロではなかったんでね。

クリップボードって入れ終わるタイミングが掴めないから処理が難しいね。
オレが調べた限りでは完全に技術的に解決する方法は見つけられなかった。
完全自動化は一旦棚に上げておいて、人間の補助も込みで運用を考えた方が現実的かも。
2022/05/05(木) 00:43:02.91ID:vV+xUHQR0
IEとセッション共有するにはどうすればいい?
2022/05/05(木) 08:37:44.29ID:GOdKeYkud
>>12
VBSでExcelファイルをドラッグドロップお薦め
Visible ＝ False でExcel画面すら見ずに処理が終わる
28デフォルトの名無しさん (ﾜｯﾁｮｲ df4f-bbcD)
垢版 |
2022/05/05(木) 09:37:07.07ID:yaYLZP+d0
>>26
まずIEはセッションなど持っていない。
そして今IE は使えないだろう？
強制的にEdgeにされるはずだ。
そしてそのEdge も当然セッションなど持っていない。
EdgeもIEもクライアントサイドのものだからだ。
セッションはサーバーサイドの概念だからな。

そしてサーバーサイドをEXCELのVBA で制御するとか意味分からん。
大人しくAsp.NetでもやっておくかせめてVBS で制御しとけ。
2022/05/05(木) 11:18:53.52ID:vV+xUHQR0
わざとだろうけど、EdgeでもCookieでもいいよ。
2022/05/05(木) 11:27:47.75ID:BSjK1PJD0
>>11
ありがとうございます。
2022/05/05(木) 16:06:00.40ID:FeY8iOM40
【ひろゆき】テレビ見る奴はバカ！？正論論破！
「テレビ見てる奴バカすぎだろ！！マジでバカしかいない！！」聞けば納得の正論！！

【ひろゆき】みなさん要注意です…テレビ見ると頭悪くなります
⇒テレビが馬鹿向けに作られてる衝撃の理由がヤバ過ぎる…

【ひろゆき】マジで「ざまあみろ」って思いましたね。
●●する奴にテレビ業界は破壊されました…ひろゆきがテレビがオワコン化した理由を話す

【ひろゆき】芸能界の闇！松本人志とか東野幸治はエクセルすら使えないんだよ？
ワイドナショーで言ってたｗ【教えて！ひろゆき先生/切り抜き】

【ひろゆき】なぜテレビは面白くなくなったのか？
その理由をひろゆきとひげおやじが分析する【切り抜き/論破/TV】
2022/05/07(土) 10:41:14.26ID:NJT6jW780
Sub test()

Dim high As Long
Dim str As String
Dim num As Integer

'a
str = "転"
str = Asc(str)
str = Hex(str)
a = str

'b
str = "転"
str = Hex(Asc(str))
b = str

'c
str = "転"
num = Asc(str)
str = Hex(num)
c = str

End Sub

a=FFFFFFFFFFFF935D　 b =935D　 c=935D

aとbで結果が異なる理由が分かりません。
cはぼんやりと型の違いなのかと思いテストしたところ、bと同じ結果になりました。
しかし、aもbもstring型のstrに納めているので、「どうして結果が違うのか」とより
謎を強めてしまいました。なぜ、aとbで結果が異なるのか教えてください。
33デフォルトの名無しさん (ｱｳｱｳｳｰ Sa1f-oKCf)
垢版 |
2022/05/07(土) 11:01:22.01ID:QtF4T6fHa
ascの結果をstringに変換しないで入れたからかな
出先なので試せないが
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。