Excel VBA 質問スレ Part64

■ このスレッドは過去ログ倉庫に格納されています
2019/12/02(月) 23:43:54.18ID:ngrqyTy20
!extend:checked:vvvvv:1000:512

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

※前スレ
Excel VBA 質問スレ Part63
https://mevius.5ch.net/test/read.cgi/tech/1568630099/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2019/12/11(水) 09:15:52.19ID:0sWj3Hq10
>>83
For NextではNextの後を省略すべきじゃない。
For Eachならまだ分かるが。
2019/12/11(水) 11:27:42.94ID:HRfJYRvp0
>>95
サンキュー！！
2019/12/11(水) 19:02:34.08ID:3wTkanlw0
それ多分フィルタ掛かってないとコケる。
On Error〜か、If AutoFilterMode Then入れないと。
2019/12/11(水) 23:16:02.27ID:0sWj3Hq10
>>98
Falseにする分には問題無い。
2019/12/12(木) 20:44:42.97ID:gjQRRqT20
>>88
Sub test2()
'整数を格納
Dim lngFileName As Long

'正規表現オブジェクトを作成
Dim objReg As Object, objRegMatch
Set objReg = CreateObject("VBScript.RegExp")
With objReg
'ファイル名のパターンを指定
'[半角数字2文字][区切り文字1文字][半角数字1〜4文字][拡張子(xlsxまたはxls)]に一致
.Pattern = "^\d{2}.(\d{1,4})\.(?:xlsx|xls)$"
.Global = True
End With

'正規表現にマッチしないファイル名だった場合の処理
Set objRegMatch = objReg.Execute(ActiveWorkbook.Name)
If objRegMatch.Count < 1 Then
'メッセージボックスを表示
MsgBox ("正規表現アンマッチ")
'Label1にジャンプして処理を終了
GoTo Label1
End If

'正規表現のグループ化した部分を整数として格納
lngFileName = objReg.Replace(ActiveWorkbook.Name, "$1")

'メッセージボックスを表示
MsgBox (lngFileName)
Label1:
End Sub
2019/12/12(木) 21:07:09.62ID:TAtdTKRF0
ここには北海道のグラサンスーパーハゲザーこないのー？
2019/12/12(木) 22:26:00.96ID:NQXxI4iB0
ファイル名に + と - は使えないんじゃね
2019/12/12(木) 22:29:22.61ID:NQXxI4iB0
あれ？使えるのか
2019/12/12(木) 23:03:36.86ID:pxF5Pr1U0
>>103
使えるけどコマンドプロンプトでトラブルが起きることがあるから推奨しないと主張する派閥もいる
2019/12/13(金) 08:53:38.24ID:Kr+RdvKJM
特定のディレクトリに複数のエクセルがあってそのエクセルの特定のシートに値を設定するってマクロを作ったところなんですが特定のシートがない場合は処理を抜けるようにするのってどうすればいいんでしょうか
2019/12/13(金) 09:22:06.72ID:jxXQPWyn0
バイナリデータをエクセルに16列で読み込んで（ここまでは出来た）、
今度はそれの逆をしようとしているのですが最初で詰まっています

とりあえず1列だけでもと、やってみたものの全然うまくいきません
サンプルのOutputをBinaryに、Print をPut構文にすればできるような気がするのですが
出力ファイルにデータが反映されてなかったりといった状況です

Sub make()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim datFile As Variant
datFile = ActiveWorkbook.Path & "\data.bin"

Open datFile For Output As #1

Dim i As Long
i = 1
Do While ws.Cells(i, 1).Value <> ""
Print #1, ws.Cells(i, 1).Value
i = i + 1
Loop

Close #1

