Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (101ﾚｽ)
Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) http://mevius.5ch.net/test/read.cgi/tech/1700826110/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
1: デフォルトの名無しさん (ｽｯﾌﾟ Sd92-oKFl) [sage] 2023/11/24(金) 20:41:50.46 ID:hbrpz6MLd !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 http://mevius.5ch.net/test/read.cgi/tech/1700826110/1
2: デフォルトの名無しさん (ﾌﾞｰｲﾓ MM7f-rRln) [sage] 2023/11/27(月) 10:15:31.31 ID:ujSb7R+LM 1200万円の解析装置部署で導入 メーカーと商社の話だともし必要であれば データ処理するソフトもオプションでありますけどおまけ程度の機能になります VBAを色々いじれる人がいるならそっちの方がはるかに良いです ソフト買う方向に進めたいのに反対勢力が、、いやお前が作ってくれるなら俺もソフトいらんよ http://mevius.5ch.net/test/read.cgi/tech/1700826110/2
3: デフォルトの名無しさん (ﾜｯﾁｮｲ 479b-1fOb) [sage] 2023/11/27(月) 22:26:13.00 ID:CI3qhd280 ここに出入りしてる人間なら率先して試作してみりゃいーじゃねーか 商社はメーカー同席だと言い辛いかも知らんが、同じ製品納めてる他の企業の事例を、こっそり耳打ちして くれるかもだし 可能性は山ほどある すぐ拒否・否定に逃げるのはオトコじゃ無い チャレンジしてこそのサラリーマン 失敗したってダメ元 挑戦の無い企業に発展は無い つか、どっかのExcelスレで同じ質問を目にした記憶があるような デジャブか http://mevius.5ch.net/test/r
ead.cgi/tech/1700826110/3
4: デフォルトの名無しさん (ﾜｯﾁｮｲ 473e-1fOb) [sage] 2023/11/27(月) 22:51:04.78 ID:CI3qhd280 https://www.capind.co.jp/product/detail.php?id=251 これなんか良さげだな 複数機器に対応してるのもいい 稟議上げて社長におねだりしてろ おいくら万円かは分からん http://mevius.5ch.net/test/read.cgi/tech/1700826110/4
5: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-t2v2) [sage] 2023/11/27(月) 23:03:30.45 ID:YDVDDDMEM 1000万以上の装置なら有限要素解析とかFFT解析とかなのか VBAの知識だけではどうにもならない気がするけど http://mevius.5ch.net/test/read.cgi/tech/1700826110/5
6: デフォルトの名無しさん (ﾜｯﾁｮｲ 47b6-1fOb) [sage] 2023/11/28(火) 10:41:11.25 ID:V3dCbzyl0 計測器統合制御をExcelで実現するアドイン 『Sequence Maker』 ← 無償（商用利用でも個人利用でも無料 https://sequencemaker.hioki.com/ja/ こんなん出ましたけど こういうのでなくて？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/6
7: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-t2v2) [sage] 2023/11/28(火) 11:39:13.35 ID:x9cWJykmM >>2の内容だと制御がしたいのではなくてデータ処理の方じゃないの？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/7
8: デフォルトの名無しさん (ﾜｯﾁｮｲ 5fb5-rRln) [sage] 2023/11/29(水) 23:02:10.85 ID:A5d8zOu00 データ処理なんよ 座標はマイナスもあるからなかなかめんどくさい 幾何公差やズレ量はvbaで作り込むとめちゃんこ便利なんだけどね あと100年はvbaでいいぐらいめちゃんこしこしこ相性がいい http://mevius.5ch.net/test/read.cgi/tech/1700826110/8
9: デフォルトの名無しさん (ﾜｯﾁｮｲ 47f6-1fOb) [sage] 2023/11/30(木) 10:17:18.39 ID:YCOtWOlp0 リンク先見てみればわかるけど、制御もデータ処理も両方だよ 接続方式も様々、データ送るのも受けるのもあれこれ それが「無料」 らしい じぶんトコの機器と繋いで試してみるには充分 受け取ったデータをどう加工するか それがしやすいか、試行錯誤するにはもってこいじゃ？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/9
10: デフォルトの名無しさん (ﾜｯﾁｮｲ 43fc-BjwC) [sage] 2023/12/23(土) 11:24:28.66 ID:0DKgSd0V0 すみません 質問です C1にはrandom関数が入っています。B1にはC1のコピーしたものの値を貼り付けています。A1にはB1が0.6より大きければ◯小さければ✕が入るようにします。A1 を下にオートフィルすればB2にはC1を参照としてC1をコピーした値、A2にはA1と同じように◯✕が入るようにしたいです よろしくお願いいたします https://i.imgur.com/hBsRvdT.jpg http://mevius.5ch.net/test/read.cgi/tech/1700826110/10
11: デフォルトの名無しさん (ﾜｯﾁｮｲ a3b5-pDLy) [] 2023/12/23(土) 15:04:46.53 ID:Gwk7x+r/0 AとB列は全部同じ値になるだけじゃ http://mevius.5ch.net/test/read.cgi/tech/1700826110/11
12: デフォルトの名無しさん (ﾜｯﾁｮｲ 63bf-pDLy) [] 2023/12/23(土) 19:02:50.72 ID:QzF0pH9f0 マクロが突然壊れた。 ある時、マクロの一覧が表示されなくなり、 セキュリティー(トラストセンター)をいじったら一時的に 治ったが、また表示されなくなり、今に限っては マクロを動かすと全く違う動作をしたり、今まで正常に 何回も動かしてたマクロが突然エラーになって動かない。 ファイルが壊れたか？？？と思ったが、別のPCでそのファイル 正常に動作するんで、オフィス修復やったが治らず、 で、結局再インストしたらあっけなく治った。 プログラム
が何かの拍子で壊れる、ということがあるらしい。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/12
13: デフォルトの名無しさん (ﾜｯﾁｮｲ 63bf-pDLy) [] 2023/12/23(土) 21:28:56.85 ID:QzF0pH9f0 12だがやはり「マクロの登録」一覧からマクロが突然消える。 誰か対策教えてくれ。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/13
14: デフォルトの名無しさん (ｽｯﾌﾟ Sd1f-8PpB) [sage] 2023/12/23(土) 21:55:07.93 ID:wXkv6mGDd どうせマクロに署名してないから起動時に無効化されてるってオチ http://mevius.5ch.net/test/read.cgi/tech/1700826110/14
15: デフォルトの名無しさん (ﾜｯﾁｮｲ 6301-cfY7) [] 2023/12/23(土) 22:27:46.32 ID:8ng/MRqb0 ストレージか？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/15
16: デフォルトの名無しさん (ﾜｯﾁｮｲ 03b7-IGPl) [sage] 2023/12/24(日) 08:57:28.13 ID:emWydGj70 >>12 随分前だけどバージョン違いのExcelでマクロを起動すると似たような状況になったことがあったな 複数人で使い回したりしてる？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/16
17: デフォルトの名無しさん (ﾜｯﾁｮｲ ebfa-/Nx8) [sage] 2024/02/29(木) 03:28:34.72 ID:fThkXDoh0 以下のようにデータを入力したときに 画像のようにレイアウトをかえて、表示用として別シートに書くことは出来ますか？ A出版 004 A出版 003 B出版 006 B出版 005 （本当は画像と同じように書きます） https://i.imgur.com/1vIYIHQ.jpg 単純に取引先でソートして VBAで転記するときに、 上と同じなら文字削除すれば簡単でしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/17
18: デフォルトの名無しさん (ｽｯﾌﾟ Sd8a-9+AH) [sage] 2024/02/29(木) 03:34:27.60 ID:Abbi1OW1d できます http://mevius.5ch.net/test/read.cgi/tech/1700826110/18
19: デフォルトの名無しさん (ﾜｯﾁｮｲ ca77-DUIk) [sage] 2024/02/29(木) 09:37:23.42 ID:VmbR4Tf/0 >>17 後の流用を考えると、削除しないほうが良いんじゃない？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/19
20: デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdea-/Nx8) [sage] 2024/02/29(木) 14:12:43.39 ID:JwatrK+sd >>19 あくまでも表示用のシートです 削除しないとなると、どのような処理になりますか？ 色を背景色にするのでは選択すると入力できてしまうので、誤入力防止で削除を考えました http://mevius.5ch.net/test/read.cgi/tech/1700826110/20
21: デフォルトの名無しさん (ﾜｯﾁｮｲ ca77-DUIk) [sage] 2024/02/29(木) 14:38:52.61 ID:VmbR4Tf/0 >>20 ごめん、表示用だと認識してませんでした http://mevius.5ch.net/test/read.cgi/tech/1700826110/21
22: デフォルトの名無しさん (ﾜｯﾁｮｲ 1b56-AA/x) [sage] 2024/03/03(日) 09:38:35.96 ID:nYZbKW3u0 セル内に改行付きで入ってる文字列をWordファイルの指定のセルに転記させたいです。 当初差し込み印刷でやろうとしたんですが改行が消えてしまって… http://mevius.5ch.net/test/read.cgi/tech/1700826110/22
23: デフォルトの名無しさん (ﾜｯﾁｮｲ 9f45-zqCT) [sage] 2024/03/05(火) 15:19:55.05 ID:lrAkKyth0 >>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 http://mevius.5ch.net/test/read.cgi/tech/1700826110/23
24: デフォルトの名無しさん (ﾜｯﾁｮｲ 7b6e-0WZ8) [sage] 2024/03/05(火) 21:04:29.79 ID:vpqODFup0 500行ずつ下へ移動するオシャレな方法があれば教えて コードは簡単に書けるけどボタンをどうしようか悩んでいる。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/24
25: デフォルトの名無しさん (ﾜｯﾁｮｲ cb01-fRaX) [] 2024/03/05(火) 22:42:06.84 ID:uv6Tn7vf0 リボンかクイックに置けばいいだけ http://mevius.5ch.net/test/read.cgi/tech/1700826110/25
26: デフォルトの名無しさん (ｽｯﾌﾟ Sdbf-ZLJX) [sage] 2024/03/05(火) 23:06:34.48 ID:1MXf4VgDd ボタンなんてダサい ショートカットキーにしとけ http://mevius.5ch.net/test/read.cgi/tech/1700826110/26
27: デフォルトの名無しさん (ﾜｯﾁｮｲ 4bfa-sqC9) [sage] 2024/03/06(水) 00:55:19.48 ID:g0HJYNda0 >>26 ショートカットキーでマクロ発動とかできるの？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/27
28: デフォルトの名無しさん (ﾜｯﾁｮｲ cb41-zqCT) [sage] 2024/03/06(水) 21:07:09.63 ID:J53jsheD0 ちっさいユーザーフォームに[↓500] [↑500]のボタン置いて、Sheetの前面にフロートさせとく http://mevius.5ch.net/test/read.cgi/tech/1700826110/28
29: デフォルトの名無しさん (ﾜｯﾁｮｲ 7b0c-lv6g) [sage] 2024/03/22(金) 23:46:16.21 ID:4cmyPG190 質問させていただきます Cellsでセルを指定するときにセル番地を簡単にわかる方法はないでしょうか？ R1C1参照形式というものがありますがこれだとRangeを使用する際に不便だと思います。皆様はどのようにCellsとRangeに適したセル番地を把握されてますか？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/29
30: デフォルトの名無しさん (ﾜｯﾁｮｲ 591c-/oLk) [sage] 2024/03/23(土) 01:40:54.15 ID:WFks+Yvw0 よくわからないけど Range("A1") と書くのと Cells(1, "A") と書くのは同じです http://mevius.5ch.net/test/read.cgi/tech/1700826110/30
31: デフォルトの名無しさん (ﾜｯﾁｮｲ d901-8/Mv) [] 2024/03/23(土) 09:27:28.74 ID:Y5NpvLBG0 >>30 mjsk 初めて知った（今頃） http://mevius.5ch.net/test/read.cgi/tech/1700826110/31
32: デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 09:36:59.52 ID:mhs1yCGmd >>31 rangeオブジェクトのリファレンスに一度目を通しておくと良いよ http://mevius.5ch.net/test/read.cgi/tech/1700826110/32
33: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 13:55:04.13 ID:ulv10UCb0 助けて下さい 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 http://mevius.5ch.net/test/read.cgi/tech/1700826110/33
34: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 14:01:19.14 ID:ulv10UCb0 シートlabelをtxtに変換して 別のアプリで読み込もうと思います ですが、最後はエクセルが 終了してしまうため (bookが閉じる) 終了しないようにしたいのですが 最後3行を削除すると txtを保存するためのアラートが出たり アプリで読み込むと 読込エラーが出たりします (txtファイル使用中の為？) エクセル終了しない方法は ありますか？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/34
35: デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 14:30:10.11 ID:JDdDfN3id >>34 Application.quitしてるからExcelが終了するのは当然では http://mevius.5ch.net/test/read.cgi/tech/1700826110/35
36: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 15:09:35.81 ID:ulv10UCb0 >>35 ありがとうございます >>34 Application.quit を削除したのですが エクセルは終了しませんが book？が終了します http://mevius.5ch.net/test/read.cgi/tech/1700826110/36
37: デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 15:47:42.35 ID:2VB/Vbesd >>36 ブック開いてると排他制御かかるから書き込みロックするソフトから当該ブック開けなくなる だから閉じるしかないと思うよ http://mevius.5ch.net/test/read.cgi/tech/1700826110/37
38: デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd33-MwD1) [sage] 2024/03/23(土) 15:48:11.11 ID:2VB/Vbesd ああ、Excel側で読み取り専用で開き直すって手があるな http://mevius.5ch.net/test/read.cgi/tech/1700826110/38
39: デフォルトの名無しさん (ﾜｯﾁｮｲ 53dd-sTEQ) [sage] 2024/03/23(土) 16:28:38.79 ID:ulv10UCb0 >>37 アドバイスありがとうございます 閉じるしか 無理ですか... http://mevius.5ch.net/test/read.cgi/tech/1700826110/39
40: デフォルトの名無しさん (ﾜｯﾁｮｲ 8b8e-adAD) [] 2024/03/23(土) 22:42:53.35 ID:ULmGYrNT0 助けてで始まる質問をする奴は○○って法則 http://mevius.5ch.net/test/read.cgi/tech/1700826110/40
41: デフォルトの名無しさん (ﾜｯﾁｮｲ 1245-rfcW) [sage] 2024/03/26(火) 11:45:12.02 ID:JlWIdVqx0 ブックのフルパス取得しといて開きなおすとこまで書けばいいんじゃ http://mevius.5ch.net/test/read.cgi/tech/1700826110/41
42: デフォルトの名無しさん (ﾜｯﾁｮｲ 75f2-FSV6) [] 2024/03/26(火) 12:10:47.06 ID:qhsI8dwj0 何がしたいかわからん http://mevius.5ch.net/test/read.cgi/tech/1700826110/42
43: デフォルトの名無しさん (ﾜｯﾁｮｲ 62ad-aQbW) [sage] 2024/04/08(月) 04:42:24.97 ID:1vwt4prT0 日付（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でフォーマットを指定してもダメでした。 取得するセルの書式設定は日付でユーザー定義ではないです。 最終手段の文字列を加工するのはなしでお願いします。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/43
44: デフォルトの名無しさん (ｽｯﾌﾟ Sd02-kwRZ) [sage] 2024/04/08(月) 07:42:44.65 ID:TVRO53b8d >>43 Dim d As Date d = CDate(DATEVALUE(Range("A1").Value)) http://mevius.5ch.net/test/read.cgi/tech/1700826110/44
45: デフォルトの名無しさん (ﾜｯﾁｮｲ 43ce-Ky5X) [sage] 2024/04/08(月) 14:05:35.40 ID:nl9i5mBy0 >>43 試してみたけど、この3行はどれもエラーにならず同じ結果になった d = CDate(Range("A1").Value) d = Range("A1").Value d = Range("A1") セルA1の内容は本当にシリアル値か？ OSやOfficeは日本語版か？ ロケールは日本になってるか？ シリアル値ならそのままDate型に代入できるかららCDateで変換するのは無駄 A1セルの書式を標準に変えたらどんな表示になるか確認 http://mevius.5ch.net/test/read.cgi/
tech/1700826110/45
46: デフォルトの名無しさん (ﾜｯﾁｮｲ 36f9-zSwZ) [] 2024/04/08(月) 14:31:02.66 ID:bhILccJZ0 >>43 試したけど自分も再現しない。 そちらで新しいブックを作って同じ事を試したら再現する？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/46
47: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:20:50.97 ID:CNAyRCwJM すみません。初心者です。調べてもわからなかったので質問します。urlのようにまず一週間分の表を作って 一週間ごとにオートフィルすれば表がつくれるのですがそれをマクロでやりたいです。よろしくお願いいたします http://mevius.5ch.net/test/read.cgi/tech/1700826110/47
48: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:30:27.56 ID:CNAyRCwJM https://tadaup.jp/2205c27d6.png これでお願いいたします http://mevius.5ch.net/test/read.cgi/tech/1700826110/48
49: デフォルトの名無しさん (ｽｯﾌﾟ Sd02-kwRZ) [sage] 2024/04/09(火) 13:31:59.88 ID:+lYdM27Td 質問とは http://mevius.5ch.net/test/read.cgi/tech/1700826110/49
50: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:32:38.30 ID:CNAyRCwJM ボタンを配置して押すごとに一週間分作成という風にしたいです。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/50
51: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 13:34:22.65 ID:CNAyRCwJM >>49 誠に勝手ながらコードを教えて欲しいです http://mevius.5ch.net/test/read.cgi/tech/1700826110/51
52: デフォルトの名無しさん (ﾌﾞｰｲﾓ MM02-Ky5X) [sage] 2024/04/09(火) 14:44:25.19 ID:EBugvdEwM >>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.B
orders(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 http://mevius.5ch.net/test/read.cgi/tech/1700826110/52
53: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 15:00:14.82 ID:CNAyRCwJM >>52 ありがとうございます。大変申し訳ありません。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/53
54: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 16:35:36.48 ID:CNAyRCwJM >>52 すみません。これでも大丈夫ですがマクロ1回実行するごとに７日分つくりたいです。わがまますみません。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/54
55: デフォルトの名無しさん (ﾜｯﾁｮｲ 43ce-Ky5X) [sage] 2024/04/09(火) 17:25:50.64 ID:GvF1xxBu0 >>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 http://mevius.5ch.net/test/read.cgi/tech/1700826110/55
56: デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM92-Svx8) [sage] 2024/04/09(火) 17:44:22.55 ID:CNAyRCwJM >>55 ありがとうございます！助かりました http://mevius.5ch.net/test/read.cgi/tech/1700826110/56
57: デフォルトの名無しさん (ﾜｯﾁｮｲ 472d-gQNF) [sage] 2024/05/14(火) 11:08:08.44 ID:4ur2uort0 ワークシート上で使うつもりの関数についてですが Function で関数を作る場合に ワークシートのsum関数のように、「開始セル：終端セル」で範囲指定したものを 引数として渡すにはどのように書けばいいでしょうか？ Fuction Nmame（ここにどう書けば・・・） as Ingteger という意味です http://mevius.5ch.net/test/read.cgi/tech/1700826110/57
58: デフォルトの名無しさん (ﾜｯﾁｮｲ bfce-8FIX) [sage] 2024/05/14(火) 12:42:16.58 ID:kD3ns+u20 >>57 例 Function Nmame(セル範囲 As Range) As Integer Nmame = WorksheetFunction.Sum(セル範囲) End Function http://mevius.5ch.net/test/read.cgi/tech/1700826110/58
59: 57 (ﾜｯﾁｮｲ 6d2d-gQNF) [sage] 2024/05/14(火) 14:38:27.21 ID:w6s7TkHo0 >>58 ありがとうございます 様子がわかりました http://mevius.5ch.net/test/read.cgi/tech/1700826110/59
60: デフォルトの名無しさん (ﾜｯﾁｮｲ 290b-tdd4) [sage] 2024/05/15(水) 02:47:04.16 ID:m8dxiqQg0 WorksheetFunctionを知らないのか便利さを理解してないのか分からんが、使わない奴多すぎだよ。 http://mevius.5ch.net/test/read.cgi/tech/1700826110/60
61: デフォルトの名無しさん (ﾜｯﾁｮｲ 0eda-UQRA) [sage] 2024/05/20(月) 19:11:18.88 ID:7XMc72u80 たしかにExcel使っている人の中で99.9%の人は使ってないと思うよ http://mevius.5ch.net/test/read.cgi/tech/1700826110/61
62: 警備員[Lv.1][新芽] (ﾜｯﾁｮｲ 1a45-lB5S) [sage] 2024/05/21(火) 10:21:01.62 ID:KUESjums0 WorksheetFunctionは後でかなり読みづらくなるのとエラーの対処が面倒になるから極力避けちゃうな SequenceとXlookupはたまに使う http://mevius.5ch.net/test/read.cgi/tech/1700826110/62
63: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fce-bHMQ) [sage] 2024/08/19(月) 12:24:22.85 ID:r5bjtZ4H0 >>62 そのままベタで書いてない？ Set wf = WorksheetFunction n = wf.Vlookup(以下略 みたいにすれば式が長くて読みづらいのはだいぶ改善されるけど http://mevius.5ch.net/test/read.cgi/tech/1700826110/63
64: デフォルトの名無しさん (ﾜｯﾁｮｲ ffe8-78SL) [sage] 2024/08/19(月) 13:00:42.46 ID:0FLHd/HT0 object変数使うのとwith句どっちにするか悩む http://mevius.5ch.net/test/read.cgi/tech/1700826110/64
65: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f19-pzmg) [sage] 2024/08/21(水) 16:25:00.16 ID:p6R299lZ0 まーあまり使う機会が無いからね 今パッと思いつくのでも銀行丸めでない四捨五入くらい http://mevius.5ch.net/test/read.cgi/tech/1700826110/65
66: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fa0-/7EV) [sage] 2024/08/21(水) 21:12:32.10 ID:imFiEHqt0 wFuncと書くかな王道のキャメルネームってヤツで http://mevius.5ch.net/test/read.cgi/tech/1700826110/66
67: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fce-bHMQ) [sage] 2024/08/21(水) 21:32:45.54 ID:mP9N7y9+0 functionの省略形はFn キートップの表記もそうなってるし http://mevius.5ch.net/test/read.cgi/tech/1700826110/67
68: デフォルトの名無しさん (ｽﾌﾟｰﾌﾟ Sd1f-mCPX) [sage] 2024/08/21(水) 21:39:19.62 ID:9O1swhs+d キートップでいうならほとんどのキーボードはFだよ F1～F12のF http://mevius.5ch.net/test/read.cgi/tech/1700826110/68
69: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fa0-+MqX) [sage] 2024/08/22(木) 19:14:36.54 ID:4iA6d+k70 なるほど、fnを変数名もありだね 短くて分かりやすいのがベスト http://mevius.5ch.net/test/read.cgi/tech/1700826110/69
70: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fce-bHMQ) [sage] 2024/08/22(木) 20:47:55.78 ID:2kUwH3KZ0 >>68 そのパターンだと、続く数字がないと、F だけじゃ意味を認識できにくくないかな？ VBAと同じ祖先のN88-BASICにDEF FN()っていうステートメントがあったぐらいだし、Fnあたりが無難じゃないかなあと http://mevius.5ch.net/test/read.cgi/tech/1700826110/70
71: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fa0-+MqX) [sage] 2024/08/22(木) 21:40:22.16 ID:4iA6d+k70 変数名悩むよいつも http://mevius.5ch.net/test/read.cgi/tech/1700826110/71
72: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fda-WLSN) [sage] 2024/08/24(土) 06:52:44.35 ID:BUiu5a090 wFuckでいいんじゃね http://mevius.5ch.net/test/read.cgi/tech/1700826110/72
73: デフォルトの名無しさん (ﾜｯﾁｮｲ 1fcb-E/am) [sage] 2024/08/24(土) 15:53:04.39 ID:9/zXA2VM0 それもありだね 何となく意味が分かる変数名がベスト http://mevius.5ch.net/test/read.cgi/tech/1700826110/73
74: デフォルトの名無しさん (ﾜｯﾁｮｲ 2729-RGwf) [sage] 2024/09/03(火) 11:47:24.62 ID:RHXywGfU0 20種類前後の機材があり、1部屋につき5～10種使っていて、全部で50部屋程度ある 部屋毎に以下の内容を記載したシートを作らないといけない(機材名 サイズ 台数)というのが定期的にあり 現在は(部屋番号a 部屋名)と(部屋番号b 機材名 サイズ 台数)の一覧シートを作って For 部屋番号=2 to 部屋番号bmax 部屋番号a=部屋番号b *転記 といった形のマクロを使用しているのですが いちいち機材名等をコピペするのが手前なので(機材名 サイズ
台数 部屋番号b1 b2…)のシートを作って部屋番号a=b1*転記、a=b2*転記みたいにしたいです ただ、私の知識だと判定と転記の行を増やすくらいしか思い付かず、スッキリとした形にできるのでしょうか http://mevius.5ch.net/test/read.cgi/tech/1700826110/74
75: デフォルトの名無しさん (ﾜｯﾁｮｲ 5f41-RGwf) [sage] 2024/09/03(火) 16:38:51.21 ID:UjP0155+0 すいません自己解決しました http://mevius.5ch.net/test/read.cgi/tech/1700826110/75
76: デフォルトの名無しさん (ﾜｯﾁｮｲ 5fdb-nMrU) [] 2024/09/05(木) 12:36:06.75 ID:z+pIceuZ0 雑魚解決 http://mevius.5ch.net/test/read.cgi/tech/1700826110/76
77: デフォルトの名無しさん (ﾜｯﾁｮｲ 8a76-V211) [] 2024/12/05(木) 14:41:34.90 ID:BRiCmyxP0 B1:D1が全てTRUEの時、◯を違う時×を表示するという具合の関数を組みたいのですが何を使えばいいのでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/77
78: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa6a-VZt9) [] 2024/12/05(木) 14:48:46.36 ID:2LNpfkRJa lookup vlookup http://mevius.5ch.net/test/read.cgi/tech/1700826110/78
79: デフォルトの名無しさん (ﾜｯﾁｮｲ 62f6-ABoF) [sage] 2024/12/05(木) 15:13:00.67 ID:BvdDuGAN0 =IF(COUNTIF(B1:D1,TRUE)=3,”◯”,”×”) http://mevius.5ch.net/test/read.cgi/tech/1700826110/79
80: デフォルトの名無しさん (ﾜｯﾁｮｲ f245-Dj8N) [sage] 2024/12/05(木) 16:43:15.56 ID:e2kHlQPe0 =IF(AND(B1:D1),"○","×") http://mevius.5ch.net/test/read.cgi/tech/1700826110/80
81: デフォルトの名無しさん (ﾜｯﾁｮｲ 18f8-RZe5) [sage] 2024/12/05(木) 19:34:08.56 ID:8QbKq8w50 VBAスレだからworksheetfunctionって明示しないと http://mevius.5ch.net/test/read.cgi/tech/1700826110/81
82: デフォルトの名無しさん (ﾜｯﾁｮｲ acce-WFUB) [sage] 2024/12/05(木) 21:20:09.22 ID:7iZ97EoX0 = Mid("◯×", Range("B1") * Range("C1") * Range("D1") + 2, 1) http://mevius.5ch.net/test/read.cgi/tech/1700826110/82
83: デフォルトの名無しさん (ﾜｯﾁｮｲ 00da-Qs+Z) [sage] 2024/12/07(土) 08:22:31.23 ID:m++O9Thl0 >>77 頭を使ったほうが良いと思う http://mevius.5ch.net/test/read.cgi/tech/1700826110/83
84: デフォルトの名無しさん (ﾜｯﾁｮｲ c439-fZf7) [sage] 2024/12/07(土) 18:22:33.39 ID:FGUnkbhB0 ここに来るのは、頭だけは絶対に使わない人達 http://mevius.5ch.net/test/read.cgi/tech/1700826110/84
85: デフォルトの名無しさん (ﾜｯﾁｮｲ 0e62-jXfH) [sage] 2024/12/07(土) 20:46:46.78 ID:5zqnWiz30 ポコポコヘッドを覚えてから質問して来い？ http://mevius.5ch.net/test/read.cgi/tech/1700826110/85
86: デフォルトの名無しさん (ﾜｯﾁｮｲ 5f4d-RZe5) [sage] 2024/12/07(土) 21:35:52.97 ID:5P3CnKiu0 >>84 よう馬鹿！ http://mevius.5ch.net/test/read.cgi/tech/1700826110/86
87: デフォルトの名無しさん (ﾜｯﾁｮｲ 874a-dzkq) [sage] 2024/12/09(月) 11:28:21.48 ID:WZWOgPIq0 うんこ http://mevius.5ch.net/test/read.cgi/tech/1700826110/87
88: デフォルトの名無しさん (ﾜｯﾁｮｲ 63da-RIo9) [] 2025/01/23(木) 21:39:17.03 ID:L52ALlnW0 カレー http://mevius.5ch.net/test/read.cgi/tech/1700826110/88
89: デフォルトの名無しさん (ﾜｯﾁｮｲ 5901-Puvx) [] 2025/06/10(火) 22:29:47.99 ID:chtn5cci0 今どきのCONTINUEと同じように使えるのが goto CONTINUE方式 http://mevius.5ch.net/test/read.cgi/tech/1700826110/89
90: デフォルトの名無しさん (ﾜｯﾁｮｲ 1379-LiSn) [age] 2025/06/11(水) 17:06:06.79 ID:KpaZiopI0 ﾜｯﾁｮｲありのがええんやで http://mevius.5ch.net/test/read.cgi/tech/1700826110/90
91: デフォルトの名無しさん (ｱｳｱｳｳｰ Sacd-xHx3) [] 2025/06/15(日) 12:04:33.82 ID:VWehYNCSa 無の方は荒らされてるな http://mevius.5ch.net/test/read.cgi/tech/1700826110/91
92: デフォルトの名無しさん (ﾜｯﾁｮｲ a901-RmZj) [] 2025/06/15(日) 16:04:36.12 ID:iEbH+tZ40 バカが騒いでるだけ わざわざ私バカですって手を挙げて出てくるのが面白い、本人がわかってなくてw http://mevius.5ch.net/test/read.cgi/tech/1700826110/92
93: デフォルトの名無しさん (ﾜｯﾁｮｲ 2d7a-jKDy) [sage] 2025/06/15(日) 23:58:19.79 ID:K8AqenHf0 VBAスレ2つあったの今知ったわw http://mevius.5ch.net/test/read.cgi/tech/1700826110/93
94: デフォルトの名無しさん (ﾜｯﾁｮｲ b69b-Ut4v) [sage] 2025/06/16(月) 07:54:22.50 ID:ibaltNjp0 >>92 わかってる奴は質問スレ使う理由ないんだから、 質問スレでマウント取る奴ってそのために質問スレに書き込むバカでしかないんだよな 疑問の解決に寄与するならまだしも的外れなこと言ってる奴もいるし http://mevius.5ch.net/test/read.cgi/tech/1700826110/94
95: デフォルトの名無しさん (ﾜｯﾁｮｲ 0dce-oXsi) [sage] 2025/06/16(月) 13:10:13.94 ID:Mgfu6kwT0 昔から言われてるでしょ 「バカって言うやつが本当のバカ」 http://mevius.5ch.net/test/read.cgi/tech/1700826110/95
96: デフォルトの名無しさん (ﾜｯﾁｮｲ a901-RmZj) [] 2025/06/16(月) 21:13:13.73 ID:jCyEwpBS0 >>95 昔から言われてるでしょ それ言ってるのはバカしかいないと http://mevius.5ch.net/test/read.cgi/tech/1700826110/96
97: デフォルトの名無しさん (ﾜｯﾁｮｲ 2d35-jKDy) [sage] 2025/06/17(火) 18:43:01.81 ID:XfPfRxIO0 昔から言われてるのは、5ちゃんねるに書き込んでる事自体馬鹿ってヤツ http://mevius.5ch.net/test/read.cgi/tech/1700826110/97
98: デフォルトの名無しさん (ﾜｯﾁｮｲ f6e4-xkro) [] 2025/06/17(火) 19:14:09.68 ID:ebkbzKcj0 それは否定できねぇなあ http://mevius.5ch.net/test/read.cgi/tech/1700826110/98
99: デフォルトの名無しさん (ﾜｯﾁｮｲ 7501-VTwo) [] 2025/06/17(火) 20:52:08.20 ID:87w8cuvY0 踊る阿呆に見る阿呆、同じ阿呆なら踊らにゃ損損 http://mevius.5ch.net/test/read.cgi/tech/1700826110/99
100: デフォルトの名無しさん (ﾜｯﾁｮｲ 655f-AFj/) [] 2025/06/20(金) 21:29:26.25 ID:sV38LovV0 アホちゃいまんねんパーでんねん http://mevius.5ch.net/test/read.cgi/tech/1700826110/100
101: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa69-58RN) [] 2025/06/22(日) 11:13:20.67 ID:pDLda+7Na シットルケ http://mevius.5ch.net/test/read.cgi/tech/1700826110/101
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.463s*