Excel VBA 質問スレ Part67

2020/06/26(金) 02:01:29.56

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

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

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2020/06/28(日) 16:12:05.93

俺 = "童貞"

2020/06/28(日) 16:56:51.40

Const 俺 As String = "童貞"

2020/06/28(日) 17:02:14.70

Do While 俺
俺 = 1
If 俺 > 1 Then
Exit Do
End If
Loop
MsgBox "happy"

2020/06/28(日) 17:20:31.84

>>35
式の中で最初に出てきた数字によって型が勝手に決められる →　嘘
32767以下の整数はInteger型　→　嘘
24& * 3600 (Double型)　→　嘘
24# * 3600 (Long型)　→　嘘

これで適当以外の何なんだよ

23 (ﾌｧﾐﾜｲ FFb3-pKDl) · 2020/06/28(日) 17:53:16.30

Timerに1000を掛けて見ても何か変だと思ったら
想定より早くIeTimerが実行される時があるみたいだ。

マシンの性能が良すぎるんですかね。
取り敢えず+200にして解決としときます。

MsgBoxの方は型とか考えたくないので
兎に角勉強になりました。　ありがとうございました。

2020/06/28(日) 19:11:04.99

>>24
MsgBox 24 * 3600　　　
MsgBox 24 * 36000

1行目はオーバーフローがでる
2行目はエラーが出ないで普通に計算されます

2020/06/28(日) 19:21:56.72

特定のフォルダ内のファイルのファイル名を変えて、ついでにプロパティのコメントにも文字を入力したいです
for each f in fol.files
　　f.name=ファイル名
　　f.comment=コメント
next
みたいな感じでやりたいんですが、f.commentではだめなようです
どう書けばいいか教えてください

2020/06/28(日) 19:23:35.13

Integer型 * Integer型　の計算結果が 32767を超えるとオーバーフローエラーがでる
Integer型 * Long型　の計算結果が 32767を超えてもエラーにならない

ってことじゃね

2020/06/28(日) 19:28:31.58

win10でRS-232C使うとかなりの確率で
Set MSComm1 = New MSComm　
のところでエラーになります

どうにかなりませんか

2020/06/28(日) 19:52:40.03

>>48
EasyComm　ってのに変えたほうがいいかも

2020/06/28(日) 20:30:15.72

>>46
変更後のファイル名が重複するんじゃね

2020/06/28(日) 20:32:56.52

>>46
あとファイルの種類によってはコメントが無いのもある

2020/06/28(日) 20:35:06.31

イジカミジゴー

2020/06/28(日) 20:39:46.50

>>48
Win32API直叩きしたら？
自分で全部管理できるし、枯れた技術で安定してる

2020/06/28(日) 21:16:46.93

>>52
B'z乙

2020/06/29(月) 10:38:25.17

excel標準でmscommの開発用のライセンス無いよね？

2020/06/29(月) 13:58:37.89

B1の値に応じて、C1からC100の値が変動します
A1からA100までの文字列をB1に順番に入れていって、1回ごとにC1からC100を別シートのD列に上から順にコピーしていきたいです
A1からA100とC1からC100は、必ずしも100まで値が埋まっているわけではなく、途中までしか埋まっていないこともあります
別シートにコピーするときに、C列の空白分はコピーしないでD列に空白行を作らないようにしたいです

Array ＝ Range(A1:A100)で配列になるらしいんですが、Forでループさせるときに1個ずつB1に入れていくところでつまずいてます
ここからどうやってA1からA100までを順番に取り出していけばいいのでしょうか？
それと、C列をコピーするときに空白のところまでで選択を止めて必要分だけコピーするにはどうすればいいですか？

2020/06/29(月) 14:21:14.85

二次元配列を一つずつ取り出すときはArray(上からの番号,1)
空白行までのコピーは
with worksheets(1)
.Range(.Cells(1,3) ,.Cells(1,3).End(xldown)).copy
end with

2020/06/29(月) 15:29:59.45

どういう配列が作られたのかがそもそもわかんないって話でしょ？

デバッグの仕方覚えて、Arrayに何が入るかを確認できるようになったほうがいいわ
どういう配列が入ってるのかも確認できずに中身取り出すとかそもそも間違ってる
一行ずつ実行しながらローカルウィンドウで確認すれば
例えばこんな感じで配列が作られるのが確認できる
https://i.imgur.com/wDjGPTf.png

2020/06/29(月) 15:49:01.80

>>57
ありがとうございます
縦一行でも二次元配列というのになるんですね
基本的なことが分かっておらず、すみません

