Excel VBA 質問スレ Part73

2021/09/13(月) 07:29:59.47

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

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

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/
Excel VBA 質問スレ Part71
https://mevius.5ch.net/test/read.cgi/tech/1621914481/

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

2021/12/04(土) 14:42:38.47

>>813
https://support.microsoft.com/ja-jp/office/month-%E9%96%A2%E6%95%B0-579a2881-199b-48b2-ab90-ddba0eba86e8

2021/12/04(土) 14:59:32.05

>>813
月を取り出したらDateserialで好きな日付のシリアル値を作ればいいアル

2021/12/04(土) 16:20:58.44

>>813 >>814
ありがとうございます

2021/12/04(土) 16:21:36.10

>>814 >>815でした。
すみません。
改めてありがとうございます

2021/12/04(土) 20:10:40.70

1.A列にシートごとに不特定多数(X)のセルがある
2.セルの個数にしたがってを4等分する(小数点以下切り上げ)
3.等分したデータをBCDへ移動する

これをやりたいんだけ2をどう表現すればいいのかわからない
X / 4ってどうやったら表現できますか？

データの最終行の取得方法はわかったけど使い方がわからない…

2021/12/04(土) 20:21:19.59

>>818
セルの個数が小数点になるのが理解不能
なんか文がおかしい

2021/12/04(土) 20:26:20.12

>>818
ごめん4等分か。
セル個数数えて4で割れば数は出ると思うから、
その数をcellsでn、n+1から2*n、2n+1から3nで範囲選択してコピーとかすればいいんじゃね

2021/12/04(土) 20:27:45.56

>>819
レスありがとう
4等分って書き方が悪かったかな
A列セルが1234こあったら1234 / 4 =308.5
ABCD列に309 309 309 307こずつ配置したい

2021/12/04(土) 21:22:26.78

これが構文エラーになっちゃうのはなんででしようか？
https://i.imgur.com/uZw8aRE.jpg

2021/12/04(土) 21:40:43.97

>>818
> 2.セルの個数にしたがってを4等分する(小数点以下切り上げ)
[1] A, B, C 列の個数 = WorksheetFunction.RoundUp(A列の個数, 0)
[2] D列の個数 = 元のA列の個数 - 3 * ([1]で求めた個数)

2021/12/04(土) 21:44:29.23

>>822
なんかに代入してないから

2021/12/05(日) 05:50:33.57

>>793
mac版で編集、保存したファイルでなった事あるよ。
winで作ったxlsmをmacで編集、保存する。
後phpexcelなどのライブラリーを使ってwebからダウンロードさせたファイルでも同様の現象になることがあったなぁ。

2021/12/05(日) 07:36:04.48

MacのExcel VBAは使い物にならないからやめとけとあれほど

2021/12/05(日) 07:48:10.10

>>822
Sub Macro1()
　　A列 = 1234　'全体の個数
　　分割 = WorksheetFunction.RoundUp(A列 / 4, 0)　'分割後の個数
　　Cells(分割 * 1 + 1, "A").Resize(分割, 1).Cut Destination:=Cells(1, "B")　'コピペ2列目
　　Cells(分割 * 2 + 1, "A").Resize(分割, 1).Cut Destination:=Cells(1, "C")　'3列目
　　Cells(分割 * 3 + 1, "A").Resize(分割, 1).Cut Destination:=Cells(1, "D")　'4列目
End Sub

2021/12/05(日) 11:29:11.55

数値をバーコード化するマクロ使うと、かなりの確率でWorksheet クラスの Paste メソッドが失敗しました。が起きるのはなぜでしょうか

貼り付けコマンド直後にDoEventやると少し緩和されます

2021/12/05(日) 11:45:46.53

>>828
そのマクロの作者に聞いてください
うちで使ってるバーコードマクロだとそんな症状は出ないので

2021/12/05(日) 13:12:32.58

>>828
バーコードフォントってのがあるから、そっち使ったほうがいいと思う

2021/12/05(日) 16:00:44.92

