Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)

2023/11/24(金) 20:41:50.46

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

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

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part77
https://mevius.2ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.2ch.net/test/read.cgi/tech/1667104996/
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/

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

2024/02/29(木) 03:34:27.60

できます

2024/02/29(木) 09:37:23.42

>>17
後の流用を考えると、削除しないほうが良いんじゃない？

2024/02/29(木) 14:12:43.39

>>19
あくまでも表示用のシートです
削除しないとなると、どのような処理になりますか？
色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました

2024/02/29(木) 14:38:52.61

>>20
ごめん、表示用だと認識してませんでした

2024/03/03(日) 09:38:35.96

セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。
当初差し込み印刷でやろうとしたんですが改行が消えてしまって…

2024/03/05(火) 15:19:55.05

>>22
具体的な用途がわからないけど、文書内の表のセルにただ入力したいだけなら文字列で書き込めばいいんじゃないかな

Sub 文書内のセルに転記()

Dim str As String
str = Cells(1, 1).Value

Dim doc As Object, i As Long

Set doc = Documents.Open(ThisWorkbook.Path & "\文書1.docm")

doc.Tables(1).Cell(1, 1).Range.Text = str
End Sub

2024/03/05(火) 21:04:29.79

500行ずつ下へ移動するオシャレな方法があれば教えて
コードは簡単に書けるけどボタンをどうしようか悩んでいる。

2024/03/05(火) 22:42:06.84

リボンかクイックに置けばいいだけ

2024/03/05(火) 23:06:34.48

ボタンなんてダサい
ショートカットキーにしとけ

2024/03/06(水) 00:55:19.48

>>26
ショートカットキーでマクロ発動とかできるの？

2024/03/06(水) 21:07:09.63

ちっさいユーザーフォームに[↓500] [↑500]のボタン置いて、Sheetの前面にフロートさせとく

2024/03/22(金) 23:46:16.21

質問させていただきます
Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか？
R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか？

2024/03/23(土) 01:40:54.15

よくわからないけど
Range("A1") と書くのと Cells(1, "A") と書くのは同じです

2024/03/23(土) 09:27:28.74

>>30
mjsk
初めて知った（今頃）

2024/03/23(土) 09:36:59.52

>>31
rangeオブジェクトのリファレンスに一度目を通しておくと良いよ

2024/03/23(土) 13:55:04.13

助けて下さい
txtに変換して
そのtxtを別のアプリで
読み込もうとしています

Application.CutCopyMode = False
Dim book1 As Workbook
Sheets("label").Select

Application.DisplayAlerts = False

Set book1 = Workbooks("◯◯◯.xlsm")

book1.SaveAs Filename:="C:\Users\aaaaa\Desktop\片山\label.txt", _
FileFormat:=xlCurrentPlatformText

Application.DisplayAlerts = False

Range("B3").Select

Sheets("入力チェック表").Select

Range("H4").Select

Application.Quit

ThisWorkbook.Close

ActiveWorkbook.Close SaveChanges:=False

End Sub

2024/03/23(土) 14:01:19.14

シートlabelをtxtに変換して
別のアプリで読み込もうと思います

ですが、最後はエクセルが
終了してしまうため
(bookが閉じる)
終了しないようにしたいのですが

最後3行を削除すると
txtを保存するためのアラートが出たり
アプリで読み込むと
読込エラーが出たりします
(txtファイル使用中の為？)

エクセル終了しない方法は
ありますか？

2024/03/23(土) 14:30:10.11

>>34
Application.quitしてるからExcelが終了するのは当然では

2024/03/23(土) 15:09:35.81

>>35
ありがとうございます

>>34
Application.quit
を削除したのですが
エクセルは終了しませんが
book？が終了します

2024/03/23(土) 15:47:42.35

>>36
ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる
だから閉じるしかないと思うよ

2024/03/23(土) 15:48:11.11

ああ、Excel側で読み取り専用で開き直すって手があるな

2024/03/23(土) 16:28:38.79

>>37
アドバイスありがとうございます
閉じるしか
無理ですか...

2024/03/23(土) 22:42:53.35

助けてで始まる質問をする奴は○○って法則

2024/03/26(火) 11:45:12.02

ブックのフルパス取得しといて開きなおすとこまで書けばいいんじゃ

2024/03/26(火) 12:10:47.06

何がしたいかわからん

2024/04/08(月) 04:42:24.97

日付（2024/01/01）のセルをVBAのRange("A1").Valueなどで取得すると、勝手に2024/01/01 (月)って曜日の文字列が追加されます。
曜日なしで取得する方法をご存じの方いましたら教えてください。
曜日がついているせいでDateとして扱えず困っています。
Dim d As Date
d = CDate(Range("A1").Value) '2024/01/01 (月)が入ってるため
これでエラーが出ます。

2024/01/01 01:00:00のように時間が入っている場合は2024/01/01 (月) 01:00:00になります。
NumberFormatLocalでフォーマットを指定してもダメでした。
取得するセルの書式設定は日付でユーザー定義ではないです。
最終手段の文字列を加工するのはなしでお願いします。

