Excel VBA 質問スレ Part66

■ このスレッドは過去ログ倉庫に格納されています
11000
垢版 |
2020/05/10(日) 13:43:45.00ID:Nkoph0aj
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

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

※デフォルト設定
2020/05/28(木) 18:33:29.93ID:1No7OPPN
例えば、セルB1にして =GET.CELL(20,A1)*1 を LeftIsBold とでも名前定義
太字を確認したい列の右隣に、=LeftIsBold と入力して、それを合計する

遅いか速いかは知らないけど、Excel4.0マクロだから、ユーザー定義関数関数使うよりは早いと思う
あと、文字単位の太字には未対応
太字で判定する設計が良くないのは同意
2020/05/28(木) 18:44:24.85ID:nu6DWAbq
ユーザーフォームを印刷したいんだけどA4横印刷で一枚に収まるように倍率変更って出来ない？
ちょろっと調べると印刷設定に依存するとか書いてある。
吐き出し用のシートやらコード書くの面倒だし、フォームだけが印刷出来ればいいんだが本当に無理？
2020/05/28(木) 19:09:14.00ID:HPtbnCn7
>>328
1回PDFにして、PDFビューアの機能でA4フィット印刷　じゃだめ？
2020/05/28(木) 19:19:51.07ID:GEIkGrn6
>>326
XMLで読み込めば判るんじゃないの?
2020/05/28(木) 20:56:43.74ID:0S10FlCu
>>330
100万行のワークシートをXMLにするとデータ量が10陪ぐらいになることもあるから、たぶんワークシートをVBAで直接調べた方が早い
2020/05/28(木) 21:21:26.06ID:PIoPunSP
>>323
usedrangeの範囲を太字で検索してあればtrueは？
2020/05/28(木) 21:44:10.77ID:GEIkGrn6
>>331
じゃあXMLを自分宛てにメールで送って、Gmailで検索するのは?
ってもうExcelじゃないわ。
2020/05/28(木) 22:37:07.33ID:0S10FlCu
>>333
ネットを経由したらもっと遅くなると思うぞ
2020/05/28(木) 22:48:39.38ID:0S10FlCu
>>323
100万セルのBoldプロパティを調べるコードを作って実験してみたけど数秒で終わったぞ
範囲が限られてるなら一瞬で終わるんじゃない？
これより早くする方法はないと思うぞ
336323
垢版 |
2020/05/28(木) 23:44:38.45ID:AwZmzoZa
みなさんいろいろありがとうございます。
結局ループですることになりそうです
>>335さんのコードと同じような気がしますが、その数秒～十数秒が短縮できないかなと思ってました。
ありがとうございました。
2020/05/29(金) 00:08:23.93ID:QVnkNeSg
まあどう考えても>>324
2020/05/29(金) 06:08:45.93ID:OHJZg62K
業務上100万件のデータ処理が必要なら専用のソフトを独自に作るべきだろう
初心者にVBAでやらせる上司が無能としか言いようがない
今までその業務手作業でやってたんだとしたらそのままのやり方続けていればいいんじゃね
2020/05/29(金) 06:43:32.30ID:z6j/3IlC
>>329
印刷出来れば構いません。
340310
垢版 |
2020/05/29(金) 10:32:29.11ID:I8K8veff
>>318

ありがとうございます。エラーを回避できました
341デフォルトの名無しさん
垢版 |
2020/05/29(金) 12:52:21.52ID:UXGV4L+b
物凄いコードを3つ
前スレで教えてくれたあの人たちが
今でもここを見てくれてますように
2020/05/29(金) 12:59:11.86ID:wRO7TzMi
>>323
その範囲.Font.Bold
2020/05/29(金) 13:16:11.31ID:I8K8veff
指定したフォルダ内の"B"で始まるxlsファイルの"表紙"シートの各箇所を
このブックの"comp"シートＡ～Ｃ列の２行目以降に書き出していくコードを教えてください

Dim path As String ,buf As String, i As Long
Dim mysheet As Worksheet, srcbook As Workbook, srcsheet As Worksheet