>>58
こんなのがあったとは・・・
活用させてもらいます、ありがとうございました

2020/06/29(月) 15:52:32.50

仮想COM使ってるバーコードリーダーからEasycomm使ってデータ読み取ろうとしたけどわからんかった
その辺の知識身につけたいんだけどとっかかりが分からない
知識ある人がうらやましい

2020/06/29(月) 16:45:10.65

>>60
セルに入力するだけなら
USB接続のバーコードリーダーでピッピするだけ
いったい何のデータ？

2020/06/29(月) 17:04:47.20

>>61
いわゆるキーボードモード（USB HID）になってるようなバーコードリーダーならそうなんだけどね

今使ってるのは仮想COM(USB COM)の設定になってて、HIDに切り替えようとするとPC再起動
しないといけなかったり、何かと面倒なんだわ
COMモードじゃないとシステムに入力出来なかったりするものもあるしね
勝手にやっちゃうと職場の他の人に迷惑かけるし

そこでなんとかCOMモードのままでHID的にエクセルに出力できないかなって。
NW7のバーコード読取り結果を出力させたいってだけなんだけど、うまくいかなかった

2020/06/29(月) 17:16:51.22

基幹システムとExcelが分離してるなら
キーボードを別のキーボードにするだけの事だから
数千円でUSBバーコードリーダー買ってきてぶっ刺した方が早そう

2020/06/29(月) 17:27:14.16

おっしゃる通りなんだけど
そこに立ちはだかる「セキュリティ？」の壁なんだわ
特にハードは目に見える分、よく分かってないお偉いさんでも口挟んでくる
おれ超末端だからハード新規導入は無理だ
ソフトは誤魔化せるんでこっちから攻めたかった

2020/06/29(月) 17:37:54.02

それ、どっちがセキュアなんだかw

SD120(バーコードリーダー)を仮想シリアル通信で利用する
https://kagamikarasu.net/sd120_barcodereader_serial/
＞これでプログラムに組み込むのが容易になるかと思います。

その先は知らん!

2020/06/29(月) 17:47:36.41

>>64
上司に黙ってソフト変更とかするほうがセキュリティー的にNGだろ

2020/06/29(月) 17:50:11.99

業務時間も資産も使うんだし相談なり申請なりはしとけよ

2020/06/29(月) 17:50:20.02

ちょ、そこで終わられても

2020/06/29(月) 18:01:00.81

うまくいかないって具体的なエラーや表示もないし
どこまでできて何ができないか書いてないよね

2020/06/29(月) 18:11:42.18

セキュリティー的にはな、
でもうちのは「セキュリティ？」だから
>>69
一応何らかのデータは取得できてて、不正確な数字やらスペースやらは羅列される
まぁそもそも仕組み分からず動かしてる段階で自分としては納得出来てないんで
その辺を学習できるとっかかりが見つかればと思って書いてみただけ
心当たりなければいいよ
いそぐものでもないし課題の1つとして気長に取り組んでみるわ

2020/06/29(月) 18:19:31.08

関係ないけどcomってコミュニケーションのCOMでいいんだっけ？

昔 .com をカンパニーだと思ってたワシ

2020/06/29(月) 18:42:30.00

>>70
データ変換はこのスレの範疇なようなスレチの様な
1次元のいわゆる白黒バーコードはバイナリだから
https://ja.m.wikipedia.org/wiki/シリアルポート
とキーエンスのバーコード講座NW7
https://www.keyence.co.jp/ss/products/autoid/codereader/basic-nw7.jsp
でもお勉強しないとわかりません。

2020/06/29(月) 18:57:10.02

>>70
通信パラメタ（とくにbps）は合わせたのか？
とりあえずシリアル通信についてちゃんと勉強してからやれ

2020/06/29(月) 19:27:50.46

>>72
さんきゅ
目通してみる
>>73
パラメータはバーコードリーダのマニュアルに載ってたんでそれ使った

最後に試したのが1年ぐらい前なんで
そのうちまたやってみるわ
ほんとはバーコードリーダを家に持ち帰れればいろいろ実験できるんだけどなぁ
職場のPCだと手荒な実験できないんで捗らない

2020/06/29(月) 19:33:50.23

>>74
同じ品番のバーコードリーダーを買いましょうw

2020/06/29(月) 19:40:44.57

なんでわざわざコンプライアンスを破ろうとするのかわからん

2020/06/29(月) 20:58:53.82

>>70
昔、そういうハードのサポートしてた。
POS関連でバーコ―ドリーダー、レシートプリンタ、何とかディスプレイ(金額表示)、キャッシュドロワーとか。

