Excel VBA 質問スレ Part65

■ このスレッドは過去ログ倉庫に格納されています
2020/03/17(火) 16:27:20.88ID:hh8LiIgR0

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

※前スレ
Excel VBA 質問スレ Part64
https://mevius.5ch.net/test/read.cgi/tech/1575297834/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2020/03/17(火) 18:15:02.25ID:xIJjSw0m0
>>1乙
2020/03/17(火) 19:24:51.48ID:+T54gcvp0
>>1乙

>全スレ998
挿入か貼り付けかはっきりしてくれ
2020/03/17(火) 21:26:48.27ID:xIJjSw0m0
行をコピーして挿入操作
マクロ記録したら、Selection.Copy Selection.iIsert Shift:=xlDown が出てきたけど普通に再生できたぞ
2020/03/18(水) 04:12:39.20ID:oTsktMrB0
VBAからインターネットエクスプローラーを起動して、
指定したURLのサイトを表示して、
スクリーンショットを取って行く。
という作業を自動化したくて色んなサイトのコードをコピペして、
一応動くものは出来たのですが画質が悪いです。
下記はそのコードの一部分なんですが、どこをどういじれば
画質が良くなるのでしょうか。

Private Declare PtrSafe Sub keybd_event Lib "user32" ( _
　ByVal bVk As Byte, _
　ByVal bScan As Byte, _
　ByVal dwFlags As Long, _
　ByVal dwExtraInfo As Long)

・・・

　keybd_event &HA4, 0&, &H1, 0&
　keybd_event vbKeySnapshot, 0&, &H1, 0&
　keybd_event vbKeySnapshot, 0&, &H1 Or &H2, 0&
　keybd_event &HA4, 0&, &H1 Or &H2, 0&
2020/03/18(水) 05:01:35.56ID:oTsktMrB0
プラウザのウィンドウサイズを大きくした後で画面キャプチャしたら
満足の行く画質になりました。
>>5の質問は撤回します。
2020/03/18(水) 12:15:49.12ID:w6Ggs+SYM
>>4
まじすか
コピー元が別ブックだったのでそのせいかも
2020/03/18(水) 12:50:26.65ID:FL4Tmu/bd
>>5
キーボードマクロ最悪
2020/03/18(水) 21:13:19.46ID:ILNBMFwG0
リボンを自動的に非表示にする設定だととクイックアクセスに登録したものも含めてコマンドがすべて隠れてしまうんだけど
特定のコマンドのみ表示させておく方法はないかな？
マクロとして登録させて画像にマクロを登録しようとしたけど動かない。
2020/03/19(木) 06:45:24.60ID:3WIKr7Ue0
>>9
うちのExcel2016だと隠れないけど、それ以降だと違うのかな
リボンの下に表示offでもだめなら
フォーム作って、UserForm.ShowModal=False という手もあるよ
2020/03/19(木) 23:50:18.77ID:7Zzxd2N00
>>10
>>9
UserForm.ShowModal=False はどういう方法？
2020/03/20(金) 00:29:09.01ID:cQ88e7Ay0
>>11
自作フォームをカスタマイズメニューに見立てて自作のマクロなどを呼び出す
2020/03/20(金) 08:35:07.45ID:SwKaoqcN0
>>12
マクロを呼び出すのは簡単なんだけど、各コマンド（既存の機能）をよびだすのかできない
たとえば描写とかペンとか消しゴム機能とか
2020/03/20(金) 08:58:05.53ID:8tNMwiiZ0
既存の機能が必要ならリボンを非表示にしなきゃ良いんじゃね
2020/03/20(金) 11:45:56.36ID:gOi7n73D0
>>13
SendKeys "% 〜
2020/03/20(金) 12:04:13.08ID:kTqu2sOZ0
>>15
ショートカットキーを設定してってことかな？
2020/03/20(金) 12:36:23.76ID:dFakeV1fa
csvを読む場合で、見出し行とデータ行が文字と数値で形式が違う場合とかどう処理しますか？
2020/03/20(金) 12:41:37.47ID:FhkC8bvBx
>>17
パワークエリで読み込んで任意のデータ型に変換する
2020/03/20(金) 13:27:20.08ID:jE5Tt0oL0
>>17
CSVを読み込む場合にブックとして読み込むことはまず無い。
というか、まずテキストとして読み込む。
処理も何も、全て自由に出来るぞ。
2020/03/20(金) 19:47:02.79ID:1JHTKX/vM
>>17
全部文字として読み込む。コードで数値として処理したいならcintやcdblでキャストすればいい。因みにワークシート関数にはNumberValueってのがある。
2020/03/20(金) 19:50:02.57ID:wHnf8pbD0
あれなんとかならんかな。
NULLがあるとコケるから、
いちいちIIF(A IS NOT NULL, CINT(A))ってやらなきゃいけないの。
22デフォルトの名無しさん (ﾜｯﾁｮｲ 8b46-m7vt)
垢版 |
2020/03/22(日) 12:27:27.61ID:bv32jkb00
VBA で、セルの指定しても行の指定が無効になってて、必ず１行目に表示されてしまいます。
何が原因でしょうかね？
教えてください。
23デフォルトの名無しさん (ｽﾌﾟｯｯ Sd33-dSJs)
垢版 |
2020/03/22(日) 12:28:32.17ID:hR7PxyLud
>>22
お前の馬鹿頭
24デフォルトの名無しさん (ﾜｯﾁｮｲ 8b46-m7vt)
垢版 |
2020/03/22(日) 12:35:14.95ID:bv32jkb00
原因わかりました。すみませんでした。
25デフォルトの名無しさん (ﾜｯﾁｮｲ 8b46-m7vt)
垢版 |
2020/03/22(日) 12:36:52.15ID:bv32jkb00
ここの住民の霊性は暴力団と同じですね
2020/03/22(日) 13:22:11.60ID:TNUWFKUeM
ここだけじゃなく5chはどこも似たり寄ったりです
貴方が来るような場所じゃありません
27デフォルトの名無しさん (ﾜｯﾁｮｲ 118e-dSJs)
垢版 |
2020/03/22(日) 14:47:18.63ID:9uw1USbo0
>>25
霊性？
馬鹿確定
原因としては正しかっただろうが
2020/03/22(日) 15:26:01.73ID:bTaHgmHe0
>>22
ソースコード書けないの?
君書いたのが本当にセルの指定をしてると信じる人がいるとでも?
29デフォルトの名無しさん (ﾜｯﾁｮｲ 2beb-W/ZL)
垢版 |
2020/03/24(火) 17:30:30.61ID:s99Qd4t60
よろしくお願いします。