With Application.FileDialog(msoFileDialogFolderPicker)'フォルダを選択する
If .Show = 0 Then
MsgBox "キャンセルされました。"
Exit Sub
End If
path = .SelectedItems(1)
End With

Set mysheet = ThisWorkbook.Worksheets("comp")
buf = Dir(path & "B*.xls")

Do While buf <> ""
i = i + 1

Set srcbook = Workbook.Open(path + buf)
Set srcsheet = srcbook.Worksheets("表紙")
mysheet.Cells(i, 1).Value = srcsheet.Cells(3, 13)
mysheet.Cells(i, 2).Value = srcsheet.Cells(5, 2)
mysheet.Cells(i, 3).Value = srcsheet.Cells(7, 2)
srcbook.Close False
buf = Dir()
Loop
を試したのですが、だめでした
2020/05/29(金) 13:36:39.75ID:Afg8U+25
debug.print入れまくれ
で、どこがどうだめだったの？
2020/05/29(金) 13:38:45.34ID:x/xJoOz3
buf = Dir(path & "B*.xls")
の後ろに、
Debug.print buf
Debug.print path & "B○○.xls"　　　<--実際のファイル名を入れる
で、何か気づくと思うよ
2020/05/29(金) 14:59:14.36ID:4ofbCjLS
xls形式って古くね
2020/05/29(金) 15:00:54.79ID:xfksWnzq
Dir君はいい加減デバッグ機能覚えようぜ
ローカルウインドウ見ながらステップイン連打しよう
348343
垢版 |
2020/05/29(金) 16:23:07.80ID:I8K8veff
>>344,345,346,347

できました！ありがとうございます。

path & "B*.xls"
↓↓↓↓↓↓
path & "\B*.xls"