シリアルならフロー制御がどうなってるかとか含めて、ちゃんと設定しないとダメだぞ。

2020/06/29(月) 22:23:41.83

ユーザーフォームに元に戻すボタンを作ろうと
奮闘中
・ブックやシート、列行の削除や挿入などはやらない
・セル内の数値同士の計算などをやらせる

基本的に無理だから*2のに対しては/2のボタン
とか逆を割り当てていこうかと思ったら四捨五入で座礁しますた
記録して元に復元させるってやり方かぁ
ムズそうすぎてちょっとあきらめてる
使用者には間違えるなと言うしかないか…

2020/06/29(月) 22:35:48.51

>>78
間違えるないうようなユーザーフォームな時点でな
ロジカルなシンキングな出来てないな

2020/06/29(月) 22:40:32.32

>>79
ユーザーフォームのボタンの配置とか割り当てとかタブ分けとか悪戦苦闘してる
そこらへんのセンスがないんだよぁ

2020/06/29(月) 22:44:33.56

>>80
作業を分けてフローチャートを紙に書いてみた方が良いよ
頭の中の整理できるから

2020/06/29(月) 22:50:58.30

一応タブ分けしてみた
一番左はデータを指定したシートに全部読み込む

次のタブで選択セル±の反転をさせる
最初はabsで絶対値にすればいいかと思ったけどマイナス値が必要な数値があったため*-1で

その次のタブで四捨五入
選択セルを0.00まで四捨五入するボタンと
0.0まで四捨五入するボタン

最後のタブで選択セル-A列にある数値の
引き算をさせるボタン

なんか工程毎にタブ分けしてみたけど
慣れないとみんな使いにくそう
なかなかなぁ

2020/06/29(月) 23:04:34.75

>>82
作業工程ごとに選択肢が複数あって
それぞれに元に戻すボタンをつけるの？
囲碁や将棋ソフトじゃないんだからさ
しかも完成しても使いにくいとか
考えたくないくらいめんどくせー、わし降りた。

2020/06/29(月) 23:31:00.77

>>83
そうなんよ、±反転はまぁいいとして
四捨五入と最後のまとめ計算がなぁ…と

2020/06/29(月) 23:34:38.34

操作する前に、シートをコピーして非表示にしとけば
戻すボタンでコピーしておいたシートに差し替えて戻すｗ

2020/06/30(火) 00:16:48.03

間違えることくらいあるだろう
人間だもの

2020/06/30(火) 00:22:19.44

>>84
タブじゃなくてWordの葉書作成ウィザードみたいにしたらどうかな
アプリのインストールみたいに
順番に選択肢や入力欄があって
下にボタンで進んで行くイメージ［<<戻る］［次へ>>］［完了］

2020/06/30(火) 08:45:53.97

>>84
根本的な考え方が違う。
フォームの内容を全部ユーザー定義かクラスに持たせて、そこ経由で動作させるようにする。
何かの動作はユーザー定義を元に動作させ、ユーザー定義をフォームに読み込むようにすれば簡単だ。

2020/06/30(火) 17:46:29.02

普段からそういうの慣れてる人ならできるだろうが初心者に言っても無理だろ

2020/06/30(火) 18:08:03.74

>>87
ありがとう、かなり見やすくかるかも
そのやり方でも作ってみるよ

>>88
ごめん、全く理解できん素人なので
教えてとは言えないからもう少しだけわかりやすく言ってもらえると
でも導入は厳しそうかなぁ

2020/06/30(火) 18:34:02.50

配列の勉強中です
１行目にタイトルが入っていて、２行目以降に値が入っているシートで、Ｃ列に"年"、Ｄ列に"月"、Ｅ列に"日"が入っています。
そこで、同じ行のＡ列にＣ～Ｅの値を結合して「年/月/日」の表示にしたいのですが、配列を使うにはどう書けばいいでしょうか？

Sub Test()

Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

ReDim MyArray(LastRow - 2, 3) As Variant
ReDim DayArray(LastRow - 2) As Variant

MyArray = Range("C2:E" & LastRow)

For i = 0 To LastRow - 2
DayArray(i) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)
Next i

Range("A2:A" & LastRow) = DayArray

End Sub

2020/06/30(火) 18:39:14.24

数式張り付けろや

2020/06/30(火) 18:47:22.61

>>91
代入先がLastRow-1行1列の2次元なら配列もそうせんと

91 (ﾜｯﾁｮｲ cfcc-pPzt) · 2020/06/30(火) 19:05:07.51

