Excel VBA 質問スレ Part67

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん (ﾜｯﾁｮｲ 33da-3+hg)
垢版 |
2020/06/26(金) 02:01:29.56ID:uDfmpksE0
!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/26(金) 21:05:20.01ID:ZjxMZdyJ0
Elseの：はミスです…
オプションボタンの定義…ググりなおします
>>9そうです、全文では無いんですよね…全文検索くんもDLして
編集しようとしましたが今の私では無理でした。
2020/06/26(金) 23:24:58.46ID:SBXE4EMs0
>>6
ぱっと見で分かるのは、OptionButton1が再定義されてて目的の値を参照してない事
Dim OptionButton1 を消して、>>3で自分で書いたようにOptionButton1.valueを評価してみて

あと、オブジェクト名にButtonって入ってるからコントロールだと思うけど、
もしコマンドボタンならこの用途でValueプロパティは使えないから、チェックボックスにしよう

解説サイトのソースも修正
grepExcelSheetメソッド
Loop While rTmpFoundCell <> rFoundFirstCell
↓
Loop While rTmpFoundCell.Address <> rFoundFirstCell.Address

openExcelFilesメソッド
sTmpPath = Dir(sFilePath & "*.xls")
↓
sTmpPath = Dir(sFilePath & "*.xls?")

それに伴って Do While sTmpPath <> "" 内の文を
If Not sTmpPath Like "*." & ThisWorkbook.Name Then 〜 End If
で括る

細かいこと言うと、Blean型を判定するときにリテラルと比較（= True や = False）はカッコ悪いから止めた方がいい
解説サイトではやってるけどね
2020/06/26(金) 23:25:32.05ID:ZjxMZdyJ0
>>3です
無理やりですが自己解決しました
標準モジュール2にアウトプットのコードをさわったものをコピペして
コマンドボタンクリックしたときの動作をIfでCallするようにしたら出来ました

でもやっぱりこのコード重いですね。どうにか軽くする方法無いものですかね。
2020/06/26(金) 23:28:15.39ID:ZjxMZdyJ0
>>11修正ありがとうございます、提案されたやり方も試してみます！
2020/06/26(金) 23:49:56.02ID:kQH1YyZn0
配列にすれば
あとやってるかとは思うけど自動計算と画面更新オフ
2020/06/26(金) 23:53:39.92ID:ZjxMZdyJ0
すみません、配列にするとはどういうことをすることですか？
2020/06/27(土) 00:17:07.69ID:KqbSykww0
Cells(1, 1).Value = "あ"
Cells(1, 2).Value = "い"
Cells(1, 3).Value = "う"
　　↓　↓　↓
Range("A1:C1").Value = Array("あ", "い", "う")

1個ずつじゃなくて、一気に放り込めってことでしょう。>>15
2020/06/27(土) 02:29:31.12ID:gCUCp3Nd0
そこを高速化してもしかたないのでは・・・
2020/06/27(土) 05:22:36.02ID:J5vHObt/0
他人にコード書かせて動かしたら遅いと文句言うのって人としてどうなの？
19デフォルトの名無しさん (ﾜｯﾁｮｲ 8fba-8HP2)
垢版 |
2020/06/27(土) 08:53:12.31ID:9qJBLgyD0
>>
20デフォルトの名無しさん (ﾜｯﾁｮｲ 8ff1-of6p)
垢版 |
2020/06/27(土) 09:24:13.86ID:YKskLwzM0
<<
2020/06/27(土) 09:43:15.25ID:wwwZDyDia
ビットシフトとは各桁を 1 桁左や右にずらすことです。

https://www.tipsfound.com/vba/02018

VBA にはそのような演算子はありませんが次のようにしてできます。
\ (2 ^ 1) ' 1 桁右へシフト
* (2 ^ 1) ' 1 桁左へシフト
2020/06/27(土) 10:06:21.20ID:lV2RRwzl0
実行時エラー '6':

