Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (101ﾚｽ)
上下前次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
Excel VBA 質問スレ Part78
2chｽﾚ:tech
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
2chｽﾚ:tech VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2(1): (ﾌﾞｰｲﾓ MM7f-rRln) 2023/11/27(月)10:15 ID:ujSb7R+LM(1)調 AAS
1200万円の解析装置部署で導入
メーカーと商社の話だともし必要であれば
データ処理するソフトもオプションでありますけどおまけ程度の機能になります
VBAを色々いじれる人がいるならそっちの方がはるかに良いです
ソフト買う方向に進めたいのに反対勢力が、、いやお前が作ってくれるなら俺もソフトいらんよ
3: (ﾜｯﾁｮｲ 479b-1fOb) 2023/11/27(月)22:26 ID:CI3qhd280(1/2)調 AAS
ここに出入りしてる人間なら率先して試作してみりゃいーじゃねーか
商社はメーカー同席だと言い辛いかも知らんが、同じ製品納めてる他の企業の事例を、こっそり耳打ちして
くれるかもだし 可能性は山ほどある すぐ拒否・否定に逃げるのはオトコじゃ無い
チャレンジしてこそのサラリーマン 失敗したってダメ元 挑戦の無い企業に発展は無い
つか、どっかのExcelスレで同じ質問を目にした記憶があるような デジャブか
4: (ﾜｯﾁｮｲ 473e-1fOb) 2023/11/27(月)22:51 ID:CI3qhd280(2/2)調 AAS
https://www.capind.co.jp/product/detail.php?id=251
これなんか良さげだな 複数機器に対応してるのもいい
稟議上げて社長におねだりしてろ おいくら万円かは分からん
5: (ﾗｸｯﾍﾟﾍﾟ MM8f-t2v2) 2023/11/27(月)23:03 ID:YDVDDDMEM(1)調 AAS
1000万以上の装置なら有限要素解析とかFFT解析とかなのか
VBAの知識だけではどうにもならない気がするけど
6: (ﾜｯﾁｮｲ 47b6-1fOb) 2023/11/28(火)10:41 ID:V3dCbzyl0(1)調 AAS
計測器統合制御をExcelで実現するアドイン
『Sequence Maker』 ← 無償（商用利用でも個人利用でも無料
https://sequencemaker.hioki.com/ja/ こんなん出ましたけど
こういうのでなくて？
7: (ﾗｸｯﾍﾟﾍﾟ MM8f-t2v2) 2023/11/28(火)11:39 ID:x9cWJykmM(1)調 AAS
>>2の内容だと制御がしたいのではなくてデータ処理の方じゃないの？
8: (ﾜｯﾁｮｲ 5fb5-rRln) 2023/11/29(水)23:02 ID:A5d8zOu00(1)調 AAS
データ処理なんよ
座標はマイナスもあるからなかなかめんどくさい
幾何公差やズレ量はvbaで作り込むとめちゃんこ便利なんだけどね
あと100年はvbaでいいぐらいめちゃんこしこしこ相性がいい
9: (ﾜｯﾁｮｲ 47f6-1fOb) 2023/11/30(木)10:17 ID:YCOtWOlp0(1)調 AAS
リンク先見てみればわかるけど、制御もデータ処理も両方だよ
接続方式も様々、データ送るのも受けるのもあれこれ それが「無料」 らしい
じぶんトコの機器と繋いで試してみるには充分 受け取ったデータをどう加工するか
それがしやすいか、試行錯誤するにはもってこいじゃ？
10: (ﾜｯﾁｮｲ 43fc-BjwC) 2023/12/23(土)11:24 ID:0DKgSd0V0(1)調 AAS
すみません 質問です
C1にはrandom関数が入っています。B1にはC1のコピーしたものの値を貼り付けています。A1にはB1が0.6より大きければ◯小さければ✕が入るようにします。A1
を下にオートフィルすればB2にはC1を参照としてC1をコピーした値、A2にはA1と同じように◯✕が入るようにしたいです
よろしくお願いいたします
https://i.imgur.com/hBsRvdT.jpg
11: (ﾜｯﾁｮｲ a3b5-pDLy) 2023/12/23(土)15:04 ID:Gwk7x+r/0(1)調 AAS
AとB列は全部同じ値になるだけじゃ
12(1): (ﾜｯﾁｮｲ 63bf-pDLy) 2023/12/23(土)19:02 ID:QzF0pH9f0(1/2)調 AAS
マクロが突然壊れた。
ある時、マクロの一覧が表示されなくなり、
セキュリティー(トラストセンター)をいじったら一時的に
治ったが、また表示されなくなり、今に限っては
マクロを動かすと全く違う動作をしたり、今まで正常に
何回も動かしてたマクロが突然エラーになって動かない。
ファイルが壊れたか？？？と思ったが、別のPCでそのファイル
正常に動作するんで、オフィス修復やったが治らず、
で、結局再インストしたらあっけなく治った。
プログラムが何かの拍子で壊れる、ということがあるらしい。
13: (ﾜｯﾁｮｲ 63bf-pDLy) 2023/12/23(土)21:28 ID:QzF0pH9f0(2/2)調 AAS
12だがやはり「マクロの登録」一覧からマクロが突然消える。
誰か対策教えてくれ。
14: (ｽｯﾌﾟ Sd1f-8PpB) 2023/12/23(土)21:55 ID:wXkv6mGDd(1)調 AAS
どうせマクロに署名してないから起動時に無効化されてるってオチ
15: (ﾜｯﾁｮｲ 6301-cfY7) 2023/12/23(土)22:27 ID:8ng/MRqb0(1)調 AAS
ストレージか？
16: (ﾜｯﾁｮｲ 03b7-IGPl) 2023/12/24(日)08:57 ID:emWydGj70(1)調 AAS
>>12
随分前だけどバージョン違いのExcelでマクロを起動すると似たような状況になったことがあったな
複数人で使い回したりしてる？
17(1): (ﾜｯﾁｮｲ ebfa-/Nx8) 2024/02/29(木)03:28 ID:fThkXDoh0(1)調 AAS
以下のようにデータを入力したときに
画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか？
A出版 004
A出版 003
B出版 006
B出版 005
（本当は画像と同じように書きます）
https://i.imgur.com/1vIYIHQ.jpg
単純に取引先でソートして
VBAで転記するときに、
上と同じなら文字削除すれば簡単でしょうか？
18: (ｽｯﾌﾟ Sd8a-9+AH) 2024/02/29(木)03:34 ID:Abbi1OW1d(1)調 AAS
できます
19(1): (ﾜｯﾁｮｲ ca77-DUIk) 2024/02/29(木)09:37 ID:VmbR4Tf/0(1/2)調 AAS
>>17
後の流用を考えると、削除しないほうが良いんじゃない？
20(1): (ｽﾌﾟﾌﾟ Sdea-/Nx8) 2024/02/29(木)14:12 ID:JwatrK+sd(1)調 AAS
>>19
あくまでも表示用のシートです
削除しないとなると、どのような処理になりますか？
色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました
21: (ﾜｯﾁｮｲ ca77-DUIk) 2024/02/29(木)14:38 ID:VmbR4Tf/0(2/2)調 AAS
>>20
ごめん、表示用だと認識してませんでした
22(1): (ﾜｯﾁｮｲ 1b56-AA/x) 2024/03/03(日)09:38 ID:nYZbKW3u0(1)調 AAS
セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。
当初差し込み印刷でやろうとしたんですが改行が消えてしまって…
23: (ﾜｯﾁｮｲ 9f45-zqCT) 2024/03/05(火)15:19 ID:lrAkKyth0(1)調 AAS
>>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
24: (ﾜｯﾁｮｲ 7b6e-0WZ8) 2024/03/05(火)21:04 ID:vpqODFup0(1)調 AAS
500行ずつ下へ移動するオシャレな方法があれば教えて
コードは簡単に書けるけどボタンをどうしようか悩んでいる。
25: (ﾜｯﾁｮｲ cb01-fRaX) 2024/03/05(火)22:42 ID:uv6Tn7vf0(1)調 AAS
リボンかクイックに置けばいいだけ
26(1): (ｽｯﾌﾟ Sdbf-ZLJX) 2024/03/05(火)23:06 ID:1MXf4VgDd(1)調 AAS
ボタンなんてダサい
ショートカットキーにしとけ
27: (ﾜｯﾁｮｲ 4bfa-sqC9) 2024/03/06(水)00:55 ID:g0HJYNda0(1)調 AAS
>>26
ショートカットキーでマクロ発動とかできるの？
28: (ﾜｯﾁｮｲ cb41-zqCT) 2024/03/06(水)21:07 ID:J53jsheD0(1)調 AAS
ちっさいユーザーフォームに[↓500] [↑500]のボタン置いて、Sheetの前面にフロートさせとく
29: (ﾜｯﾁｮｲ 7b0c-lv6g) 2024/03/22(金)23:46 ID:4cmyPG190(1)調 AAS
質問させていただきます
Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか？
R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか？
30(1): (ﾜｯﾁｮｲ 591c-/oLk) 2024/03/23(土)01:40 ID:WFks+Yvw0(1)調 AAS
よくわからないけど
Range("A1") と書くのと Cells(1, "A") と書くのは同じです
31(1): (ﾜｯﾁｮｲ d901-8/Mv) 2024/03/23(土)09:27 ID:Y5NpvLBG0(1)調 AAS
>>30
mjsk
初めて知った（今頃）
32: (ｽﾌﾟｰﾌﾟ Sd33-MwD1) 2024/03/23(土)09:36 ID:mhs1yCGmd(1)調 AAS
>>31
rangeオブジェクトのリファレンスに一度目を通しておくと良いよ
33: (ﾜｯﾁｮｲ 53dd-sTEQ) 2024/03/23(土)13:55 ID:ulv10UCb0(1/4)調 AAS
助けて下さい
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
34(2): (ﾜｯﾁｮｲ 53dd-sTEQ) 2024/03/23(土)14:01 ID:ulv10UCb0(2/4)調 AAS
シートlabelをtxtに変換して
別のアプリで読み込もうと思います
ですが、最後はエクセルが
終了してしまうため
(bookが閉じる)
終了しないようにしたいのですが
最後3行を削除すると
txtを保存するためのアラートが出たり
アプリで読み込むと
読込エラーが出たりします
(txtファイル使用中の為？)
エクセル終了しない方法は
ありますか？
35(1): (ｽﾌﾟｰﾌﾟ Sd33-MwD1) 2024/03/23(土)14:30 ID:JDdDfN3id(1)調 AAS
>>34
Application.quitしてるからExcelが終了するのは当然では
36(1): (ﾜｯﾁｮｲ 53dd-sTEQ) 2024/03/23(土)15:09 ID:ulv10UCb0(3/4)調 AAS
>>35
ありがとうございます
>>34
Application.quit
を削除したのですが
エクセルは終了しませんが
book？が終了します
37(1): (ｽﾌﾟｰﾌﾟ Sd33-MwD1) 2024/03/23(土)15:47 ID:2VB/Vbesd(1/2)調 AAS
>>36
ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる
だから閉じるしかないと思うよ
38: (ｽﾌﾟｰﾌﾟ Sd33-MwD1) 2024/03/23(土)15:48 ID:2VB/Vbesd(2/2)調 AAS
ああ、Excel側で読み取り専用で開き直すって手があるな
39: (ﾜｯﾁｮｲ 53dd-sTEQ) 2024/03/23(土)16:28 ID:ulv10UCb0(4/4)調 AAS
>>37
アドバイスありがとうございます
閉じるしか
無理ですか...
40: (ﾜｯﾁｮｲ 8b8e-adAD) 2024/03/23(土)22:42 ID:ULmGYrNT0(1)調 AAS
助けてで始まる質問をする奴は○○って法則
41: (ﾜｯﾁｮｲ 1245-rfcW) 2024/03/26(火)11:45 ID:JlWIdVqx0(1)調 AAS
ブックのフルパス取得しといて開きなおすとこまで書けばいいんじゃ
42: (ﾜｯﾁｮｲ 75f2-FSV6) 2024/03/26(火)12:10 ID:qhsI8dwj0(1)調 AAS
何がしたいかわからん
43(3): (ﾜｯﾁｮｲ 62ad-aQbW) 2024/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) 2024/04/08(月)07:42 ID:TVRO53b8d(1)調 AAS
>>43
Dim d As Date
d = CDate(DATEVALUE(Range("A1").Value))
45: (ﾜｯﾁｮｲ 43ce-Ky5X) 2024/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) 2024/04/08(月)14:31 ID:bhILccJZ0(1)調 AAS
>>43
試したけど自分も再現しない。
そちらで新しいブックを作って同じ事を試したら再現する？
47(1): (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 2024/04/09(火)13:20 ID:CNAyRCwJM(1/7)調 AAS
すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします
48: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 2024/04/09(火)13:30 ID:CNAyRCwJM(2/7)調 AAS
https://tadaup.jp/2205c27d6.png
これでお願いいたします
49(1): (ｽｯﾌﾟ Sd02-kwRZ) 2024/04/09(火)13:31 ID:+lYdM27Td(1)調 AAS
質問とは
50: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 2024/04/09(火)13:32 ID:CNAyRCwJM(3/7)調 AAS
ボタンを配置して押すごとに一週間分作成という風にしたいです。
51: (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) 2024/04/09(火)13:34 ID:CNAyRCwJM(4/7)調 AAS
>>49
誠に勝手ながらコードを教えて欲しいです
52(2): (ﾌﾞｰｲﾓ MM02-Ky5X) 2024/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
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
上下前次1-新書関写板覧索設栞歴
あと 49 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s