2024/04/08(月) 07:42:44.65

>>43
Dim d As Date
d = CDate(DATEVALUE(Range("A1").Value))

2024/04/08(月) 14:05:35.40

>>43
試してみたけど、この3行はどれもエラーにならず同じ結果になった
d = CDate(Range("A1").Value)
d = Range("A1").Value
d = Range("A1")

セルA1の内容は本当にシリアル値か？
OSやOfficeは日本語版か？
ロケールは日本になってるか？

シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄
A1セルの書式を標準に変えたらどんな表示になるか確認

2024/04/08(月) 14:31:02.66

>>43
試したけど自分も再現しない。
そちらで新しいブックを作って同じ事を試したら再現する？

2024/04/09(火) 13:20:50.97

すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします

2024/04/09(火) 13:30:27.56

https://tadaup.jp/2205c27d6.png
これでお願いいたします

2024/04/09(火) 13:31:59.88

質問とは

2024/04/09(火) 13:32:38.30

ボタンを配置して押すごとに一週間分作成という風にしたいです。

2024/04/09(火) 13:34:22.65

>>49
誠に勝手ながらコードを教えて欲しいです

2024/04/09(火) 14:44:25.19

>>47
Sub 全自動で表を作るMacro1()
　　Dim da As Date
　　da = "1/1"　'この日からスタート
　　ro = 2
　　For we = 1 To 52　'52週間分作る
　　　　Cells(ro, 3).Resize(1, 3) = Array("a", "b", "c")
　　　　For lo = 1 To 7
　　　　　　Cells(ro + lo, 2) = da
　　　　　　da = da + 1
　　　　Next
　　　　Set ra = Cells(ro, 2).Resize(8, 4)
　　　　ra.Borders(xlEdgeLeft).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeLeft).Weight = xlMedium
　　　　ra.Borders(xlEdgeRight).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeRight).Weight = xlMedium
　　　　ra.Borders(xlEdgeTop).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeTop).Weight = xlMedium
　　　　ra.Borders(xlEdgeBottom).LineStyle = xlContinuous
　　　　ra.Borders(xlEdgeBottom).Weight = xlMedium
　　　　ra.Borders(xlInsideVertical).LineStyle = xlContinuous
　　　　ra.Borders(xlInsideVertical).Weight = xlMedium
　　　　ra.Borders(xlInsideHorizontal).LineStyle = xlContinuous
　　　　ra.Borders(xlInsideHorizontal).Weight = xlMedium
　　　　ro = ro + 8
　　Next
　　Range("B:B").Font.Name = "ＭＳ明朝"
　　Range("C:E").Font.Name = "ＭＳゴシック"
　　Range("B:E").Font.Bold = True
　　Range("B:B").NumberFormatLocal = "m月d日 (aaa)"
End Sub

2024/04/09(火) 15:00:14.82

>>52
ありがとうございます。大変申し訳ありません。

2024/04/09(火) 16:35:36.48

>>52
すみません。これでも大丈夫ですがマクロ1回実行するごとに７日分つくりたいです。わがまますみません。

2024/04/09(火) 17:25:50.64

>>54
Sub 一週間ずつコピペ追加Macro1()
　　ro = Cells(Rows.Count, 2).End(xlUp).Row
　　Cells(ro - 7, 2).Resize(8, 4).Copy Cells(ro + 1, 2)
　　For Each c In Cells(ro + 2, 2).Resize(7, 1)
　　　　c.Value = c + 7
　　Next
　　Columns("B").AutoFit
End Sub

2024/04/09(火) 17:44:22.55

>>55
ありがとうございます！助かりました

2024/05/14(火) 11:08:08.44

ワークシート上で使うつもりの関数についてですが
Function で関数を作る場合に
ワークシートのsum関数のように、「開始セル：終端セル」で範囲指定したものを
引数として渡すにはどのように書けばいいでしょうか？

Fuction Nmame（ここにどう書けば・・・）　as　Ingteger

という意味です

2024/05/14(火) 12:42:16.58

>>57
例
Function Nmame(セル範囲 As Range) As Integer
　　Nmame = WorksheetFunction.Sum(セル範囲)
End Function

57 (ﾜｯﾁｮｲ 6d2d-gQNF) · 2024/05/14(火) 14:38:27.21

>>58
ありがとうございます
様子がわかりました

2024/05/15(水) 02:47:04.16

WorksheetFunctionを知らないのか便利さを理解してないのか分からんが、使わない奴多すぎだよ。

2024/05/20(月) 19:11:18.88

たしかにExcel使っている人の中で99.9%の人は使ってないと思うよ

警備員[Lv.1][新芽] (ﾜｯﾁｮｲ 1a45-lB5S) · 2024/05/21(火) 10:21:01.62

WorksheetFunctionは後でかなり読みづらくなるのとエラーの対処が面倒になるから極力避けちゃうな
SequenceとXlookupはたまに使う

2024/08/19(月) 12:24:22.85