オーバーフローしました。
23デフォルトの名無しさん (ﾜｯﾁｮｲ cf46-pKDl)
垢版 |
2020/06/27(土) 10:49:37.32ID:gKvpRzl30
今日は、タイマー作ってます。
IeTimerに
Private Sub IeTimer1_Timer()
Me.Label1 = Now
Me.IeTimer1.Interval = 1000 - (Timer Mod 1000)
End Sub
とかいて見たのですが、何か一秒の長さが変に感じます。
気のせいなんでしょうか?。

Excel 97
OS;Windows 98
機種;NEC VersaPro NX VP13C
24デフォルトの名無しさん (ﾜｯﾁｮｲ cf46-pKDl)
垢版 |
2020/06/27(土) 10:55:33.95ID:gKvpRzl30
今日は、タイマー作ってます。
MsgBox 36000*24
はエラーにならないが
MsgBox 24*3600
は実行時エラーオーバーフローしました。
となります。

どうしてなんでしょうか?。
2020/06/27(土) 11:02:47.04ID:aTkq7ke+a
>>23
教えてキャン>>98<<ビー
https://oshiete.goo.ne.jp/qa/597623.html
＞Win98系のＯＳの場合ですが、処理中に、
頻繁にDoＥventsを実行する必要があります。
　これは、ＯＳの特性です。
2020/06/27(土) 11:13:07.90ID:lV2RRwzl0
釣りなのか本気なのか判断に困る質問だな
2020/06/27(土) 11:48:36.47ID:P+1UXm0n0
ヤベーイ
2020/06/27(土) 23:20:44.51ID:J5vHObt/0
動作がおかしいのは古いからじゃないかな
2020/06/28(日) 00:22:47.53ID:/mLredfO0
VBAで宣言せずに数式を書くと、式の中で最初に出てきた数字によって型が勝手に決められる仕様
小数点があったら、小数点以下が0でもDouble型
32767以下の整数はInteger型
32768以上の整数はLong型
になる

だから「24*3600」という式を書くと、最初に出てくる数字は24だからInteger型とみなされて、24*3600はInteger型の制限範囲を超えてるからエラーになる

変数を使わずに数値の型を指定したい時は型文字を使うか実数型にしてしまう
この場合は
24& * 3600 (Double型)
24.0 * 3600 (Double型)
24# * 3600 (Long型)
と書けばエラーにならない

ちなみにVBA(Excel)のバージョンは関係ない
最新でも仕様は変わってないから同じ所でエラーになる
2020/06/28(日) 07:42:30.13ID:sqW+tWgm0
>>29
へー面白いね
2020/06/28(日) 07:45:50.98ID:/E8O58u/0
プロジェクトウィンドウが何かの表紙に名前順にソートされてしまったんですが、標準モジュール、クラスモジュール等の階層表示ってどうやって戻すのでしょうか
2020/06/28(日) 08:01:52.55ID:8pre44tM0
フォルダーの切り替え(黄色いフォルダの絵のアイコン) をクリック
2020/06/28(日) 11:43:32.56ID:VHBre49Bd
>>30
結構、常識だよ。
こういうエラーの時に真っ先に考える。
覚えておくと良い。
詳しく覚えなくても、勝手に型判定のせいかなと考えるだけで全然違う。
2020/06/28(日) 12:14:58.87ID:dFUOn9oJ0
適当なこと言っててワロタ
35デフォルトの名無しさん (ﾜｯﾁｮｲ 7f8e-hynA)
垢版 |
2020/06/28(日) 13:50:31.47ID:Gnbk8j2I0
>>34
何が適当なんだ？
言語仕様の基本だろう
>>33に俺を言うべき
36デフォルトの名無しさん (ﾜｯﾁｮｲ 7f8e-hynA)
垢版 |
2020/06/28(日) 13:50:52.16ID:Gnbk8j2I0
俺ではなくお礼
2020/06/28(日) 14:21:14.54ID:t+bqi6uL0
俺
38デフォルトの名無しさん (ﾜｯﾁｮｲ 8ff1-of6p)
垢版 |
2020/06/28(日) 14:41:16.58ID:O22xrl4H0
>>33
俺
2020/06/28(日) 15:17:28.32ID:IDO0V0ZPa
dim 俺 as string
2020/06/28(日) 16:12:05.93ID:WMjrpZfvF
俺 = "童貞"
2020/06/28(日) 16:56:51.40ID:69pcuKP2M
Const 俺 As String = "童貞"
2020/06/28(日) 17:02:14.70ID:YhC9oGcZa
Do While 俺
俺 = 1
If 俺 > 1 Then
Exit Do
End If
Loop
MsgBox "happy"
2020/06/28(日) 17:20:31.84ID:dFUOn9oJ0
>>35
式の中で最初に出てきた数字によって型が勝手に決められる →　嘘
32767以下の整数はInteger型　→　嘘
24& * 3600 (Double型)　→　嘘
24# * 3600 (Long型)　→　嘘