数百行あるシートで、上から順に一行ずつ以下の操作を行いたいです。

(1)　C列の文章の中に、「一言コメント：」という文字が入っていれば2へ。なければ終わり、次の行へ
(2)　「一言コメント：」とそれ以下の文字列をC列の値から削除し、E列の、元々の値（文字列）の前に貼りつけ
(3)　E列の文字列の中から「「一言コメント：」という文字列を削除

以上です。
まず、（1）の検索がうまくいかず、（2）の文字列取得も、一文字ずつ数えてカウントし、あらためて「終わりから○文字」みたいな
やりかたをするしか方法が浮かびません。
たぶん、上級者ならもっとシンプルな書き方ができるのではないかと思い質問させていただきました。

どのように書けばよいでしょうか？よろしくお願いいたします。
2020/03/24(火) 17:42:47.48ID:2RYGBfo0M
For文をRowCntって変数で回していると仮定して
If Cells(RowCnt, 3).Value Like “*一言コメント：*″ Then
で引っかけるとか？
2020/03/24(火) 17:58:43.96ID:BIkwDKwH0
VBAなくても関数だけで目的達成しそう
2020/03/24(火) 18:33:24.09ID:n56XI6Ab0
>>29
Ruby で作った

text = <<"EOT"
ab一言コメント：12
あいう コメント：
xyz一言コメント：456
EOT

search_word = "一言コメント："
sw_length = search_word.length # 7文字

text.each_line do | line | # 1行ずつ処理する
line.strip! # trim

# 単語が見つかった時だけ、単語の前後を出力する
if pos_1 = line.index( search_word )
puts "#{ line[ 0 ... pos_1 ] } - #{ line[ pos_1 + sw_length .. -1 ] }"
end
end