End Sub
2019/12/13(金) 09:29:21.11ID:tON2FCC6x
>>105
Dir関数かFileSystemObject. FileExistsで調べられる
2019/12/13(金) 09:33:50.19ID:tON2FCC6x
>>105
ファイル存在確認じゃなくてシート存在確認かごめん
2019/12/13(金) 10:57:50.32ID:Kr+RdvKJM
>>108
シートがない場合の件はForで回して無事解決できました
2019/12/13(金) 12:12:29.79ID:Kr+RdvKJM
VBAで名前定義がされたセルに値を書き込む際名前定義の範囲がシート指定の場合操作できないのでしょうか
2019/12/13(金) 14:57:25.33ID:tYi2uLeR0
>>106
出力するデータの型がバイナリになっていないとだめかも
2019/12/13(金) 18:47:12.50ID:PdnkT2240
>>110
そんなことないはず。
2019/12/13(金) 21:57:03.12ID:mlyVYmAb0
北海道のグラサンスーパーハゲザーはここにこないのー？
2019/12/14(土) 10:49:44.02ID:q6pf2Uya0
PDFからのデータ取得ってどうにかならんもんかな。
Adobeの有料版使ってエクセル変換してるが、フォーマットによってはレイアウト崩れが酷くて使い物にならん。
ハイライトリストも試してみたんだけど、文字がぶつ切りでしか取れなくて、速度も遅い。
座標見ながら文字結合するのもアレだし。
RPA的にコピペするのもマヌケだしなぁ。
2019/12/14(土) 11:40:24.17ID:0wkcBg3Ka
そんな馬鹿なことをしなくてもいいように業務フローを見直す、が正解
2019/12/14(土) 11:59:38.55ID:qU+OtdBcd
>>114
理論上はPostscriptを完璧にシミュレートすれば可能なはずなんだけど、かなり面倒だしそこまでやってるアプリは今のところ見た事ない
レイアウトが崩れない変換アプリがあるんなら教えて欲しいわ
2019/12/14(土) 14:16:07.99ID:O6whyyHQ0
PDFのレンダリングは完璧なんだから
取得ができないのは本来おかしいんだけどね
2019/12/15(日) 09:28:05.88ID:P17lNwFm0
環境は、OS:Windows10, Excel2016です。
初歩的な質問ですが、よろしくお願いします。

エクセル開発タブ⇒マクロの記録を選択
マクロの保存先を新しいブックにしてＯＫすると、
新しいブックが表示されてしまいます。（EXCEL2010までは表示はされなかった気がします。）
表示させないようにしたいですが方法はありますでしょうか？
2019/12/15(日) 12:10:44.95ID:JDQV93QX0
Excelの使い方の質問ですな
2019/12/15(日) 13:30:33.36ID:STgulX1kx
>>118
そもそもそんな質問をする理由が分からない
マクロの保存先を作業中のブックに変えればいいだけの話では
RPAとかの都合なのか？
121デフォルトの名無しさん (ﾜｯﾁｮｲ eff1-ctch)
垢版 |
2019/12/15(日) 14:37:37.17ID:Jtes46Zd0
VBAのコードを長時間書いていたら肛門が痛くなりました。
これは何かの病気？いい薬はありますか？
2019/12/15(日) 15:56:49.13ID:ZgYfMqOYM
Worksheets(1), Worksheets(2), Worksheets(3), ...
が常にワークシートの並び順になっている事を前提にコーディングしても大丈夫ですか？
2019/12/15(日) 16:04:03.19ID:jQWuvGce0
止めは先が100%大惨事になるだろうな
2019/12/15(日) 16:08:21.42ID:STgulX1kx
>>122
OK
シートの並び順とシートのIndexは連動しているから