これで適当以外の何なんだよ
4423 (ﾌｧﾐﾜｲ FFb3-pKDl)
垢版 |
2020/06/28(日) 17:53:16.30ID:n2mRaag0F
Timerに1000を掛けて見ても何か変だと思ったら
想定より早くIeTimerが実行される時があるみたいだ。

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

MsgBoxの方は型とか考えたくないので
兎に角勉強になりました。　ありがとうございました。
2020/06/28(日) 19:11:04.99ID:LbQBFJ/O0
>>24
MsgBox 24 * 3600　　　
MsgBox 24 * 36000

1行目はオーバーフローがでる
2行目はエラーが出ないで普通に計算されます
46デフォルトの名無しさん (ﾜｯﾁｮｲ 0f43-3pn7)
垢版 |
2020/06/28(日) 19:21:56.72ID:nTfCGwDP0
特定のフォルダ内のファイルのファイル名を変えて、ついでにプロパティのコメントにも文字を入力したいです
for each f in fol.files
　　f.name=ファイル名
　　f.comment=コメント
next
みたいな感じでやりたいんですが、f.commentではだめなようです
どう書けばいいか教えてください
2020/06/28(日) 19:23:35.13ID:LbQBFJ/O0
Integer型 * Integer型　の計算結果が 32767を超えるとオーバーフローエラーがでる
Integer型 * Long型　の計算結果が 32767を超えてもエラーにならない

ってことじゃね
2020/06/28(日) 19:28:31.58ID:Vk36drdU0
win10でRS-232C使うとかなりの確率で
Set MSComm1 = New MSComm　
のところでエラーになります

どうにかなりませんか
2020/06/28(日) 19:52:40.03ID:LbQBFJ/O0
>>48
EasyComm　ってのに変えたほうがいいかも
2020/06/28(日) 20:30:15.72ID:LbQBFJ/O0
>>46
変更後のファイル名が重複するんじゃね
2020/06/28(日) 20:32:56.52ID:LbQBFJ/O0
>>46
あとファイルの種類によってはコメントが無いのもある
2020/06/28(日) 20:35:06.31ID:+IGHtKO4a
イジカミジゴー
2020/06/28(日) 20:39:46.50ID:yfJkjLDvM
>>48
Win32API直叩きしたら？
自分で全部管理できるし、枯れた技術で安定してる
2020/06/28(日) 21:16:46.93ID:yxdrwHPGa
>>52
B'z乙
2020/06/29(月) 10:38:25.17ID:2N59jCILa
excel標準でmscommの開発用のライセンス無いよね？
56デフォルトの名無しさん (ｱｳｱｳｶｰ Sac3-jwjG)
垢版 |
2020/06/29(月) 13:58:37.89ID:T8IL5X90a
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.85ID:81b3XCdqM
二次元配列を一つずつ取り出すときはArray(上からの番号,1)
空白行までのコピーは
with worksheets(1)
.Range(.Cells(1,3) ,.Cells(1,3).End(xldown)).copy
end with
2020/06/29(月) 15:29:59.45ID:TB+oeC/70
どういう配列が作られたのかがそもそもわかんないって話でしょ？