出力
ab - 12
xyz - 456
2020/03/24(火) 18:34:45.78ID:qnUBImldr
>>15
どんな機能でもショートカットキー設定できるの？
2020/03/24(火) 19:30:25.33ID:sgSRB3ii0
>>29
VBAでないとだめなわけじゃないならExcel関数でやればいいと思う
2020/03/24(火) 19:56:22.25ID:Yvy0BDEM0
>>33
Alt押してみ
2020/03/24(火) 22:01:18.60ID:PstaeSXz0
>>29
Dim c As Range, e As Range
s$ = "一言コメント："
For Each c In Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp))
　　i% = InStr(c, s)
　　If i Then
　　　　Set e = c.Offset(0, 2)
　　　　e = Replace(Left(c, i - 1) & e, s, "")
　　End If
Next
2020/03/24(火) 22:44:45.47ID:Sir7Hwfr0
ここは上級者向け？
ド素人が少しずついろんなサイトや動画見て覚えようとしてるレベルじゃダメかな
2020/03/24(火) 23:20:41.40ID:PstaeSXz0
>>37
初心者も上級者もキチガイも見てる
みんなが毎日見てるわけじゃないから、タイミングが悪いと質問に答えてもらえないこともある
2020/03/24(火) 23:41:15.31ID:VeKTJmtj0
いろんなサイト見た方が早い
40デフォルトの名無しさん (ﾜｯﾁｮｲ b1f1-Go5d)
垢版 |
2020/03/25(水) 09:15:56.68ID:nn3rUaIL0
FileSystemObjectでFilesのコレクションょ取得したあと
それぞれにアクセスするにはどうしますか？
Files(1), Files(2)のようにするとエラーが出てエラいこっちゃとなります。
For each文ならできるのですがそこまでするほどのことではない時には？
2020/03/25(水) 10:04:11.68ID:34Te7/8G0
コレクションょ
42デフォルトの名無しさん (ﾜｯﾁｮｲ b1f1-z4rF)
垢版 |
2020/03/25(水) 10:44:44.89ID:nn3rUaIL0
を
2020/03/25(水) 10:51:51.28ID:34Te7/8G0
暇だし、見てみた

Const path = "c:\temp"
Dim fso As Scripting.FileSystemObject
Dim item As Object

Set fso = New Scripting.FileSystemObject
Set item = fso.GetFolder(path).Files.item("test.csv")

filesコレクションからの特定fileオブジェクトはitemプロパティでkeyをnameで指定すれば直接取れる
ExcelVBE上はitemでナンバリングされてるけど、配列みたいに番号指定は出来ないんじゃないかな(他の人知ってればいいな)

ファイル名特定できるならgetfileでもええね
個人的にはdirとか分かりやすいがね
44デフォルトの名無しさん (ﾜｯﾁｮｲ b1f1-z4rF)
垢版 |
2020/03/25(水) 12:51:44.52ID:nn3rUaIL0
itemでナンバリングされていないんじゃないか？
だからitem(1)やitem(2)で取得できないのでは。
それゃファイル名を()の中に書けば取得はできるけど。
2020/03/25(水) 15:03:09.95ID:jqzDDJlwa
for each でいいやん
2020/03/25(水) 15:55:41.50ID:e/5QJMyr0
「そこまでする」の考え方がまずおかしい
中身がたとえ1個でも2個でも普通はコレクションにはFor Eachを使うもんだぞ
47デフォルトの名無しさん (ﾜｯﾁｮｲ b1f1-z4rF)
垢版 |
2020/03/25(水) 16:09:28.13ID:nn3rUaIL0
>>45-46
このハゲー！
違うだろ！

最初にfor eachはやらないと言った。
コレクションの代表ということで任意の1個だけを選んでそのプロパティ等を調べる、
ということはプログラミング経験がある程度あればそういう状況に遭遇することはたまによくある。
2020/03/25(水) 16:14:59.17ID:z6ZaQbmPr
fsoのfilesコレクションには通常のコレクションみたいにインデックス指定が出来ないのよね
countとitem(key)プロパティしかない
ファイルシステムの違いとか、歴史的経緯からかはしらんけど
だから基本for eachで他の形にする
49デフォルトの名無しさん (ﾜｯﾁｮｲ b1f1-z4rF)
垢版 |
2020/03/25(水) 16:19:47.29ID:nn3rUaIL0
>>48
そんなことはとおの昔に知ってるから
ここで質問をしたのだ。
50デフォルトの名無しさん (ﾜｯﾁｮｲ 558e-7Ena)
垢版 |
2020/03/25(水) 16:24:52.66ID:RkpcsgMW0
ID:nn3rUaIL0
馬鹿は死ね
2020/03/25(水) 16:33:07.81ID:dd26zMYGr
では次の方
2020/03/25(水) 18:54:52.80ID:acV7Q0T20
インデックスが使いたいなら自分で配列でも作り直せばいいのに
2020/03/25(水) 19:07:44.86ID:99YP/w74d
不毛だな
2020/03/25(水) 20:08:34.34ID:xy/tXdFS0
Exit Forすればいいんじゃまいか
2020/03/25(水) 21:06:02.83ID:POb+XADc0
OpenDocumentスプレッドシートのデータをADOで取得する方法ある?
EXCELに変換しろってのは無しで。
2020/03/25(水) 21:06:24.91ID:UODWeex90
>>44で自分で答だしてんじゃん
2020/03/25(水) 22:04:41.19ID:xy/tXdFS0
ドライバ自作しろ
2020/03/25(水) 22:39:59.43ID:8ZIjWfpj0
プラスとマイナスはあるから丸ドライバー作るわ
2020/03/26(木) 02:21:13.92ID:THyEKc6a0
ファイル入出力に使うopenやinputが何者か（関数？メソッド？など）知りたいです
これらの機能はなぜオブジェクトブラウザに乗っていないのでしょうか
マイクロソフトのウェブヘルプにはステートメントとして乗っているようですが
ステートメントというのは関数やメソッドなどの分類ではないですよね？
ご教示お願いします。
2020/03/26(木) 02:34:21.94ID:bMQizyKS0
>>59
ステートメントというのは関数の祖先にあたる概念
コンピューター言語が発明された初期からある命令文の分類の一つ
61デフォルトの名無しさん (ﾜｯﾁｮｲ 558e-7Ena)
垢版 |
2020/03/26(木) 10:58:51.71ID:NTuSOeK50
馬鹿に馬鹿が答えている
2020/03/26(木) 13:11:56.44ID:d196EOchM
VBAを覚えようとしてる初心者以前だが
まず何となくルールから覚えてる
=は同じじゃなくて←の意味ぐらいにとらえておく
あとはコードというか使いそうな単語を少しずつ
msgboxとかRangeとかactivecellとか
でもとっかかりがわからんわ
難しすぎですな…
2020/03/26(木) 14:44:13.99ID:HulDeUE70
覚えるのは結構だけど、普段やってる作業をVBAで再現するとこから始めると飽きずにやれるんじゃ