Workbook.Open(path + buf)
↓↓↓↓↓↓
Workbooks.Open(path &"\"& buf)

だったみたいです
2020/05/29(金) 18:24:55.94ID:ofRjPTJp
教えてください

クリップボードにあるキャプチャを全て貼り付けるマクロできますか。

ちなみに、win+Vで、過去のキャプチャ履歴が出てきます
350デフォルトの名無しさん
垢版 |
2020/05/29(金) 18:44:55.24ID:FhfEW/N2
過去の履歴はクリップボードにはもうありません
351デフォルトの名無しさん
垢版 |
2020/05/29(金) 19:17:03.09ID:/mLagXjz
馬鹿の特徴

教えて、助けて系で始まる書き込みをする
2020/05/29(金) 19:46:11.43ID:ofRjPTJp
>>350
win+Vやってみれば分かります。

蓄積していきます。
2020/05/29(金) 20:15:13.52ID:o3jQNOd+
>>350
昔はフリーウェアで対応してたけど、Win10のクリップボードには履歴機能が標準で付いた
354デフォルトの名無しさん
垢版 |
2020/05/29(金) 20:22:58.37ID:rds5fVij
馬鹿は、Win10全てが同じだと思っている
355デフォルトの名無しさん
垢版 |
2020/05/29(金) 21:14:41.12ID:Z5PYtswD
なるほどね
APIが公開されているからそれを使えばいいと思うよ
2020/05/29(金) 21:47:35.41ID:be+QuDfe
Debug.Printの代わりにMsgbox
　　　　　↓
うっかりループで使う
　　　　　↓
必死に×とかEsc連打
2020/05/30(土) 00:10:31.73ID:r1iWOzqa
VBAで親クラスのインスタンスを子クラスに渡して子クラスから親クラスのメソッドにアクセスする方法ってあります？
358デフォルトの名無しさん
垢版 |
2020/05/30(土) 05:29:34.61ID:n48qxrxQ
母のパンティを娘に渡して
娘から母のセックスにチェンジする方法はあるよ
2020/05/30(土) 06:41:58.45ID:lz52cF2O
>>350
いつまでXP使ってるんだよ
2020/05/30(土) 10:18:37.36ID:Lg+IyK0J
仕様書みたいの書かないとﾀﾞﾒだな
数年前に自分で作ったの手直ししなきゃなんだけど
結構でかいんでコード理解して全体像を把握するのが大変だわ
仕様書とかそういうのってたぶん書き方があるんだろうね
その辺勉強しなきゃダメだね
2020/05/30(土) 10:44:24.19ID:A129boaw
過去の自分が書いたソースは他人が書いた物
2020/05/30(土) 10:47:20.95ID:gDHPXROS
①画面をプリントスクリーン
②エクセルなりを開いてペースト
③戻る


②③がいちいち面倒くさいので、理想的にはプリントスクリーンすれば勝手にそれがペーストされていけば良いのですが。できないかな。
2020/05/30(土) 11:13:20.00ID:gDHPXROS
続き
あるいはwin+Vで貯まってるキャプチャを自動的にダウンロード出来れば、と思いました
2020/05/30(土) 11:26:13.81ID:4gyXKXc6
>>362
https://github.com/mizutuu/imageClipPaste
2020/05/30(土) 11:40:59.92ID:Lg+IyK0J
氏名住所をユーザーフォームで連続入力してリストに登録するじゃん
んで、フォーム上の印刷ボタンを押すと、ワークシート上に用意されてるテンプレ書類に
氏名住所が必要な箇所に順次記入されて印刷される

ていうよくありがちなプログラムあるでしょ

このテンプレ書類に数式を使って氏名住所を別のセルにも転記するようにしておく
例えば、VBAでA1に氏名が記入されるとすると
B1に =A1 って書いておけばB1にも氏名が記入されて印刷される

これも当たり前なんだけど
このB1に入る数式にユーザー定義関数使うと、うまく動かないのな
Application.Calculate　とかもうまくいかなかったわ
うまくいかないってのは計算してくれないってことだけど
2020/05/30(土) 12:46:49.94ID:gDHPXROS
>>364
サンキューさん
これなら使えそうです。
367デフォルトの名無しさん
垢版 |
2020/05/30(土) 13:37:34.40ID:VTd6O4v1
同じなんだけどVBAで膨大な演算処理をコード組んでプロシージャ合わせて作っても
おっさんから
「ああ、マクロの記録して作ったやつね」
て言われると少しイラつく
記録じゃつくれねーほど汎用性高くしてんだろうがボケが
2020/05/30(土) 13:50:56.52ID:LDe7UQpm
vbaごときでイキっててわろた
2020/05/30(土) 14:27:17.60ID:+Oty3aJ4
無知は罪
2020/05/30(土) 14:46:50.67ID:A129boaw
そこでイラついてるうちはまだまだ
2020/05/30(土) 15:22:49.38ID:uSpMLuhJ
VBAはOLさんでも出来る(正論)
2020/05/30(土) 15:27:58.73ID:4gyXKXc6
マクロの記録しかできない人、Win32APIを使いこなす人、どっちも「VBAができる人」と言われてしまう
2020/05/30(土) 15:39:22.28ID:49ARh1d+
トリッキーなことはやらない方がいい
2020/05/30(土) 15:45:07.44ID:49ARh1d+
>>365
個人情報とかちゃんと管理しないと流出した場合責任とれる？
2020/05/30(土) 16:36:13.67ID:PhwvBcVJ
>>365
Application.Calculate じゃなくて、Application.Volatileだぞ
ワークシートの数式の方に、 &REPT("",NOW()) とかでもいいはず
2020/05/30(土) 16:55:50.78ID:NW87G0lL
>>367
そんなことでイラつく自分を見直そう
2020/05/30(土) 17:00:12.37ID:EKBxQQvi
14列目から全てセルの巾15ピクセルで固定されてます。指定したピクセル数に伸ばしたり縮めたりしたいんですがどうしたらいいですか？

privata Function AAA(objTarSht,intPicel)

clmTar=14
do until objTarSht.Cells(1,clmTar)=空

ここ

clmTar=clmTar + 1

loop
2020/05/30(土) 17:25:53.46ID:4gyXKXc6
>>377
Private Function AAA(objTarSht, intPixel)
　　clmTar = 14
　　Do Until objTarSht.Cells(1, clmTar) = ""
　　　　Columns(clmTar).ColumnWidth = intPixel * 0.118
　　　　clmTar = clmTar + 1
　　Loop
2020/05/30(土) 17:36:07.32ID:x6N4SK2n
セルのHJ1に式で「=TEXT(EDATE(DE2,(DAY(DE2)>20)+(DT2<>"")),"yyyy""_""m")」をいれて、
最下行までオートフィルをして、HJ列をコピペで値だけにしていますが
vbaのforで作ってみたいので、この部分をVBAにした場合のコードを教えてください

「=TEXT(EDATE(DE2,(DAY(DE2)>20)+(DT2<>"")),"yyyy""_""m")」
2020/05/30(土) 17:41:18.80ID:NW87G0lL
いやまず自分で作ってみろよ…
381デフォルトの名無しさん
垢版 |
2020/05/30(土) 18:14:09.22ID:HFWpOc40
>>359
馬鹿は書かなければいいのに
382379
垢版 |
2020/05/30(土) 18:40:42.91ID:x6N4SK2n
=TEXT(
EDATE(DE2,
(DAY(DE2)>20)+(DT2<>""))
,"yyyy""_""m")
の並び順で

For cnt = 2 To i

Range("HJ1") =

Format( _'「=TEXT(」にあたる部分

**********'「EDATE(DE2,」EDATEにあたる部分

'「(DAY(DE2)>20)+(DT2<>""))」にあたる部分
DateSerial(Range("DE" & cnt) > 20 + (Range("DT" & cnt) <> "")　

,"yyyy""_""m" '「,"yyyy""_""m")」にあたる部分

Next cnt
2020/05/30(土) 18:59:33.29ID:IeNY1P6O
>>367
それ本当にマクロか?っていう圧倒的なものを作ってみるといい。
384デフォルトの名無しさん
垢版 |
2020/05/30(土) 19:06:40.97ID:RuztwjMU
>>383
ユーザーフォームのボタンにあてがうと
有り難みが薄れるらしく
最近作るのを断ってるわ
2020/05/30(土) 19:52:23.30ID:NW87G0lL
どんだけ人間小さくて承認欲求高いんだよ…
2020/05/30(土) 20:13:00.67ID:v+h7hopE
>>367
マクロ記録でできるレベルじゃないから苛ついてんの？できるんなら言われても仕方ないだろ
ソフト屋じゃなけりゃ再利用とか考えるわけないし
2020/05/30(土) 20:39:02.93ID:x6N4SK2n
>>381

京都のアニメ制作会社に放火とかしそうだなｗ
388デフォルトの名無しさん
垢版 |
2020/05/30(土) 21:05:02.60ID:n48qxrxQ
>>372
逆に「VBAができるわたし」は
ExcelやWordの複雑な機能のことに異常に詳しいと思われてて
難解な作業を仕事で依頼される。
それをVBAで解決できるかできないかにかかわらず。
2020/05/30(土) 21:08:47.70ID:A129boaw
そういう事を防ぐために能鷹隠爪で
390デフォルトの名無しさん
垢版 |
2020/05/30(土) 21:10:58.46ID:n48qxrxQ
>>364
これはなにで動いているのですか？
2020/05/30(土) 21:14:47.20ID:49ARh1d+
>>388
仕事で依頼されたなら、仕事やれよ
2020/05/30(土) 21:45:04.41ID:/9v+/+fv
>>382

式が何をしようとしているのか不明。
・何でHJ1(１行目)で２行目の値を評価しているの？
・20日以降は次月として捉えているように見えるけどDT列には何が入るの？
　空じゃなければ更に月を進める？

Forの使い方という点にコメント
これだけじゃ cnt がどこまで回ればよいかわからんよね。たとえば、
　i = 30
For cnt 2 To i
とするか、
For cnt 2 To 30
とかすれば、Loopはする。

でも書き込むセルが Range("HJ1") に固定されてるから、これじゃ同じセルに
３０回、延々と上書きするだけになる。

書き込み先を動的に変える場合は、範囲Objectは Range("番地")じゃなくて、
Cells(行番号、列番号)を使うといい。この中でcntを使えば。

EDATE関数にあたるVBA関数はDateAdd
TEXT関数はFormatでOK。
2020/05/30(土) 21:53:02.87ID:IeNY1P6O
>ExcelやWordの複雑な機能のことに異常に詳しいと思われてて

ありがちな誤解だよな。
プログラムがわかるから細かい機能を知らなくてもどうにか出来るわけで、
2020/05/30(土) 21:53:27.20ID:IeNY1P6O
Word、Excelの専門家じゃないってのに。
2020/05/30(土) 22:38:43.08ID:I7l9umXM
wordの複雑な機能って？
2020/05/30(土) 23:40:16.05ID:JE+7y9de
フィールドとか？
2020/05/31(日) 01:07:44.41ID:0lS4xVrw
WordVBAとか
2020/05/31(日) 01:47:47.46ID:6kaO8G32
初歩的ですみませんが、sub ()の（）の中に文字列が入ることありますか？
買った教本の例題にこの中に文字列が書かれてるのが一つだけあるんですが、おそらくそのせいでマクロが動きません
399デフォルトの名無しさん
垢版 |
2020/05/31(日) 02:38:20.45ID:2V+gQfrN
>>398
理解できない奴には無理
400デフォルトの名無しさん
垢版 |
2020/05/31(日) 02:39:52.93ID:86R8wtw/
>>391
なんでわたしだけ仕事が増えるんだ
この馬鹿モンが！
401デフォルトの名無しさん
垢版 |
2020/05/31(日) 02:41:39.96ID:86R8wtw/
しかも周りに座ってるような同僚は
わたしより仕事スピードが1/2～1/10の人たちばかりなのに。
2020/05/31(日) 02:50:27.87ID:0yzq8zA/
>>398
subプロシージャで調べてみ
2020/05/31(日) 02:50:46.87ID:6kaO8G32
>>399
理解できるように勉強してるので教えてください
図々しいと思いますが
2020/05/31(日) 02:51:03.70ID:6kaO8G32
>>402
調べてみます！
2020/05/31(日) 02:52:54.38ID:wkpADETk
>>401
じゃあ転職しろよw
406デフォルトの名無しさん
垢版 |
2020/05/31(日) 02:56:41.46ID:2V+gQfrN
>>403
この段階でわからないこと自体無理なんだよ
仕組みを理解しなければ無理
公式だけ暗記して終わりの馬鹿には無理なんだよ
2020/05/31(日) 03:25:44.77ID:C8J9R7KI
>>375
ありがとう
でもだめだったわ
2020/05/31(日) 03:27:49.96ID:C8J9R7KI
>>403
VBA 引数
　
でぐぐる
2020/05/31(日) 04:00:28.58ID:KExNe49d
エクセルにはリファレンスマニュアルが付属していて、追加でインストールするとF1ヘルプで言語仕様まで見られる。
マニュアルがパソコンに入ってなかったら、管理者からエクセルのシーディーを借りてね。
2020/05/31(日) 05:00:56.16ID:pJwiV8F0
>>398
sub() って文法的に作れないはず
マクロが動かないのは文字列のせいじゃないかもよ
2020/05/31(日) 08:40:31.29ID:6kaO8G32
ごめんなさい
sub test ()でした
2020/05/31(日) 08:57:53.05ID:C8J9R7KI
Sub Test0001()
　Dim i As Integer
　
　For i = 1 To 2
　　Dim ary()
　　
　　MsgBox "ここにブレークポイント設定"
　　
　　ary = Sheet1.Range(Cells(1, i), Cells(5, i))
　Next i
End Sub


A列とB列にあるいずれも5行目までの値を配列に取得するだけのプログラム
For中の一回転目はA列、2回転目はB列

こうやってForの中でaryを宣言し直せば、aryは初期化されると思い込んでたんだけどダメなのな
2回目にMsgBoxで止まったときにaryみるとA列のデータがaryに残ってしまってる
これってメモリ上に残ってて同じ所を参照し直すからなのかな
Eraseすれば消えるからいいんだけど、気づくのに時間かかったわ
こんな初歩的なこと分かってないでよく今まで組んできたもんだ
2020/05/31(日) 09:44:52.93ID:8XtoheO9
すんません今時ブロックスコープない方がアレなんで
2020/05/31(日) 09:49:53.97ID:4iioSPSZ
>>398
それはLEFT()が動かないのと同じ理屈。
普通LEFT(A1,5)とか書くから。
2020/05/31(日) 10:44:01.62ID:GCI/GpSg
>>412
そういう動作を知るためのテストなんじゃね
残っていても上書きされるんだから問題ないし
2020/05/31(日) 10:47:02.74ID:GCI/GpSg
>>411
sub test("文字列")
ってことか？
2020/05/31(日) 11:53:35.71ID:df9CBrpd
>>398
呼び出し元とプロシージャそれぞれ一行ずつ書いてくれよ
2020/05/31(日) 12:34:25.47ID:GcFwCYXw
>>412
VBAのDimは書いた場所に関係なく、コード開始時に1回だけ実行される仕様
モジュールの最後に書いても結果は変わらない
Sub Test()
　　Dim a()
　　For i = 0 To 9
　　　　Dim b()
　　Next
　　Dim c()
End Sub
2020/05/31(日) 12:42:20.77ID:C8J9R7KI
>>413
あーなるほど
そこを考えるんですか、勉強になりましたわ
ただ、改めて疑問に思ったのは、同じブロックスコープ内で再度宣言してもエラーでないのはどういうことなんだろーとか
Forの中での宣言だと繰り返しといっても宣言部分は無視されるってことかな
ま、同じ事しないようにちゃんとおぼえておこ・・・

>>415
このプログラムだとそうなんだけど
ary = Sheet1.Range(Cells(1, i), Cells(5, i))
この部分が、ある条件を満たした場合のみ代入するっていうコードだとします
んで、条件満たさなかった場合には代入されないため、A列のデータがaryに残っちゃっておかしな事になっちゃってたわけですよ
自分で実際に組んでるコードはも少し複雑なものなので
2020/05/31(日) 12:44:02.11ID:C8J9R7KI
>>418
ありがとうございます
全然知らなかったです
ちょい調べてみます
2020/05/31(日) 13:55:17.54ID:W/GxV3g0
>>401
お前は周りにない知識が多少あることに優越感持ってるだけで仕事できる人間の言い分に見えんのよなぁ
2020/05/31(日) 14:13:51.20ID:GcFwCYXw
仕事ができる人なら、コードを書くのに何人時かかりますっていう見積もりをざっくりでいいから依頼主にちゃんと提示する
それで依頼を取り下げるかどうかはクライアントの決めること
想定外のトラブルで納期が遅れそうならホウ・レン・ソウして迷惑をかけないようにする

難しいからって愚痴るのはまったく建設的じゃないし、なんの解決にもならない
2020/05/31(日) 15:00:37.19ID:py7qoVDy
なんでそんなにかかるの？
どこに時間かかる要素があるの？
やればいいだけでしょ？
○○さんはもっと早かったよ？
次の仕事があるんならそれでいいよ？
2020/05/31(日) 15:05:53.60ID:ztYbO9r8
報連相つらいよね…プログラムの難しさよりも報連相の方がつらい…
425デフォルトの名無しさん
垢版 |
2020/05/31(日) 16:55:11.56ID:uJxLAScO
すみませんド素人ですがご教授下さい。

「あるセルを選択して実行すると選択したセル行のA～D列以外が全て1.1倍される」
というマクロを組みたいです。
ネットで調べて少し作ろうとしてみましたが
知識がありません。

Sub 倍掛け()
Dim SELU As Range '変数名の絶望的センス名
For Each SELU In Selection
SELU.Value = SELU.Value * 1.1
Next SELU
End Sub

Sub 選択したセルの行全選択()
ActiveCell.EntireRow.Select
End Sub

この2つのプロシージャが何となく使えるのかすらわからないのですが試行錯誤しています。
A～D列を除外というやり方もわかりません。

すみませんが教えていただけないでしょうか。
2020/05/31(日) 17:39:48.04ID:w6MuXuh+
>>425
Excel for Windows 95で動作確認。

Sub Record1()
Application.Worksheets(1).Select
For I = 5 To 20
For J = 1 To 20
Cells(J, I).Select
ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) * 1.1
Next J
Next
End Sub
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。