　　　　　　　　　　　|
　　　　　　　　　　 |　　彡⌒ミ
　　　　　　　　　　　＼ (´･ω･`)また髪の話してる
　　　　　　　　　　　　　(|　　　|)::::
　　　　　　　　　　　　　(γ　/:::::::
　　　　　　　　　　　　　　し＼:::
　　　　　　　　　　　　　　　　　＼

2021/12/05(日) 16:26:53.62

>>831
このハゲ！

2021/12/05(日) 17:47:50.87

バーコードフォント使う方法ってダウンロードしないとダメじゃね
現場でこそこそやってる俺はOLEオブジェクトだったか使う王道でやるしかなかったわ

ぐぐるとこの方法がトップに出てくるわけなんだけど
もし>>828がこの方法を使っているとして
何の目的でpasteメソッドを使ってるんだろうね
普通にバーコード作成するだけだと、たぶんだけどpasteメソッドは出てこない

2021/12/10(金) 18:22:43.48

質問つか愚痴だけども…
閑散期にやってるアピールで始めたVBA、
入れ過ぎた塩を中和するのに砂糖を入れ、
入れ過ぎた砂糖を中和するのに塩を入れるのを繰り返した
ヘタクソ料理みたいなコーディングの果てに繁忙期に食い込んで上司の視線が痛い…
依然としてどっか直したらどっかが狂う…
業務改善を謳いながら結果的に仕事と混乱をもたらしただけだった…

2021/12/10(金) 19:14:12.64

>>834
典型的な初心者で草

俺も最初は随分と苦労したけど、
そうなったら最初から書き直したほうが絶対に早いし、腕も上がる
糞みたいなコードを読み直す時間は無駄
せっかく書いたのに・・・って思う気持ちは窓から投げ捨てろ

2021/12/10(金) 21:34:03.94

いやいや
失敗は成功の母
一度始めたことは苦しくても頑張れよ
出来の悪いコードを苦労して改良して動くようにしたとき、
人はレベルが一段上がる

2021/12/10(金) 21:53:28.84

一般的にデバッグはコーディングの10倍ぐらい経験や知識が必要な作業だから初心者には荷が重い
まずは最初から書き直してちゃんと動く物を作り上げた方がいいと思うよ

2021/12/10(金) 21:57:39.03

書き直しって一からベタ打ちするんじゃなくてコピペがほとんどですよね？

2021/12/11(土) 00:08:42.46

それは、なにをするコードかにかかってる

2021/12/11(土) 00:13:00.70

誰でも最初はコピペから始めるもんだ

2021/12/11(土) 00:15:09.63

거피&베！

2021/12/11(土) 00:15:37.34

>>838
その辺は慣れ。今からほしいコードが、「書く」「コピペ」、どっちが早いかによる。
ほとんどは自分でベタ書きだけど、個人的にこの辺はマクロの記録を修正するか、ネットからのコピペで済ます
・背景色や罫線を変更する時
・グラフをvbaで制御したい時

2021/12/11(土) 08:59:51.92

引数の意味がうろ覚えの時、ヘルプを読むより動くコードをコピペした方が早いことも

2021/12/11(土) 10:04:25.41

早さじゃなく内容を優先しないから
つぎはぎだらけになるんじゃね

2021/12/11(土) 10:37:22.38

行き当たりばったりで建築開始しました
バランスが悪くなって一部倒壊しました

もう更地にして立て直した方がいい事もあるよね

2021/12/11(土) 10:40:37.38

>>>843
それはたまによくある

2021/12/11(土) 13:51:55.04

今は早さが最優先される時代だからね
民生アプリやゲームなんてバグだらけでもとにかくリリースして、オンラインでどんどんパッチを当ててく方式が主流になってる

2021/12/11(土) 15:19:06.66

馬鹿が作って混乱を引き起こすのがVBAです

2021/12/11(土) 16:03:15.75

VBAテロか

2021/12/11(土) 17:49:58.93

職場なんかで作ってたらろくなもんできないわ
VBAなんか普通はビール飲みながら自宅でつくるもんだ
そうしないと集中できないだろ

2021/12/11(土) 18:00:38.81

よっぽどじゃないと他人向けのマクロは作らない方がいいよなあ
独学だから、頼まれた機能を実現するために仕方なく作った時は気を使った

2021/12/11(土) 18:49:44.86

>>848
いや、VBAで作って混乱引き起こすような人はどの言語使っても混乱引き起こすよ。
理路整然と書く人はアセンブラでも綺麗なコードを書く。

2021/12/11(土) 18:53:20.61

ジャンプ命令の後の命令が実行されてからジャンプするような意味不明な設計でそんなこと無理だ

2021/12/11(土) 19:01:24.21

PS2のデバッグで出会ったわそれ
Mipsだったかで

2021/12/11(土) 20:11:09.89

遅延スロット知ってる俺すげー君が現れた！

2021/12/11(土) 20:15:06.16

遅延スロットって言うのかあれ
知っててすごいね

2021/12/11(土) 20:26:38.51

一気に形勢逆転。

2021/12/12(日) 12:00:32.32

数年前までVBAで結構組んでたんだけどちょっと必要があって使ってみたらセーブに10分くらいかかる
調べてみると

2021/12/12(日) 12:04:50.97

ごめんなさい途中でかきこんでしまいました
VBAのコードが長いとセーブに時間がかかるとあったのでモジュールを削除してみましたが変化なし
そこで新規にbookを作ってコピペでVBAのコード他すべての要素をコピペしたら普通にセーブできたのですが
これはどういった原因が考えられるでしょうか？
ちなみに別のPCで使ってみたら普通にセーブできました

2021/12/12(日) 13:09:25.29

マクロ付きブックの保存なんて普通は1秒で終わる
10分なんてあきらかに異常だし、たとえ10秒でもおかしい
HDDの故障やウィルスをまず疑うレベル

2021/12/12(日) 13:16:29.89

そんなことは分かってるから質問してるんですが日本語読めてますか？ｗ

2021/12/12(日) 13:52:38.61

>>850
それな
で、職場で仕事がなくなる。なんだかよくわからん状態になる

>>859
ブックの中にゴミデータが溜まってる
・条件付き書式
・名前の定義
特に条件付き書式はコピペで増えるので要注意。vbaでコピペを繰り返すマクロを繰り返すうちに、恐ろしく重くなる事がたまによくある

2021/12/12(日) 14:16:03.78

>>862
なるほどそれで新規BOOKにコピペするとごみが消えるから軽くなるってことですね
ありがとうすっきりしました

2021/12/12(日) 18:58:52.97

消えてほしいゴミはまだいるのにね

2021/12/12(日) 21:54:20.78

>>861
死ねよ

2021/12/12(日) 21:54:32.69

>>837
> 一般的にデバッグはコーディングの10倍ぐらい経験や知識が必要な作業だから初心者には荷が重い

ものすごい納得がいく。プログラムの力のかなりな部分を
設計力とデバッグ力が占めてる気がする。

2021/12/12(日) 21:59:03.19

>>865
あ。禁断のセリフが。

昔の2ちゃんで「氏ね」とか「市ね」とかわざわざ誤字にしてた
理由知らない世代なんだろうなあ…。

2021/12/12(日) 22:11:14.12

>>865
日本語まともに理解できないからしょうがないんだよなｗ

2021/12/12(日) 23:18:50.35

超初心者です。
10個のブックで、それぞれのブックに同じ名前の４種類のシートがあり、
各シートのE10～D12に入力されている値を抽出したいんですが、
１つのセルを指定するやり方しかわからず…

できれば10個のブックから一括で抜き取りたいんですけど、どう書けばいいでしょうか。
現時点でできたのはダイアログでファイルを選択して、指定のシートから１つだけ抜き出してくる方法です。
これを複数のセルを抜き出したい（可能なら複数のブック指定して抜き出したい）です。

2021/12/13(月) 02:11:31.83

>>868
>>869
Ruby馬鹿

2021/12/13(月) 03:17:35.02

>>868
別のPCなら普通にセーブできるって言うから、PCの故障を疑ったんでしょう

862の回答だと、別のPCでうまくいく説明になってない

お前のほうが日本語理解できてないんじゃね？

2021/12/13(月) 03:32:37.10

>>869
こんな感じで二重ループにする
ブック名やシート名は必要に応じて配列に入れておく

For Bok = 1 To 10
　For Sht = 1 To 4
　　Range(" ") = Workbooks("ブック" & Bok).Worksheets("シート" & Sht).Range("D10:E12").Value
　Next
Next

2021/12/13(月) 22:01:16.80

もう解決したかもしれんが
保存にやたら時間がかかるエクセルファイルとは自分の経験だと
非表示にされたシートに画像が貼られまくってたって事があったなvba開いてみたらシートが異常に多くて気づいた
パソコンリテラシーない人はこういうファイルを平気でメールで送ろうとするよねw

2021/12/13(月) 22:22:28.96

知らんけどxlsm形式だと社内メールは送れんわうちじゃ

2021/12/13(月) 22:45:39.93

ボタンのあるシートを
ボタン削除しないままシート削除して
新たにシートを作るっていうコードにしてたら
無茶苦茶ゴミが溜まってファイルが肥大化した挙げ句、
最終的にボタンを貼り付けられなくなった

2021/12/14(火) 00:01:39.40

>>873
リテラシー以前の問題で、何がどうなってるかさっぱりわからない
ただ、開くのに1分ぐらいかかるけどとりあえずは使えるのでつかて下さい、ｌという感じ

2021/12/14(火) 03:42:43.93

>>873
その画像が沢山貼ってあるシートコピーして
VeryHiddenで隠して送りつけてやればいい。

やられたらやり返す
倍返しだ！！

2021/12/14(火) 17:45:50.47

>>875
ボタン消えないのかよ怖いな

2021/12/14(火) 18:25:23.35

ひとつに見えていても２つのボタンが重なっていることもあるぞ

2021/12/15(水) 21:10:32.00

VBAのchengeイベントで

セルB1に１２、セルC１に３、と入力されたら
D1に１２／３と日付が自動で出力され
かつ
C1が空白ならD1も空白
C1が文字ならD１も文字になるようにできるでしょうか？

初心者じみた質問で申し訳ありません

2021/12/15(水) 21:18:56.86

>>880
出来る

2021/12/15(水) 21:20:45.35

>>880
数式でも良い？

2021/12/15(水) 21:24:32.70

>>882
できればVBAでお願いします
わがままですいません

2021/12/15(水) 22:08:43.53

>>883
そうか
＞D1に１２／３と日付が自動で出力され
この場合の、年がわからない
・常に1980年（デフォルト）
・常に「chengeイベント」のあった年
・今が12月なら来年
など

2021/12/16(木) 01:23:52.85

日付と言ってるけど単に文字列で良さそうな感じ

2021/12/16(木) 01:36:42.92

>>883
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo finalty

'無限ループ回避
Application.EnableEvents = False

'C1セルが空白は終了処理へ
If Cells(1, 3) = "" Then GoTo finalty

'C1セルが文字列の場合は、そのまま放り込む。それ意外は日付
If WorksheetFunction.IsText(Cells(1, 3)) Then
Cells(1, 4).Value = Cells(1, 3).Value
Else
Cells(1, 4).Value = DateSerial(Year(Now()), Cells(1, 2), Cells(1, 3))
End If

'終了処理
finalty:
Application.EnableEvents = True

End Sub

とりあえず作ったけど、B1が文字列、ｃ1が数字の時にエラーになるな
B1とC1で日付判定したほうがよかったのだろうか

2021/12/16(木) 05:45:18.34

>>886
「できるでしょうか？」と聞かれているだけなのに引っ掛かる馬鹿

2021/12/16(木) 07:14:30.10

>>887
何か嫌なことがあったのか？

2021/12/16(木) 07:16:48.24

全く内容が同じ投稿を何度も目にしている気がする
その度に丁寧な回答を貰ってるけど
その処理流行ってるの？

2021/12/16(木) 07:34:41.45

>>887
大丈夫？

>>889
同じ内容を貼る人：
相手にしてもらえるので、同じ質問を貼り続ける
承認欲求が満たされない人間の末路

回答者：
腕が上がるので気にせずに回答すればオッケー

2021/12/16(木) 07:46:05.41

そっか

>>886 だけど空白なら終了よりも空白の時は出力先も空白って条件があるから出力先にClearContentsかけた方が良さそう
その後にB1とC1をそれぞれIsNumericでTrueならB1 & "/" & C1をDatevalueで日付データにして出力先へ
あとはElseで文字列として結合して出力とかどうだろう？

2021/12/16(木) 08:42:17.59

>>886
・「C1が空白ならD1も空白」にしないといけないのにやってない
・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
・Cells( ) と Cells( ).Value とバラバラ
・finalty という単語はない

2021/12/16(木) 09:06:16.32

>>892
まあ多少エラーがあっても大まかな流れがわかればいいんでねえの？
後は自力だろ
特にエラー処理関連は条件がわからないとやっても無駄だし

＞・finalty という単語はない
まずこっから突っ込まないと
>>880
＞VBAのchengeイベントで

2021/12/16(木) 10:21:23.91

揚げ足が好物な人に引っかかる優しさ？

2021/12/16(木) 10:48:42.97

>>883
早速のご返答ありがとうございます
とりあえずB1には文字型は入力されないので、教えて頂いた構文で試してみたいと思いますよ
スレの雰囲気悪くしてすいません
先生たちには
感謝します

2021/12/16(木) 12:11:49.85

足フェチ

2021/12/16(木) 12:59:03.22

>>886
Go Toとか草

2021/12/16(木) 20:27:23.55

Gotoトラベル。

2021/12/16(木) 20:37:59.11

GoSub Return

2021/12/16(木) 21:57:52.03

VB.Netでもgotoとかgosubとかremとか残ってるんだよなぁ
いつになったらこんな負の遺産使えなくするのやら
variantとか早々に消したくせに

先にVB.Netの方が消えてしまいそうだ

2021/12/16(木) 22:01:35.50

>>900
DOS時代の古いアプリを移植して使ってるとこが意外とあるらしい
だから昔ながらの行番号なんかも使えるようになってる

2021/12/16(木) 22:40:48.14

https://sugoikaizen.com/excel_list/vba-macro-01/
超初心者です。上のサイトを参考に非表示のシートを全表示にするようにしたいのですが、実際に使ってみるとアクティブシート?が切り替わって切り替わってチカチカしてしまいます。

その切り替わりのチカチカ、アクティブを切り替えないでシートを表示させることってできますか

2021/12/16(木) 23:12:56.50

application.screenupdating=false
処理
application.screenupdating=true

2021/12/16(木) 23:49:36.74

>>892
・「C1が空白ならD1も空白」にしないといけないのにやってない
すまん
・B1, C1 以外のセルが変更された場合でも無駄な処理が走る
ifで分岐させてinsideかInspectorでexitsubだ
・Cells( ) と Cells( ).Value とバラバラ
すまん
・finalty という単語はない
たいぽ

>>897
＞Go Toとか草
vbaはエラー処理がエグいので、gotoを使う方が簡潔になる
今回のように、分岐処理が型に依存するような時はあえてエラーを発生させて、gotoでまとめる方が楽
総論としては「trycatch欲しい」だろうな

2021/12/16(木) 23:54:07.68

>>901
VBできたのはWindowsになってからだな
DOSのときはMS-Cじゃね

2021/12/17(金) 00:50:02.02

行番号はDOS自体が登場する以前のROM BASIC全盛の頃の話
Microsoft BASICの独自拡張版を各メーカーが移植して搭載してた
FDD普及後も暫くはN88 BASICなどは生き残っていたけどDOS登場後は急速に廃れていった

2021/12/17(金) 01:11:17.61

>>906
信長の野望はBASICで作ってあったな

2021/12/17(金) 07:15:41.68

>>905
DOS版のVB使っていたぞ

2021/12/17(金) 07:48:55.45

シートのデータを
文字コードutf-8、改行コードLFでファイルに書き出す方法教えてください

2021/12/17(金) 07:56:20.87

>>908
うわ本当だ知らんかった、すまんす

2021/12/17(金) 08:43:20.41

>>909
Excel単体では無理
アドインか、マクロか、外部ツールで変換か

2021/12/17(金) 12:43:48.01

UTF-8 でも、BOM の有無で2種類ある。
先頭3バイトが「0xEF 0xBB 0xBF」なら、BOM有り

BOM有りUTF-8
BOM無しUTF-8(UTF-8N)

Windows だけはBOM有りだけど、
一般的に、Linux などのウェブではBOM無し

最近のWindowsでは、BOM無しも使えるかも知れない

2021/12/17(金) 16:33:33.43

>>904
先日教えていただいた構文は間違いですか？
今、試したら自分のイメージに近い動作はするような感じです
後は自分で試行錯誤してみたいです

また質問してしまうかもしれませんが
自力でやってみます