ただ他人と共有するブックでシートIndexに依存したコードを書くならば、シートの追加や削除や並び替えをユーザー側で行えなくするために、ブック構成の保護をかける必要はあるかも
2019/12/15(日) 20:43:05.99ID:FsE4lMSlp
>>122
非表示がなければ
2019/12/15(日) 21:19:26.62ID:SHKnrJYm0
インデックス値とシートの順にそんな保証あったかな
使い古しのワークブックだと最初のシートがSheet1とは限らない気がするし
2019/12/15(日) 21:53:45.41ID:jQWuvGce0
sheet1じゃなくてsheet(1)だぞ
左端がsheet(1)
2019/12/15(日) 22:30:02.10ID:STgulX1kx
>>126
CodeNameの話じゃなくてシートインデックスの話だぞ
129デフォルトの名無しさん (ﾜｯﾁｮｲ a702-G5xG)
垢版 |
2019/12/15(日) 23:11:58.85ID:HW9FgRDW0
VBAで拡張子がDWGのCAD図面ファイルから文字列と数字を抜き出してエクセルに貼り付けたいんだけどなんかイイ方法ない？
130デフォルトの名無しさん (ﾜｯﾁｮｲ 5f01-uKDx)
垢版 |
2019/12/15(日) 23:42:09.44ID:LATD77rz0
AutocadのVBA使えば。
131デフォルトの名無しさん (ｱｳｱｳｳｰ Sa3b-G5xG)
垢版 |
2019/12/15(日) 23:44:25.04ID:4M9N/f7Ka
>>130
AutoCADのソフトは持ってないんだけど出来るの？
2019/12/16(月) 02:59:51.17ID:81b5k4YR0
DXFファイルはないのか？
133デフォルトの名無しさん (ﾜｯﾁｮｲ efaa-G5xG)
垢版 |
2019/12/16(月) 08:14:35.94ID:ylV0M4Pv0
>>132
ないんだ
2019/12/16(月) 08:19:35.03ID:MkhWpp+30
>>129
VBAからほかのアプリをコントロールする方法があるから、適当なフリーウェアでDXFに変換
DXFはテキストファイルだから文字列がそのまま入ってる
135デフォルトの名無しさん (ﾜｯﾁｮｲ efaa-G5xG)
垢版 |
2019/12/16(月) 09:20:06.30ID:ylV0M4Pv0
>>134
会社だからあんまりフリーソフト入れたくないんだよなぁ
2019/12/16(月) 12:08:57.72ID:t2/k2gwa0
どこまで読み取りたいのか分からんが、タイトルとかコメントとか作者とかは読み取れるんじゃない?

AutoCAD入ってなくても動くか分からんけどCOM用のAPI使って読み取るサンプルならAutodeskのフォーラムに有ったぞ。
2019/12/16(月) 18:36:30.35ID:81b5k4YR0
>>135
業務上必要だと上司に相談して無理ならできませんでいいやん
2019/12/16(月) 19:13:38.22ID:zd6rche20
DWGファイルを扱うってことはどっかの部署ではAutoCADが動いてるわけだから環境借りるなりすればいい
2019/12/16(月) 19:29:44.71ID:A0F2PFYR0
何がやりたいのか（最終目的が何なのか）分からないが、
AutoCADのスレで質問した方がいいと思う

AutoCAD総合スレ part7
https://mevius.5ch.net/test/read.cgi/bsoft/1556080032/
2019/12/16(月) 20:17:26.44ID:+vV5KnGFa
そんなデータの編集業務ってブラック企業じゃね
141デフォルトの名無しさん (ﾜｯﾁｮｲ efaa-G5xG)
垢版 |
2019/12/16(月) 20:25:39.43ID:ylV0M4Pv0
図面から読み取る仕事が多くてVBAで自動化できないかと考えてるだけだよ。ブラック企業でもないよ。
バイナリファイルじゃ読み取れないし、フリーソフトで一つ一つテキストファイルDXFに変換っていうのもなかなかナンセンスな気がする
142デフォルトの名無しさん (ｽｯｯﾌﾟ Sd02-RPlZ)
垢版 |
2019/12/16(月) 21:37:32.27ID:CfM/IfFed
>>141
お前が馬鹿なだけだろ
2019/12/16(月) 21:44:36.78ID:UUZzkS6j0
よかったな天才に教えて貰えるぞ
144デフォルトの名無しさん (ﾜｯﾁｮｲ a702-G5xG)
垢版 |
2019/12/16(月) 21:59:33.00ID:UZ2w46Iu0
>>141だけど天才の>>142に教えてほしい。どうしたらいい？
2019/12/16(月) 23:05:55.21ID:ArNGhSEVa
その図面データに営利目的で使用してはいけないって書いてないか？
146デフォルトの名無しさん (ｱｳｱｳｳｰ Sa3b-G5xG)
垢版 |
2019/12/16(月) 23:19:30.71ID:zUbFdDFya
社内の人が作ってる図面なんだが
2019/12/17(火) 01:41:33.76ID:fNjlS94d0
だったら保存形式かえてもらえばすむやん
2019/12/17(火) 02:29:00.49ID:7tj6sNHj0
CADファイルならVISIOで開けるじゃね
VISIOにVBA載ってなかったか
2019/12/17(火) 02:51:35.82ID:Ef4LKPDY0
DWGもCOM経由でExcelから扱える
2019/12/17(火) 08:50:39.06ID:7E3y3B+ga
Excelで作成したものをフリーOfficeのCalcで開こうとするとエラーが出るので、違うPCのExcelにコードを写したいのですが、どうすれば良いでしょうか？
sheetは5枚でそれぞれデータが入力されています。
そのシートをコピーしてマクロコードをコピペすればできるのでしょうか？
コピーはできても貼り付ける場所が分かりません。教えてください。
2019/12/17(火) 09:41:37.65ID:vQ+5LFSo0
マクロは互換性ほぼ無いからなあ
2019/12/17(火) 15:37:53.37ID:/A3hSSic0
>>150
よく分からん。
ファイルをコピーしてそのファイルをそのまま使えば良いんじゃね?