デバッグの仕方覚えて、Arrayに何が入るかを確認できるようになったほうがいいわ
どういう配列が入ってるのかも確認できずに中身取り出すとかそもそも間違ってる
一行ずつ実行しながらローカルウィンドウで確認すれば
例えばこんな感じで配列が作られるのが確認できる
https://i.imgur.com/wDjGPTf.png
59デフォルトの名無しさん (ｱｳｱｳｶｰ Sac3-jwjG)
垢版 |
2020/06/29(月) 15:49:01.80ID:T8IL5X90a
>>57
ありがとうございます
縦一行でも二次元配列というのになるんですね
基本的なことが分かっておらず、すみません

>>58
こんなのがあったとは・・・
活用させてもらいます、ありがとうございました
2020/06/29(月) 15:52:32.50ID:TB+oeC/70
仮想COM使ってるバーコードリーダーからEasycomm使ってデータ読み取ろうとしたけどわからんかった
その辺の知識身につけたいんだけどとっかかりが分からない
知識ある人がうらやましい
2020/06/29(月) 16:45:10.65ID:6d9dL1u1a
>>60
セルに入力するだけなら
USB接続のバーコードリーダーでピッピするだけ
いったい何のデータ？
2020/06/29(月) 17:04:47.20ID:TB+oeC/70
>>61
いわゆるキーボードモード（USB HID）になってるようなバーコードリーダーならそうなんだけどね

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

そこでなんとかCOMモードのままでHID的にエクセルに出力できないかなって。
NW7のバーコード読取り結果を出力させたいってだけなんだけど、うまくいかなかった
2020/06/29(月) 17:16:51.22ID:6d9dL1u1a
基幹システムとExcelが分離してるなら
キーボードを別のキーボードにするだけの事だから
数千円でUSBバーコードリーダー買ってきてぶっ刺した方が早そう
2020/06/29(月) 17:27:14.16ID:TB+oeC/70
おっしゃる通りなんだけど
そこに立ちはだかる「セキュリティ？」の壁なんだわ
特にハードは目に見える分、よく分かってないお偉いさんでも口挟んでくる
おれ超末端だからハード新規導入は無理だ
ソフトは誤魔化せるんでこっちから攻めたかった
65デフォルトの名無しさん (ｱｳｱｳｴｰ Sabf-PKxn)
垢版 |
2020/06/29(月) 17:37:54.02ID:6d9dL1u1a
それ、どっちがセキュアなんだかw

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

その先は知らん!
2020/06/29(月) 17:47:36.41ID:pfpn6QaF0
>>64
上司に黙ってソフト変更とかするほうがセキュリティー的にNGだろ
2020/06/29(月) 17:50:11.99ID:j9Yq0PlQr
業務時間も資産も使うんだし相談なり申請なりはしとけよ
2020/06/29(月) 17:50:20.02ID:TB+oeC/70
ちょ、そこで終わられても
2020/06/29(月) 18:01:00.81ID:pfpn6QaF0
うまくいかないって具体的なエラーや表示もないし
どこまでできて何ができないか書いてないよね
2020/06/29(月) 18:11:42.18ID:TB+oeC/70
セキュリティー的にはな、
でもうちのは「セキュリティ？」だから
>>69
一応何らかのデータは取得できてて、不正確な数字やらスペースやらは羅列される
まぁそもそも仕組み分からず動かしてる段階で自分としては納得出来てないんで
その辺を学習できるとっかかりが見つかればと思って書いてみただけ
心当たりなければいいよ
いそぐものでもないし課題の1つとして気長に取り組んでみるわ
71デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM4f-TKJB)
垢版 |
2020/06/29(月) 18:19:31.08ID:6uUvaw7SM
関係ないけどcomってコミュニケーションのCOMでいいんだっけ？

昔 .com をカンパニーだと思ってたワシ
2020/06/29(月) 18:42:30.00ID:6d9dL1u1a
>>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.02ID:2GVfwDQBr
>>70
通信パラメタ（とくにbps）は合わせたのか？
とりあえずシリアル通信についてちゃんと勉強してからやれ
2020/06/29(月) 19:27:50.46ID:TB+oeC/70
>>72
さんきゅ
目通してみる
>>73
パラメータはバーコードリーダのマニュアルに載ってたんでそれ使った