>>93
すみません。書き方を教えてください

2020/06/30(火) 19:24:15.34

>>94
何の書き方？配列サイズを代入先セル範囲の行数と列数分用意するだけだぞ

91 (ﾜｯﾁｮｲ cfcc-pPzt) · 2020/06/30(火) 19:40:39.93

↓ですか？
"インデックスが有効範囲にありません"のエラーがでます

Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

ReDim MyArray(LastRow - 2, 3) As Variant
ReDim DayArray(LastRow - 2, 1) As Variant

MyArray = Range("C2:E" & LastRow)

For i = 0 To LastRow - 2
DayArray(i, 1) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)
Next i

Range("A2:A" & LastRow) = DayArray

2020/06/30(火) 19:42:59.95

配列数クソめんどいからこれでいいよ
Sub test()
Dim endRow As Long
endRow = ActiveSheet.UsedRange.Rows.Count
Dim ary As Variant
ary = Range(Cells(1, 1), Cells(endRow, 5)).Value
Dim i As Long
For i = 1 To endRow Step 1
ary(i, 1) = VBA.DateSerial(ary(i, 3), ary(i, 4), ary(i, 5))
Next i
Range(Cells(1, 1), Cells(endRow, 1)).Value = ary
End Sub

2020/06/30(火) 19:47:07.61

range.valueからできる二次元配列の開始番号は0ではなく、1ですねえ

91 (ﾜｯﾁｮｲ cfcc-pPzt) · 2020/06/30(火) 20:10:45.24

>>95,97,98
動きました！ありがとうございます。

2020/06/30(火) 20:21:46.34

0番目のセルは無いのに0番目の配列要素はあるから面倒臭いよな

2020/06/30(火) 20:28:40.73

場合によってはoffset(i)にすればよい

91 (ﾜｯﾁｮｲ cfcc-pPzt) · 2020/06/30(火) 20:44:53.74

すみません勘違いをしていました。最終行の

「Range("A2:A" & LastRow) = DayArray」

だと、Ａ列が２行目以降空欄になってしまいます。

「Range(Cells(2, 1), Cells(LastRow, 1)) = DayArray」

も同じでしたが、

For i = 2 To LastRow
Range("A" & i) = DayArray(i - 1, 1)
Next i

だと入りますが、できれば一括で置き換えたいので、正しい書き方を教えてください

2020/06/30(火) 20:53:49.15

>>102
入力先のセルは1列分なのにDayArrayは2列分あって2列目に年月日が入ってる
ReDimを見直せ

91 (ﾜｯﾁｮｲ cfcc-pPzt) · 2020/06/30(火) 21:20:49.01

>>103

Forの処理をこれに変えたらできました。ありがとうございます

DayArray(i - 1, 0) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)

2020/06/30(火) 21:53:25.32

ListView(lvw1、lvw2)を2つ用意して、それぞれに同じデータを同じ順番に追加した状態です。
矢印キーの上下でlvw1とlvw2の同行選択状態ってどうやってやるんですか？

2020/06/30(火) 22:01:34.74

>>105
1と2で同じ操作をやりたいなら、別プロシージャに切り分けて(関数化)それをそれぞれに処理する方がわかりやすい

2020/06/30(火) 22:14:31.69

>>105
keydownイベントで上下の時になんやかんやする

2020/06/30(火) 22:19:33.56

操作に関わらず一緒でいいならchangeイベントで楽に済ませられるが…

2020/06/30(火) 22:39:03.05

Sub 四捨五入()
Dim PP As Range
Dim SELU As Range Set PP = Selection.EntireRow Set PP = Intersect(PP, Range("G:AE")) If WorksheetFunction.Count(PP) = 0 Then Exit Sub Set PP = PP.SpecialCells(xlCellTypeConstants, xlNumbers) For Each SELU In PP SELU = Round(SELU, 2) SELU.NumberFormatLocal = "0.00;-0.00;0" Next SELU End Sub

昨日の俺です
こんな感じで四捨五入をしてる
やはり記録するかコピーしといて間違えたら戻す作戦かなあ

2020/06/30(火) 22:56:39.68

A列とＢ列にＸＹデータが書かれているファイルがある

このファイルが複数あり、データを縦にくっつけてひとつのファイルにする方法をお願い致します。

2020/06/30(火) 23:33:01.16

>>110
「vba 別のブック間　コピー」でググればそれなりの答えのサイトは出てくるよ

2020/07/01(水) 16:24:36.34