コピペ作業、シートコピー、ボタンで特定の計算とかね
だんだんCSV読みたくなったりして高速化したくなったりして、そうやって覚えていく
64デフォルトの名無しさん (ﾜｯﾁｮｲ 5e46-k/jz)
垢版 |
2020/03/26(木) 15:50:36.21ID:ZD929brT0
TEST
2020/03/26(木) 15:54:11.22ID:hp54jNs9M
ユーザーフォーム上にあるボタン1を押すとボタン1を非表示にしてフォームのキャプチャを取得。
その後ボタン1を再び表示して終了。

みたいなものを作りたいのですが
SendkeyでAlt+Printscreenを送っても
素の状態ではボタン1が残った状態のものがキャプチャされ、
Waitをかけると今度は画面全体のキャプチャになってしまいます。

フォームをダイレクトに画像ファイルにする、とかでも良いのですが調べても中々応えに辿り着けなかったので皆様のお知恵をお借りしたいです。
何か良い手はないでしょうか。
66デフォルトの名無しさん (ﾜｯﾁｮｲ 5e46-k/jz)
垢版 |
2020/03/26(木) 15:56:47.70ID:ZD929brT0
以下RUNすると、"!ALARM()が見つかりません。”ってエラーになる。
何故ですか？

Public FLG As Integer
Private Sub CommandButton1_Click()
With Sheet1
　 Cells(2, 1) = Date
Cells(2, 2) = Time
If FLG = 1 Then
FLG = 0
CommandButton1.Caption = "ON"
Else
FLG = 1
CommandButton1.Caption = "OFF"
Call OnTimeStart
End If
End With
FLG = 0
End Sub
Sub OnTimeStart()
With Sheet1
Application.OnTime Now + TimeValue("00:00:05"), "ALARM"
End With
End Sub
Sub ALARM()
With Sheet1
Cells(2, 1) = Date
Cells(2, 2) = Time
End With
End Sub
2020/03/26(木) 17:09:13.21ID:hp54jNs9M
すみません。
情報の伝達に齟齬がありました。
Sendkeyではなくkeybd_eventsでした。

Altのkeyeventをコメントアウトしたら何故かフォームだけのスクリーンショットが撮れました。
vbKeySnapshotはAlt+PrintScreenだったのでしょうか？

Private Sub CommandButton1_Click()

UserForm1.CommandButton1.Visible = False

'keybd_event vbKeyMenu, 1, &H1, 0
keybd_event vbKeySnapshot, 1, &H1, 0

Application.Wait [Now() + "0:00:00.5"]

keybd_event vbKeySnapshot, 1, &H1 Or &H2, 0
'keybd_event vbKeyMenu, 1, &H1 Or &H2, 0

UserForm1.CommandButton1.Visible = True

End Sub
2020/03/26(木) 17:44:04.29ID:sBp41OLkr
MacでもVBA使えますか？
2020/03/26(木) 18:35:55.24ID:GuVxnbOZ0
使えるけどwindowsと全く同じように動くかまでは知らん
2020/03/26(木) 19:05:03.32ID:58MBAwKca
新しい天啓が下った。私は馬鹿ですらなく、場であり、これが私の仕える神のような気がしたが違ったような気がした。
忠実に表現したらこうなった、つまりそういうことなんだろう。
2020/03/26(木) 19:41:20.92ID:m6KuD/Rj0
>>66
標準モジュールに書いてるか
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。