最後に試したのが1年ぐらい前なんで
そのうちまたやってみるわ
ほんとはバーコードリーダを家に持ち帰れればいろいろ実験できるんだけどなぁ
職場のPCだと手荒な実験できないんで捗らない
2020/06/29(月) 19:33:50.23ID:6d9dL1u1a
>>74
同じ品番のバーコードリーダーを買いましょうw
2020/06/29(月) 19:40:44.57ID:pfpn6QaF0
なんでわざわざコンプライアンスを破ろうとするのかわからん
2020/06/29(月) 20:58:53.82ID:p0BvfhePd
>>70
昔、そういうハードのサポートしてた。
POS関連でバーコ―ドリーダー、レシートプリンタ、何とかディスプレイ(金額表示)、キャッシュドロワーとか。

シリアルならフロー制御がどうなってるかとか含めて、ちゃんと設定しないとダメだぞ。
2020/06/29(月) 22:23:41.83ID:R8I/2vyw0
ユーザーフォームに元に戻すボタンを作ろうと
奮闘中
・ブックやシート、列行の削除や挿入などはやらない
・セル内の数値同士の計算などをやらせる

基本的に無理だから*2のに対しては/2のボタン
とか逆を割り当てていこうかと思ったら四捨五入で座礁しますた
記録して元に復元させるってやり方かぁ
ムズそうすぎてちょっとあきらめてる
使用者には間違えるなと言うしかないか…
2020/06/29(月) 22:35:48.51ID:6d9dL1u1a
>>78
間違えるないうようなユーザーフォームな時点でな
ロジカルなシンキングな出来てないな
2020/06/29(月) 22:40:32.32ID:R8I/2vyw0
>>79
ユーザーフォームのボタンの配置とか割り当てとかタブ分けとか悪戦苦闘してる
そこらへんのセンスがないんだよぁ
2020/06/29(月) 22:44:33.56ID:9POaIpQ1a
>>80
作業を分けてフローチャートを紙に書いてみた方が良いよ
頭の中の整理できるから
2020/06/29(月) 22:50:58.30ID:R8I/2vyw0
一応タブ分けしてみた
一番左はデータを指定したシートに全部読み込む

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

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

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

なんか工程毎にタブ分けしてみたけど
慣れないとみんな使いにくそう
なかなかなぁ
2020/06/29(月) 23:04:34.75ID:SxZPiP67a
>>82
作業工程ごとに選択肢が複数あって
それぞれに元に戻すボタンをつけるの？
囲碁や将棋ソフトじゃないんだからさ
しかも完成しても使いにくいとか
考えたくないくらいめんどくせー、わし降りた。
2020/06/29(月) 23:31:00.77ID:R8I/2vyw0
>>83
そうなんよ、±反転はまぁいいとして
四捨五入と最後のまとめ計算がなぁ…と
2020/06/29(月) 23:34:38.34ID:PVh3udJT0
操作する前に、シートをコピーして非表示にしとけば
戻すボタンでコピーしておいたシートに差し替えて戻すｗ
2020/06/30(火) 00:16:48.03ID:HFjntDoM0
間違えることくらいあるだろう
人間だもの
87デフォルトの名無しさん (ｱｳｱｳｴｰ Sabf-PKxn)
垢版 |
2020/06/30(火) 00:22:19.44ID:l6PnVpoXa
>>84
タブじゃなくてWordの葉書作成ウィザードみたいにしたらどうかな
アプリのインストールみたいに
順番に選択肢や入力欄があって
下にボタンで進んで行くイメージ［<<戻る］［次へ>>］［完了］
2020/06/30(火) 08:45:53.97ID:LUNyPqILd
>>84
根本的な考え方が違う。
フォームの内容を全部ユーザー定義かクラスに持たせて、そこ経由で動作させるようにする。
何かの動作はユーザー定義を元に動作させ、ユーザー定義をフォームに読み込むようにすれば簡単だ。
2020/06/30(火) 17:46:29.02ID:HFjntDoM0
普段からそういうの慣れてる人ならできるだろうが初心者に言っても無理だろ
2020/06/30(火) 18:08:03.74ID:ulIgP7Tu0
>>87
ありがとう、かなり見やすくかるかも
そのやり方でも作ってみるよ