グラフの列の範囲を１つ進めて、範囲が変わったグラフを眺めてまた次の範囲を選択するマクロにしたいのですが、うまくいきません。
sleepで５秒待機するループにすると、マクロが終わるまでグラフはそのままです。
何か良い方法はありますか？

2020/07/01(水) 16:38:43.05

新しい表示にしてから待機したらいいんでないの

2020/07/01(水) 17:00:30.01

DoEvents

2020/07/01(水) 17:01:38.04

眺め終わったら自分でボタン押す仕様にすればいい

2020/07/01(水) 18:02:59.35

眺めるってw

2020/07/01(水) 18:14:23.56

A列に上から1万個くらいのデータがある。

ある値以下なら行全体削除、上詰めにするマクロをお願い致します。

ググってもまとをえたのがなく困ってます。

2020/07/01(水) 18:21:37.82

>>117
作業列作ってある値以下なら1立てる→1でオートフィルタ→行削除

2020/07/01(水) 18:24:14.85

>>117
どうせ暇なんだろ、１万くらい手作業でやれよ

2020/07/01(水) 18:24:43.29

>>117
範囲をテーブルにする
条件に当てはまる行のa列から、データの入ってる最終列までClearContents
で、テーブルをある列基準に並び替え

2020/07/01(水) 18:34:27.89

wordをcomで操作しているんですが、基本的にcomは
同期処理できないんですか？
たとえば、よくあるprintout(wordVBAの)～Set wordApp = Nothing
の流れなんかは、Application.Waitを入れないと印刷される前に
終わってしまいます。

2020/07/01(水) 18:38:53.74

>>117
dim r as long
dim was as excel.worksheet
set we=activesheet
Do while r>0
if ws.cells(r,”A”)<ある値 then
ws.rows(r).delete shift:=xlup
else
r=r-1
end if
loop
パフォーマンスは知らん

2020/07/01(水) 19:21:24.82

そして動かないとか言ってくる初心者

2020/07/01(水) 19:44:41.54

deleteは重いわ誤作動起こしやすいわいいことないよな

2020/07/01(水) 19:59:04.37

誤作動なんて起こすの？
単にセル番号計算ミスしたスクリプト書くだけなら理解できるけど、誤作動なんてあったら使えないな

2020/07/01(水) 20:06:30.76

フィルターかけてカレントリージョンでコピーして新規シートに貼り付けが良さそう

2020/07/01(水) 21:01:32.84

>>122
(r,”A”)<ある値
顔文字に見えたわw

2020/07/01(水) 21:43:01.53

Webで見たぐらいの初心者なのですが
書式設定の複数1行列を色変える作業が
200回ほどやらなきゃいけなく
マクロ組んでみようかと頑張ったのですが
上手くいきません

Dim a As Integer
Dim row1 As Integer
row1 = 3
For a = 0 To 200
Columns("row1 + a , P + a").Select
Selection.Format Conditions.以下略
Selection.Format Conditions以下略
With Selection.略
Selection略
Selection略
Selection略
End With
Next a

row1を無くしてb=3
これをColumnsをRange(b+a,b+a)
で出来ますでしょうか？
Rangeの指定カッコ内では数式を入れられないとかありますか？

2020/07/01(水) 22:17:29.48

Range(cells(a,1),cells(a,16)).Select
でやってみます

2020/07/01(水) 22:45:11.71

何故初心者はSelectしたがるのか

2020/07/01(水) 23:36:22.71

>>35
>>130
マクロの記録がその手のコードを生成するからでしょ

2020/07/02(木) 01:40:39.72

条件付き書式とかは？

2020/07/02(木) 02:34:51.75

このメニューで、空白セルにチェック入れると空白セルを選択しますね。

では例えば値が100以上など、条件つきのセルを選ぶ事はできますか？

https://i.imgur.com/zyDAZ0X.jpg

2020/07/02(木) 04:05:38.32

教えてください。
imagemsoの名称からfaceidに変換することは可能でしょうか？
もしくはmsoBarPopupでimagemsoを使用することは可能でしょうか？

2020/07/02(木) 06:28:30.74

>>133
選んだセルをどうしたいかによるけど、オートフィルかけて選択とか

2020/07/02(木) 08:20:19.52

他人の作ったコードはなぜ読む気がしないのか

2020/07/02(木) 10:30:47.89

読む必要はないからな

2020/07/02(木) 12:31:17.08

馬鹿の特徴

「教えて」「助けて」

で始まる書き込みをする

2020/07/02(木) 13:06:37.09

>>138
馬鹿でもいいです。
じゃあ、模範的な質問の仕方を教えてください。