>>62
そのままベタで書いてない？
Set wf = WorksheetFunction
n = wf.Vlookup(以下略
みたいにすれば式が長くて読みづらいのはだいぶ改善されるけど

2024/08/19(月) 13:00:42.46

object変数使うのとwith句どっちにするか悩む

2024/08/21(水) 16:25:00.16

まーあまり使う機会が無いからね
今パッと思いつくのでも銀行丸めでない四捨五入くらい

2024/08/21(水) 21:12:32.10

wFuncと書くかな王道のキャメルネームってヤツで

2024/08/21(水) 21:32:45.54

functionの省略形はFn
キートップの表記もそうなってるし

2024/08/21(水) 21:39:19.62

キートップでいうならほとんどのキーボードはFだよ
F1～F12のF

2024/08/22(木) 19:14:36.54

なるほど、fnを変数名もありだね
短くて分かりやすいのがベスト

2024/08/22(木) 20:47:55.78

>>68
そのパターンだと、続く数字がないと、F だけじゃ意味を認識できにくくないかな？
VBAと同じ祖先のN88-BASICにDEF FN()っていうステートメントがあったぐらいだし、Fnあたりが無難じゃないかなあと

2024/08/22(木) 21:40:22.16

変数名悩むよいつも

2024/08/24(土) 06:52:44.35

wFuckでいいんじゃね

2024/08/24(土) 15:53:04.39

それもありだね
何となく意味が分かる変数名がベスト

2024/09/03(火) 11:47:24.62

20種類前後の機材があり、1部屋につき5～10種使っていて、全部で50部屋程度ある
部屋毎に以下の内容を記載したシートを作らないといけない(機材名　サイズ　台数)というのが定期的にあり
現在は(部屋番号a　部屋名)と(部屋番号b　機材名　サイズ　台数)の一覧シートを作って
For 部屋番号=2 to 部屋番号bmax
部屋番号a=部屋番号b
*転記
といった形のマクロを使用しているのですが
いちいち機材名等をコピペするのが手前なので(機材名　サイズ　台数　部屋番号b1 b2…)のシートを作って部屋番号a=b1*転記、a=b2*転記みたいにしたいです
ただ、私の知識だと判定と転記の行を増やすくらいしか思い付かず、スッキリとした形にできるのでしょうか

2024/09/03(火) 16:38:51.21

すいません自己解決しました

2024/09/05(木) 12:36:06.75

雑魚解決

2024/12/05(木) 14:41:34.90

B1:D1が全てTRUEの時、◯を違う時×を表示するという具合の関数を組みたいのですが何を使えばいいのでしょうか？

2024/12/05(木) 14:48:46.36

lookup
vlookup

2024/12/05(木) 15:13:00.67

=IF(COUNTIF(B1:D1,TRUE)=3,”◯”,”×”)

2024/12/05(木) 16:43:15.56

=IF(AND(B1:D1),"○","×")

2024/12/05(木) 19:34:08.56

VBAスレだからworksheetfunctionって明示しないと

2024/12/05(木) 21:20:09.22

= Mid("◯×", Range("B1") * Range("C1") * Range("D1") + 2, 1)

2024/12/07(土) 08:22:31.23

>>77
頭を使ったほうが良いと思う

2024/12/07(土) 18:22:33.39

ここに来るのは、頭だけは絶対に使わない人達

2024/12/07(土) 20:46:46.78

ポコポコヘッドを覚えてから質問して来い？

2024/12/07(土) 21:35:52.97

>>84
よう馬鹿！

2024/12/09(月) 11:28:21.48

うんこ

2025/01/23(木) 21:39:17.03

カレー

2025/06/10(火) 22:29:47.99

今どきのCONTINUEと同じように使えるのが goto CONTINUE方式

2025/06/11(水) 17:06:06.79

ﾜｯﾁｮｲありのがええんやで

2025/06/15(日) 12:04:33.82

無の方は荒らされてるな

2025/06/15(日) 16:04:36.12

バカが騒いでるだけ
わざわざ私バカですって手を挙げて出てくるのが面白い、本人がわかってなくてw

2025/06/15(日) 23:58:19.79

VBAスレ2つあったの今知ったわw

2025/06/16(月) 07:54:22.50

>>92
わかってる奴は質問スレ使う理由ないんだから、
質問スレでマウント取る奴ってそのために質問スレに書き込むバカでしかないんだよな
疑問の解決に寄与するならまだしも的外れなこと言ってる奴もいるし

2025/06/16(月) 13:10:13.94

昔から言われてるでしょ
「バカって言うやつが本当のバカ」

2025/06/16(月) 21:13:13.73

>>95
昔から言われてるでしょ
それ言ってるのはバカしかいないと

2025/06/17(火) 18:43:01.81

昔から言われてるのは、5ちゃんねるに書き込んでる事自体馬鹿ってヤツ

2025/06/17(火) 19:14:09.68

それは否定できねぇなあ

2025/06/17(火) 20:52:08.20

踊る阿呆に見る阿呆、同じ阿呆なら踊らにゃ損損

2025/06/20(金) 21:29:26.25

アホちゃいまんねんパーでんねん

2025/06/22(日) 11:13:20.67

シットルケ