>>88
ごめん、全く理解できん素人なので
教えてとは言えないからもう少しだけわかりやすく言ってもらえると
でも導入は厳しそうかなぁ
2020/06/30(火) 18:34:02.50ID:iUIa6Vpk0
配列の勉強中です
１行目にタイトルが入っていて、２行目以降に値が入っているシートで、Ｃ列に"年"、Ｄ列に"月"、Ｅ列に"日"が入っています。
そこで、同じ行のＡ列にＣ〜Ｅの値を結合して「年/月/日」の表示にしたいのですが、配列を使うにはどう書けばいいでしょうか？

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
92デフォルトの名無しさん (ﾜｯﾁｮｲ 4fe6-TKJB)
垢版 |
2020/06/30(火) 18:39:14.24ID:Z3NkR/bn0
数式張り付けろや
2020/06/30(火) 18:47:22.61ID:x94da/wE0
>>91
代入先がLastRow-1行1列の2次元なら配列もそうせんと
2020/06/30(火) 19:05:07.51ID:iUIa6Vpk0
>>93
すみません。書き方を教えてください
2020/06/30(火) 19:24:15.34ID:x94da/wE0
>>94
何の書き方？配列サイズを代入先セル範囲の行数と列数分用意するだけだぞ
2020/06/30(火) 19:40:39.93ID:iUIa6Vpk0
↓ですか？
"インデックスが有効範囲にありません"のエラーがでます

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.95ID:s83lPCQk0
配列数クソめんどいからこれでいいよ
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.61ID:s83lPCQk0
range.valueからできる二次元配列の開始番号は0ではなく、1ですねえ
2020/06/30(火) 20:10:45.24ID:iUIa6Vpk0
>>95,97,98
動きました！ありがとうございます。
2020/06/30(火) 20:21:46.34ID:h7LW9tmr0
0番目のセルは無いのに0番目の配列要素はあるから面倒臭いよな
2020/06/30(火) 20:28:40.73ID:x94da/wE0
場合によってはoffset(i)にすればよい
2020/06/30(火) 20:44:53.74ID:iUIa6Vpk0
すみません勘違いをしていました。最終行の

「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.15ID:x94da/wE0
>>102
入力先のセルは1列分なのにDayArrayは2列分あって2列目に年月日が入ってる
ReDimを見直せ
2020/06/30(火) 21:20:49.01ID:iUIa6Vpk0
>>103

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

DayArray(i - 1, 0) = MyArray(i, 1) & "/" & MyArray(i, 2) & "/" & MyArray(i, 3)
2020/06/30(火) 21:53:25.32ID:5LSCXiWjd
ListView(lvw1、lvw2)を2つ用意して、それぞれに同じデータを同じ順番に追加した状態です。
矢印キーの上下でlvw1とlvw2の同行選択状態ってどうやってやるんですか？
2020/06/30(火) 22:01:34.74ID:3GBrKjbXa
>>105
1と2で同じ操作をやりたいなら、別プロシージャに切り分けて(関数化)それをそれぞれに処理する方がわかりやすい
2020/06/30(火) 22:14:31.69ID:x94da/wE0
>>105
keydownイベントで上下の時になんやかんやする
2020/06/30(火) 22:19:33.56ID:x94da/wE0
操作に関わらず一緒でいいならchangeイベントで楽に済ませられるが…
2020/06/30(火) 22:39:03.05ID:ulIgP7Tu0
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.68ID:RrxBtxCBr
A列とＢ列にＸＹデータが書かれているファイルがある

このファイルが複数あり、データを縦にくっつけてひとつのファイルにする方法をお願い致します。
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況