要はさ、そのマクロのコ―ドがExcelの何を使っているかで変わるだろ。
コードを追って必要なものをコピーすれば使えるだろうよ。
2019/12/17(火) 20:23:29.92ID:3Fa5Zu3xa
慣れてる人ならできるかもしれんが
初心者じゃ無理だろ、互換性ないし
2019/12/17(火) 20:37:54.29ID:WWM9H/Hw0
OOoのVBAは相当単純なものじゃないと動かなかったような
色々省略するのもダメだったような気がする
2019/12/17(火) 20:55:11.10ID:BpmC86c/0
OOOBasicなんてあるんだな
勉強する人いるの？
2019/12/17(火) 21:06:28.96ID:WWM9H/Hw0
OOOBasicというのか・・・
数年前きまぐれにちょっと触って、あまりの互換性のなさに逃げ出したわ
157デフォルトの名無しさん (ﾜｯﾁｮｲ 1b8e-RPlZ)
垢版 |
2019/12/17(火) 23:47:48.67ID:eRzCNyCK0
>>150
馬鹿は死ね
158デフォルトの名無しさん (ﾜｯﾁｮｲ 5f01-uKDx)
垢版 |
2019/12/18(水) 02:07:35.42ID:ksLRDXXy0
なんでBasicにしたんだろね。
後発なんだから選べたはずなのに。
2019/12/18(水) 02:16:13.86ID:mwLPhsOw0
Cに似せるほうが大変だろう
2019/12/18(水) 07:45:18.46ID:enbCu13E0
>>158
VBが売れたから、機能はほぼそのままにVBAとしてofficeに搭載した
VCの登場はもっと後
時系列的に仕方ないとは思う
俺もCの方が良いとは思う
2019/12/18(水) 07:46:31.18ID:5n7ujQMK0
oooの話だろ
2019/12/18(水) 08:15:59.63ID:Bw/0QRZma
>>152

PC1のデータをPC2に移したい。でも、PC2にUSBなど外部のものを差し込めないしネットには繋がるけど仮想？か分からないけどデータをPC2のデスクトップとかドキュメントに保存できないので、
データの中身をコピーしてPC2でExcelを開きペーストすれば良いのではと考えたのですが、
Excelのデータを丸々コピーするにはまずシートをコピペしてその後マクロコードをコピペすれば良いのでしょうか？どこに貼り付ければ良いのかわかりません。
2019/12/18(水) 14:12:35.99ID:HS0oeyOA0
PC2のどこに移したいの？
PC2でデータを開き　データの中身をコピーして　Excel（新規ブック）を開きペーストすれば良い
でもその新規ブックは保存できないんでしょ？
2019/12/18(水) 14:53:42.73ID:mwLPhsOw0
会社のＰＣなら上司にまず先に相談しろ
2019/12/18(水) 15:30:08.92ID:Bw/0QRZma
>>163
PC2のデスクトップ
Excelを新規で開けば保存できる。
もしくは開きたいExcelのデータCalcでなら開ける。
Calcで開いてコピーしたものをExcelに貼り付けたら出来るのか？セル全範囲コピーして貼り付けてマクロコードもコピーして。
166デフォルトの名無しさん (ﾜｯﾁｮｲ 1b8e-RPlZ)
垢版 |
2019/12/18(水) 16:28:12.29ID:cW21FM1r0
>>162
馬鹿は死ね
2019/12/18(水) 18:12:16.35ID:2hbVJNuaa
シートの書式がコピーできるかな？
2019/12/18(水) 18:12:36.66ID:2hbVJNuaa
セルね
169デフォルトの名無しさん (ﾜｯﾁｮｲ e793-goRK)
垢版 |
2019/12/18(水) 18:28:12.80ID:jQts0Cg90
>>167
死ね
2019/12/18(水) 20:40:24.52ID:eYqAoNFQM
Officeクリップボードをクリアするにはどうしたらよいですか?
2019/12/18(水) 21:42:34.31ID:enbCu13E0
>>161
ちゅまん
2019/12/18(水) 22:44:40.50ID:ycaRvEPMx
>>171
かわいい
2019/12/18(水) 23:33:23.01ID:kDyrT7eN0
>>170
その文言でぐぐれ
2019/12/19(木) 17:59:43.75ID:OOaAV86L0
ちょっと教えて下さい

