Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (56ﾚｽ)
上下前次1-新
1: (ｽｯﾌﾟ Sd92-oKFl) 2023/11/24(金)20:41 ID:hbrpz6MLd(1) AAS
!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を3行貼り付けること
ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK
次スレは>>980が立てること
無理なら細かく安価指定
※前スレ
Excel VBA 質問スレ Part77
2chｽﾚ:tech
省4
37(1): (ｽﾌﾟｰﾌﾟ Sd33-MwD1) 03/23(土)15:47 ID:2VB/Vbesd(1/2) AAS
>>36
ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる
だから閉じるしかないと思うよ
38: (ｽﾌﾟｰﾌﾟ Sd33-MwD1) 03/23(土)15:48 ID:2VB/Vbesd(2/2) AAS
ああ、Excel側で読み取り専用で開き直すって手があるな
39: (ﾜｯﾁｮｲ 53dd-sTEQ) 03/23(土)16:28 ID:ulv10UCb0(4/4) AAS
>>37
アドバイスありがとうございます
閉じるしか
無理ですか...
40: (ﾜｯﾁｮｲ 8b8e-adAD) 03/23(土)22:42 ID:ULmGYrNT0(1) AAS
助けてで始まる質問をする奴は○○って法則
41: (ﾜｯﾁｮｲ 1245-rfcW) 03/26(火)11:45 ID:JlWIdVqx0(1) AAS
ブックのフルパス取得しといて開きなおすとこまで書けばいいんじゃ
42: (ﾜｯﾁｮｲ 75f2-FSV6) 03/26(火)12:10 ID:qhsI8dwj0(1) AAS
何がしたいかわからん
43(3): (ﾜｯﾁｮｲ 62ad-aQbW) 04/08(月)04:42 ID:1vwt4prT0(1) AAS
日付（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でフォーマットを指定してもダメでした。
取得するセルの書式設定は日付でユーザー定義ではないです。
最終手段の文字列を加工するのはなしでお願いします。
44: (ｽｯﾌﾟ Sd02-kwRZ) 04/08(月)07:42 ID:TVRO53b8d(1) AAS
>>43
Dim d As Date
d = CDate(DATEVALUE(Range("A1").Value))
45: (ﾜｯﾁｮｲ 43ce-Ky5X) 04/08(月)14:05 ID:nl9i5mBy0(1) AAS
>>43
試してみたけど、この3行はどれもエラーにならず同じ結果になった
d = CDate(Range("A1").Value)
d = Range("A1").Value
d = Range("A1")
セルA1の内容は本当にシリアル値か？
OSやOfficeは日本語版か？
ロケールは日本になってるか？
シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄
A1セルの書式を標準に変えたらどんな表示になるか確認
46: (ﾜｯﾁｮｲ 36f9-zSwZ) 04/08(月)14:31 ID:bhILccJZ0(1) AAS
>>43
試したけど自分も再現しない。
そちらで新しいブックを作って同じ事を試したら再現する？
47(1): (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)13:20 ID:CNAyRCwJM(1/7) AAS
すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします
48: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)13:30 ID:CNAyRCwJM(2/7) AAS
https://tadaup.jp/2205c27d6.png
これでお願いいたします
49(1): (ｽｯﾌﾟ Sd02-kwRZ) 04/09(火)13:31 ID:+lYdM27Td(1) AAS
質問とは
50: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)13:32 ID:CNAyRCwJM(3/7) AAS
ボタンを配置して押すごとに一週間分作成という風にしたいです。
51: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)13:34 ID:CNAyRCwJM(4/7) AAS
>>49
誠に勝手ながらコードを教えて欲しいです
52(2): (ﾌﾞｰｲﾓ MM02-Ky5X) 04/09(火)14:44 ID:EBugvdEwM(1) AAS
>>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
省21
53: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)15:00 ID:CNAyRCwJM(5/7) AAS
>>52
ありがとうございます。大変申し訳ありません。
54(1): (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)16:35 ID:CNAyRCwJM(6/7) AAS
>>52
すみません。これでも大丈夫ですがマクロ1回実行するごとに７日分つくりたいです。わがまますみません。
55(1): (ﾜｯﾁｮｲ 43ce-Ky5X) 04/09(火)17:25 ID:GvF1xxBu0(1) AAS
>>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
56: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 04/09(火)17:44 ID:CNAyRCwJM(7/7) AAS
>>55
ありがとうございます！助かりました
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.533s*