自動的に新しいcsvファイルが保存されてくるフォルダがあって
新しいファイルが保存されたら処理をするってコードを作りたいんですが
どんな感じにしたらよいのかアイデアが浮かびません

イメージは処理開始としてから処理停止とするまでずっと監視と処理をし続ける感じです
正攻法ってどんな感じでしょう？
2019/12/19(木) 18:07:29.48ID:FlPgbXc+r
定期的にフォルダの更新日時かファイル数を比較
2019/12/19(木) 19:15:47.42ID:PZllcG7iF
C#に乗り換えてFileSystemWatcherかな
そういうのはサービスにして常時起動したいだろ？どのみちVBAじゃ無理がある
2019/12/19(木) 20:13:02.64ID:r3z4nZn+0
>>174
csvデータは一般機能のpower queryで「フォルダ指定」で取得してから、何らかの加工をする必要があればVBAでやるというのはどうでしょう？
2019/12/19(木) 20:52:54.37ID:Uvgz+C1W0
>>174
Application.OnTimeでググればいろいろ出てくる

Excel/VBA: 特定のフォルダ内のファイルの更新状況を監視するマクロ
http://pineplanter.moo.jp/non-it-salaryman/2016/12/30/excel-vba-folder-monitor/
179174 (ﾜｯﾁｮｲ f71f-M3rQ)
垢版 |
2019/12/19(木) 21:50:34.66ID:OOaAV86L0
コメントありがとうございます。
C#は知識がなくて・・・。1か月後に必要なんですが今からいけるかな。。。

>>177
すこし理解に時間がかかっています。内容確認してみます。

>>178
参考例ありがとうございます。
更新したファイルだけ処理をしたいのですが、この例だと毎回全ファイルを読むみたいなので
例えば処理したファイル名はシートに記録しておいて
更新起動時に毎回処理したかしてないか判断するのも追加するって感じですかね。
2019/12/19(木) 22:24:23.56ID:O8pz/cv40
>>179
悪用すると色々できそうだな
2019/12/20(金) 10:20:51.92ID:A+TGdcd90
ファイルのタイムスタンプで判断すれば？
2019/12/20(金) 11:57:58.87ID:A+TGdcd90
Ruby で、ファイルの最終更新時刻を取得する

fs = File::Stat.new( "./a.txt" )
p fs.mtime #=> 2018-01-16 13:36:40 +0900 最終更新時刻

p current = Time.now #=> 2019-12-20 11:54:02 +0900
p current - fs.mtime, fs.mtime - current

#=> 60733042.351125, -60733042.351125
2019/12/20(金) 15:07:41.92ID:INeYifjy0
>>179
ファイルのアーカイヴ属性を変更すればいいよ。これなら新規以外にも、変更ファイルも拾えるはず。
184デフォルトの名無しさん (ﾜｯﾁｮｲ f78e-H4w9)
垢版 |
2019/12/20(金) 15:08:25.80ID:CBAVBsMi0
馬鹿ばっか
185デフォルトの名無しさん (ﾌﾞｰｲﾓ MMfb-BnkS)
垢版 |
2019/12/20(金) 15:24:50.75ID:CkbICV7EM
ハゲばっか
2019/12/20(金) 20:34:34.24ID:UWWbjOVR0
馴鹿ばっか
2019/12/21(土) 11:10:49.09ID:lLQbKr+9r
クリスマスだから
2019/12/21(土) 19:08:13.95ID:reWWVMAr0
セルに指定したフォントの情報などを変数（オブジェクト？）として
保持して、別のセルに貼り付けることはできないでしょうか

Public Sub textMacro()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = "testTESTtest"
ActiveCell.Characters(Start:=5, Length:=4).Font.ColorIndex = 3
End Sub

こんな感じで、文字列の途中で色を変えたりフォントを変えたり
した情報を構造体配列として保持しておいて、ソートしたり
特定条件で抽出したりしたデータを、書式ごと別のセルに
貼り付けたいのです

上記のようなコードで一旦別のワークシートに書き込んでやって、
そこを参照してコピーすれば解決します
ですが作業用ワークシートを作るのが美しくないので、なにか
方法がないものかと悩んでいます
2019/12/21(土) 19:30:42.69ID:EDn7hR2k0
>>188
rangeにでも入れとけばいいんじゃないの
2019/12/21(土) 19:57:20.88ID:reWWVMAr0
>>189
言葉足らずだったかもしれません

188で書いたコードのように、一旦どこかのセルに書式を設定するのではなく、
書式設定済みのデータを内部で生成したあとでセルに貼りたいのです
2019/12/21(土) 20:19:43.43ID:Z2fXXpuT0
アドバンスフィルタ使うとか。
2019/12/21(土) 21:42:26.79ID:u7lOGHHR0
>>188
activecellは rangeオブジェクト
rangeオブジェクトは必ずどこかの実態セルに紐付けしないと設定、参照できない
なので、実態セルを使いたくなければ、仮想的に実装するしかない
全てを網羅するには、それは非現実的（ムダ）だから私ならやらない
あとの判断はお任せする
（may be. GL）
2019/12/21(土) 21:50:56.66ID:vmSiEfoS0
ここには北海道のグラサンのスーパーハゲザーこないのー？
2019/12/21(土) 22:03:15.47ID:xOT/WAE8x
>>190
セルのコピーで済む処理をわざわざスクラッチする意味があるのか？
マクロ言語で車輪の再発明をするのは無駄だし結果的に美しくないものが出来上がって終わりなことが多いぞ


まぁ文字列書式の取得をするならRange.Charactersクラスを対象にForで一文字ずつループを回して、Fontプロパティで取れる各フォント属性を調べて構造体配列に格納していけば良い
Characters(i, 1)とか指定すれば一文字ずつ調べられる

具体的にはFontクラスのうち
Bold, ColorまたはColorIndex, FontStyle, Italic, Name, Size, ThemeColor, ThemeFont, Underlineあたりを取得しとけば何とかなるんじゃないか
2019/12/21(土) 22:26:10.14ID:reWWVMAr0
>>192
>>194
内部データとして、特定の文字だけボールドにしたり赤字にしたりしたデータを
保持しておいて、それをそのままセルに貼れないだろうかという趣旨でした

全然実用性のない例ですが、何らかの名簿データを元データとして入力すると
して、「佐藤」という名字だけを赤で表示したい、というケースがあったとします。

このとき、表示するときに年齢別だったり性別だったりの条件で抽出したりする
際に、毎回セルにデータを書き込むときにフォントの設定をする必要があるのか、
一度設定済みのデータを貼れば済むような方法があるのか、という質問でした

現在は毎回貼るたびにフォントの設定をしているので、もっと効率的な方法が
あるのではないかと考えた次第

でも残念ながら、どうやらなさそうですね
確かにセルをコピーすれば済む話なので、断念します
2019/12/21(土) 23:09:32.16ID:u7lOGHHR0
>>195
鈴木 健二
の鈴木だけを赤文字に設定したセルの書式コピーして
鈴木 太郎
セルに貼り付けしても、鈴木だけを赤にはできなかった
（バージョンによって違うかもだが）
ロジックでやるしかないんじゃないかな
鈴木or宇都宮を赤にするとか
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況