↑同じ内容を3行貼り付けること
ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK
次スレは>>980が立てること
無理なら細かく安価指定
※前スレ
Excel VBA 質問スレ Part77
https://mevius.5ch.net/test/read.cgi/tech/1658009255/
Excel VBA 質問スレ Part78
https://mevius.5ch.net/test/read.cgi/tech/1667104996/
-
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
Excel VBA 質問スレ Part79
■ このスレッドは過去ログ倉庫に格納されています
2023/01/28(土) 11:46:47.21ID:mBQ16TA8
559デフォルトの名無しさん
2023/04/24(月) 02:06:49.66ID:BWKTcRvI 馬鹿が使う用語
↓
シミュレーション
↓
シミュレーション
560デフォルトの名無しさん
2023/04/24(月) 02:07:59.37ID:BWKTcRvI あ、俺が馬鹿か
漢字変換が勝手に修正する…
シュミレーションと書くのは馬鹿
漢字変換が勝手に修正する…
シュミレーションと書くのは馬鹿
561デフォルトの名無しさん
2023/04/24(月) 02:11:33.72ID:7Q5zeCBn >>558
馬鹿は間違っていることに気づかないからだろ
馬鹿は間違っていることに気づかないからだろ
562デフォルトの名無しさん
2023/04/24(月) 02:11:47.58ID:CUqhGEZn 例えば藤井聡太さんだってAIで将棋の研究をしているとは言いますがそれはAIが出したシュミレーション結果のいいデータ、答えだけを切り取っているという事なのでは？
563デフォルトの名無しさん
2023/04/24(月) 02:12:28.98ID:dU5ByQ7u >>562
馬鹿は黙れ
馬鹿は黙れ
564デフォルトの名無しさん
2023/04/24(月) 02:34:30.02ID:FQlyTijh 海外チェスで遠隔アナルバイブ振動でAIの答え座標を受信して不正してた奴いたけど
フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w
フジー君もやってねえだろうな PC詳しいしアナル好きそうだし…w
565デフォルトの名無しさん
2023/04/24(月) 03:07:44.21ID:CUqhGEZn >>563
じゃあなんでチャットGTPは自信満々にまちがえるのです？
じゃあなんでチャットGTPは自信満々にまちがえるのです？
566デフォルトの名無しさん
2023/04/24(月) 04:15:23.35ID:MMCAzh7R 馬鹿をだまして金とる戦略
567デフォルトの名無しさん
2023/04/24(月) 04:22:29.70ID:ay19AT0z568デフォルトの名無しさん
2023/04/24(月) 06:04:55.41ID:bY+5L6EV 「ｓｉｍｕ」を「シュミ」とは読まないだろう、という単純なことも理解できないレベル
半角だと環境によってはわかりにくくなるからあえて全角で書いた
半角だと環境によってはわかりにくくなるからあえて全角で書いた
569デフォルトの名無しさん
2023/04/24(月) 07:31:46.75ID:pba/8KUE ここはChatGPTの話題が出るだけで簡単に荒れるな
570デフォルトの名無しさん
2023/04/24(月) 07:40:26.28ID:nNpEvIsc ここだけじゃないよ
571デフォルトの名無しさん
2023/04/24(月) 07:41:51.55ID:pba/8KUE スルーするだけで済む話なのにスレタイ読めないのか、
はたまた自作自演で荒らしてるのか
はたまた自作自演で荒らしてるのか
572デフォルトの名無しさん
2023/04/24(月) 07:53:53.38ID:ltCEeSXK スルーしろと言うやつほど一番スルーできてない
573デフォルトの名無しさん
2023/04/24(月) 07:56:06.50ID:5kcFhqjo 昔は良スレだったのにな。
ひとつの話題で荒れすぎ
ひとつの話題で荒れすぎ
574デフォルトの名無しさん
2023/04/24(月) 08:01:16.77ID:pba/8KUE >>572
一番の意味くらい知っておいたほうが幸せになれるよ
一番の意味くらい知っておいたほうが幸せになれるよ
575デフォルトの名無しさん
2023/04/24(月) 08:11:57.10ID:4N3isGNg 別に誰のことか言ってない一般論に過剰反応するの図星すぎて笑える
576デフォルトの名無しさん
2023/04/24(月) 08:37:49.72ID:Z0B9bFh/ こっちのスレ要らなくね？
577デフォルトの名無しさん
2023/04/24(月) 09:00:06.24ID:clOk4EBF 必要ないと思ったなら見なきゃいいだけ
578デフォルトの名無しさん
2023/04/24(月) 09:46:37.76ID:5kcFhqjo もう全部スルーしてrom専で
579デフォルトの名無しさん
2023/04/24(月) 12:51:06.36ID:ay19AT0z スレ違いとかいうやつは見なければいいだけだろ。
番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？
番組はこうじゃなきゃいけないとかテレビ局に凸電する危地害なのか？
580デフォルトの名無しさん
2023/04/24(月) 15:11:25.30ID:Spd75cS3 そら公共電波だしな
ウンコ垂れ流され続けたら苦情も行くだろ
ウンコ垂れ流され続けたら苦情も行くだろ
581デフォルトの名無しさん
2023/04/24(月) 21:31:31.58ID:5kcFhqjo ウンコ言うな
582デフォルトの名無しさん
2023/04/24(月) 21:41:33.70ID:LZZeUipz 嫌なら見るな
苦情を言って変わるわけないのに、無駄だとわからない時点でアホ
苦情を言って変わるわけないのに、無駄だとわからない時点でアホ
583デフォルトの名無しさん
2023/04/25(火) 15:23:16.15ID:jvAnjjKM 言い方キツイがど正論だな。
嫌なら開かなければ良いな。
嫌なら開かなければ良いな。
584デフォルトの名無しさん
2023/04/25(火) 16:01:52.20ID:PhYPsJWz 逆だな、読んだから嫌な書き込みだと判断したんだろ
585デフォルトの名無しさん
2023/04/25(火) 16:32:47.24ID:OOi8qz2x ズレてるぞ おっさん 逆だな、とかどの立場で物申してるか片腹痛いわ
586デフォルトの名無しさん
2023/04/25(火) 16:45:08.15ID:/PKfXSpu 仮に公道にウンコ垂れ流し続けて嫌なら見るな主張しても警察が動くよな知らんけど
だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか
だとしたら公共電波のウンコ垂れ流しも取り締まられるべきと考えるのはそんなに不自然だろうか
587デフォルトの名無しさん
2023/04/25(火) 18:48:14.50ID:PhYPsJWz 垂れ流されているのが本当にウンコかどうかは見なければわからんだろ
ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ
ウンコが垂れ流されている公道を目をつぶって歩いたらウンコまみれになるぞ
588デフォルトの名無しさん
2023/04/25(火) 19:06:12.65ID:jvAnjjKM ウンコばかり言ってるとクソスレになっちまう！
589デフォルトの名無しさん
2023/04/25(火) 20:00:09.95ID:mmdaU32E 5chの場合は然るべき話題をすべく板やスレッドが別れてるわけだからな
スレの内容に沿った結果で不快な気持ちになることはあっても、
嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない
スレの内容に沿った結果で不快な気持ちになることはあっても、
嫌なら見るなはスレ違いや板違いって概念のある5chにおいては全く正論ではない
590デフォルトの名無しさん
2023/04/25(火) 20:03:38.76ID:mmdaU32E591デフォルトの名無しさん
2023/04/25(火) 23:00:49.89ID:jvAnjjKM まだ喧嘩してる
592デフォルトの名無しさん
2023/04/25(火) 23:02:46.35ID:OzfCSZRC593デフォルトの名無しさん
2023/04/26(水) 00:36:38.80ID:zxzdUrHn >>590
脱線が酷いとよくないのは解らんでもない
だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい
まるでゴミ捨て場のゴミチェックしてるジジイだ
そういう行動が心理的リアクタンスを生んでるんだよ
脱線が酷いとよくないのは解らんでもない
だがそれにもまして多少の脱線でも管理人気取りで言ってくるやつのほうがウザい
まるでゴミ捨て場のゴミチェックしてるジジイだ
そういう行動が心理的リアクタンスを生んでるんだよ
594デフォルトの名無しさん
2023/04/26(水) 08:58:25.55ID:1pxgk3Hs ここしばらくの脱線は多少ですまなくね？
595デフォルトの名無しさん
2023/04/26(水) 10:16:58.77ID:L1Mj70sJ 俯瞰するとGPTという脅威が出現して自分の価値喪失を感じる爺の焦りか
596デフォルトの名無しさん
2023/04/26(水) 10:32:27.26ID:w70Lrl+B 多少で済むくね？
597デフォルトの名無しさん
2023/04/26(水) 11:34:39.03ID:FZ0Navbz 行ごとに比較の数式を使った条件付き書式設定はVBAで書かないと無理ですか？
コピーしても絶対参照になって反映されず。
列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。
コピーしても絶対参照になって反映されず。
列A行i＞列B行i×２の時、列A行iを黄色で塗りつぶし作業です。
598デフォルトの名無しさん
2023/04/26(水) 11:50:15.79ID:MQck+7xp >>597
絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける
絶対参照と相対参照の使い分けはセル番地に $ 記号を付ける
599デフォルトの名無しさん
2023/04/26(水) 14:39:17.86ID:FZ0Navbz600デフォルトの名無しさん
2023/04/26(水) 18:26:19.83ID:QhJ3494d chatgptのvba専用スレ立てれば良くね？
601デフォルトの名無しさん
2023/04/27(木) 05:48:02.31ID:+yZZBsrI ChatGPT ってそんなに凄いんか
今度「EXCEL VBAでマリオ作ってください」って書いてみようかな
出来なければ無能
今度「EXCEL VBAでマリオ作ってください」って書いてみようかな
出来なければ無能
602デフォルトの名無しさん
2023/04/27(木) 06:49:22.19ID:76bSpVKu 頭悪そう
603デフォルトの名無しさん
2023/04/27(木) 13:34:04.47ID:dzjZcYac >>601
Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。
ゲーム画面を作成する
最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。
マリオキャラクターを作成する
マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。
Excel VBAでマリオを作ることは可能ですが、かなり複雑な作業になります。そのため、以下に示すのは、簡単なマリオゲームの作り方の一例です。
ゲーム画面を作成する
最初に、Excelワークシート上にゲーム画面を作成します。これには、背景、床、壁などが含まれます。背景と床は、Excelのシェイプを使用して作成することができます。壁は、VBAで作成する必要があります。
マリオキャラクターを作成する
マリオキャラクターを作成するために、Excelのシェイプを使用します。キャラクターは、右に進む、左に進む、ジャンプする、しゃがむなどのアクションを実行できるようにする必要があります。これには、キーボードの矢印キーを使用することができます。
604デフォルトの名無しさん
2023/04/27(木) 13:35:04.43ID:dzjZcYac 敵キャラクターを作成する
マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。
ゲームループを作成する
ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。
ゲームオーバー画面を作成する
ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。
以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。
マリオゲームには、いくつかの敵キャラクターが含まれます。これらは、Excelのシェイプを使用して作成することができます。敵キャラクターは、マリオキャラクターに衝突すると、マリオがライフを失うことになります。
ゲームループを作成する
ゲームループは、ゲームの進行を管理するために必要なものです。これには、マリオキャラクターと敵キャラクターの移動、衝突の検出、スコアの計算などが含まれます。
ゲームオーバー画面を作成する
ゲームオーバー画面は、マリオがすべてのライフを失ったときに表示されます。これには、Excelのシェイプを使用して作成することができます。
以上が、Excel VBAで簡単なマリオゲームを作成するための一般的な手順です。ただし、Excel VBAで本格的なゲームを作成するためには、より高度なプログラミング技術が必要となります。
605デフォルトの名無しさん
2023/04/27(木) 14:08:46.28ID:XSILjXL+ この部分のサンプルコードを教えて言うと一応コード書き始めるからな
問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん
問い質し続けるだけで何の技術も必要なくマリオが完成するかもしれん
606デフォルトの名無しさん
2023/04/27(木) 14:11:45.77ID:zVEPCm55 単純にマクロでゲーム作れる奴すげーし
607デフォルトの名無しさん
2023/04/27(木) 15:59:16.33ID:tbrdsB1h 作れるわけねーわな、あと著作権もあるし
608デフォルトの名無しさん
2023/04/27(木) 16:50:28.16ID:XSILjXL+ AIに人権はないから著作権も存在しない
マリオといっても花札屋のとは限らんしな
マリオといっても花札屋のとは限らんしな
609デフォルトの名無しさん
2023/04/27(木) 17:13:01.50ID:Ocl0clWf 作る人が多くなるとマリオのようなゲームのコードのテンプレのようなものがデータセットの中にできてきて
即答するようになるw
即答するようになるw
610デフォルトの名無しさん
2023/04/27(木) 18:09:30.67ID:DM4R6GlX >>608
著作権無視は違法ですが
著作権無視は違法ですが
611デフォルトの名無しさん
2023/04/27(木) 18:22:26.88ID:lojChHXv >>610
AIという道具を使った奴が違法な
AIという道具を使った奴が違法な
612デフォルトの名無しさん
2023/04/28(金) 12:20:31.67ID:BvI4vGh+ 罫線を引くコードはマクロの記録をしたものを加工するのが最善？
613デフォルトの名無しさん
2023/04/28(金) 12:28:24.02ID:vB455QFk いいえ
614デフォルトの名無しさん
2023/04/28(金) 12:42:10.09ID:FbKok5Di マクロ記録をそのまま使うなんて90年代のやり方
615デフォルトの名無しさん
2023/04/28(金) 12:49:48.27ID:vB455QFk そのままとはどこにも書いてない
616デフォルトの名無しさん
2023/04/28(金) 13:08:25.63ID:E6P3bOF0 お前は他人の否定ばかりだな？
617デフォルトの名無しさん
2023/04/28(金) 13:16:17.73ID:/vDIlpFT Private Sub Bttn_click()
Dim cT, cL, cW, cH, CR, CG, CB As Single
Dim cAd As String
Dim X0, Y0, W1, H1 As Variant
Dim shp As Object
cAd = Selection.Address(ColumnAbsolute:=False, RowAbsolute:=False)
If Selection(1).Row < 4 Or Selection(1).Column < 4 Then
MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !"
Exit Sub
End If
If Selection(Selection.Count).Row > 43 Or Selection(Selection.Count).Column > 65 Then
MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !"
Exit Sub
End If
If Selection.Rows.Count > 1 Then
MsgBox "複数行が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !"
Exit Sub
End If
If Selection.Columns.Count > 2 Then
MsgBox "3列以上が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !"
Exit Sub
End If
－－－－－－－－－－－－－－－ 続きあり
Dim cT, cL, cW, cH, CR, CG, CB As Single
Dim cAd As String
Dim X0, Y0, W1, H1 As Variant
Dim shp As Object
cAd = Selection.Address(ColumnAbsolute:=False, RowAbsolute:=False)
If Selection(1).Row < 4 Or Selection(1).Column < 4 Then
MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !"
Exit Sub
End If
If Selection(Selection.Count).Row > 43 Or Selection(Selection.Count).Column > 65 Then
MsgBox "描画の範囲外が選択されています" & vbCrLf, vbExclamation, "! 範囲外 !"
Exit Sub
End If
If Selection.Rows.Count > 1 Then
MsgBox "複数行が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !"
Exit Sub
End If
If Selection.Columns.Count > 2 Then
MsgBox "3列以上が選択されています" & vbCrLf, vbExclamation, "! 選択チェック !"
Exit Sub
End If
－－－－－－－－－－－－－－－ 続きあり
618デフォルトの名無しさん
2023/04/28(金) 13:18:29.67ID:/vDIlpFT If (Selection(1).Row Mod 2) = 0 Then
CR = 255
CG = 0
CB = 0
Else
CR = 0
CG = 0
CB = 255
End If
With ActiveSheet.Range(cAd)
cT = .Top
cL = .Left
cW = .Width
cH = .Height
End With
If Selection.Columns.Count = 1 Then
X0 = cL + (cW / 2) - 1
Y0 = cT + 2
W1 = cW / 8
H1 = cH - 4
Else
X0 = cL + (cW / 2 - 1)
Y0 = cT + 2
W1 = cW / 16
H1 = cH - 4
End If
－－－－－－－－－－－－－－－－－ 続きあり
CR = 255
CG = 0
CB = 0
Else
CR = 0
CG = 0
CB = 255
End If
With ActiveSheet.Range(cAd)
cT = .Top
cL = .Left
cW = .Width
cH = .Height
End With
If Selection.Columns.Count = 1 Then
X0 = cL + (cW / 2) - 1
Y0 = cT + 2
W1 = cW / 8
H1 = cH - 4
Else
X0 = cL + (cW / 2 - 1)
Y0 = cT + 2
W1 = cW / 16
H1 = cH - 4
End If
－－－－－－－－－－－－－－－－－ 続きあり
619デフォルトの名無しさん
2023/04/28(金) 13:29:30.38ID:/vDIlpFT Set shp = ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, X0, Y0, W1, H1)
shp.Line.Weight = 0.1
shp.Line.ForeColor.RGB = RGB(CR, CG, CB)
shp.Fill.Visible = True
shp.Fill.ForeColor.RGB = RGB(CR, CG, CB)
Range(cAd).Select
End Sub
セルD4：BM43までの範囲内に限定
一項目二行を使って上段が予定下段が実行などで判断できるように上下で線の色分け
斜線は引けない
図形のパターンは4種 直線・矢印線・縦棒・細い▲
shp.Line.Weight = 0.1
shp.Line.ForeColor.RGB = RGB(CR, CG, CB)
shp.Fill.Visible = True
shp.Fill.ForeColor.RGB = RGB(CR, CG, CB)
Range(cAd).Select
End Sub
セルD4：BM43までの範囲内に限定
一項目二行を使って上段が予定下段が実行などで判断できるように上下で線の色分け
斜線は引けない
図形のパターンは4種 直線・矢印線・縦棒・細い▲
620デフォルトの名無しさん
2023/04/28(金) 13:31:15.83ID:/vDIlpFT Private Sub Bttn2_Click()
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.Weight = 2
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.Weight = 2
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.Weight = 2
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.Weight = 2
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
621デフォルトの名無しさん
2023/04/28(金) 13:32:22.25ID:/vDIlpFT Private Sub Bttn3_Click()
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
rr.Parent.Shapes.AddLine(rr.Left + 2, rr.Top + 4, rr.Left + rr.Width - 1, rr.Top + 4).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
622デフォルトの名無しさん
2023/04/28(金) 13:33:33.67ID:/vDIlpFT Private Sub Bttn4_Click()
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then
rr.Parent.Shapes.AddLine(rr.Left + rr.Width - 2, rr.Top + 1, rr.Left + rr.Width - 2, rr.Top + rr.Height - 1).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
rr.Parent.Shapes.AddLine(rr.Left + rr.Width - 2, rr.Top + 1, rr.Left + rr.Width - 2, rr.Top + rr.Height - 1).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
Dim rr As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set rr = Selection
If rr.Row Mod 2 = 0 Then
rr.Parent.Shapes.AddLine(rr.Left + rr.Width - 2, rr.Top + 1, rr.Left + rr.Width - 2, rr.Top + rr.Height - 1).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(255, 0, 0)
End With
Else
rr.Parent.Shapes.AddLine(rr.Left + rr.Width - 2, rr.Top + 1, rr.Left + rr.Width - 2, rr.Top + rr.Height - 1).Select
With Selection.ShapeRange.Line
.Weight = 3
.ForeColor.RGB = RGB(0, 0, 255)
End With
End If
rr.Select
End Sub
623デフォルトの名無しさん
2023/04/28(金) 13:39:54.72ID:/vDIlpFT Bttn 細い▲ スタート位置など（打ち合わせ・協議など）
Bttn2 矢印線 ライン矢印付き
Bttn3 直線
Bttn4 縦棒 完了など 以下おまけ BDel 選択された範囲内のシェイプを全削除
Private Sub BDel_Click()
Call shpDel(Selection)
End Sub
Sub shpDel(ByVal mR As Range)
Dim mLo As Long, mCh As Boolean
mCh = True
For mLo = 1 To mR.Worksheet.Shapes.Count
With mR.Worksheet.Shapes(mLo)
If Intersect(.TopLeftCell, mR) Is Nothing Then
ElseIf Intersect(.BottomRightCell, mR) Is Nothing Then
Else
.Select Replace:=mCh
mCh = False
End If
End With
Next mLo
If Not mCh Then
Selection.ShapeRange.Delete
End If
mR.Select
Application.ScreenUpdating = True
End Sub
Bttn2 矢印線 ライン矢印付き
Bttn3 直線
Bttn4 縦棒 完了など 以下おまけ BDel 選択された範囲内のシェイプを全削除
Private Sub BDel_Click()
Call shpDel(Selection)
End Sub
Sub shpDel(ByVal mR As Range)
Dim mLo As Long, mCh As Boolean
mCh = True
For mLo = 1 To mR.Worksheet.Shapes.Count
With mR.Worksheet.Shapes(mLo)
If Intersect(.TopLeftCell, mR) Is Nothing Then
ElseIf Intersect(.BottomRightCell, mR) Is Nothing Then
Else
.Select Replace:=mCh
mCh = False
End If
End With
Next mLo
If Not mCh Then
Selection.ShapeRange.Delete
End If
mR.Select
Application.ScreenUpdating = True
End Sub
624デフォルトの名無しさん
2023/04/28(金) 17:18:16.62ID:/vDIlpFT 補足 ：
UserForm 「BttnF」上に、描画用ボタン「Bttn、Bttn2、Bttn3、Bttn4」を貼り
それぞれのコードを割り当て
描いた図形を削除するためのボタン「mDel」も貼る
セル範囲を選択後、上記いずれかのボタンを押すことで描画したり消したり
描画するSheet上(A1:D4内に配置すればウィンドウ枠の固定をしてもズレずに済む)に
UserFormを出すボタン「cmdBttnF」を貼り Private Sub cmdBttnF_click()のコードを割り当て
他の図形の例 ：
' ひし形は msoShapeDiamond
' 四つ星は msoShape4pointStar 五つ星 msoShape5pointStar
' 開始位置に戻るは msoShapeActionButtonBeginning 進む(再生)は msoShapeActionButtonForwardorNext
' 終了位置へ進むは msoShapeActionButtonEnd
' 吹き出しもできる msoShapeBalloon
' 右向き六角形 msoShapeChevron
細い▲や縦棒が嫌な場合はこれら等で
UserForm 「BttnF」上に、描画用ボタン「Bttn、Bttn2、Bttn3、Bttn4」を貼り
それぞれのコードを割り当て
描いた図形を削除するためのボタン「mDel」も貼る
セル範囲を選択後、上記いずれかのボタンを押すことで描画したり消したり
描画するSheet上(A1:D4内に配置すればウィンドウ枠の固定をしてもズレずに済む)に
UserFormを出すボタン「cmdBttnF」を貼り Private Sub cmdBttnF_click()のコードを割り当て
他の図形の例 ：
' ひし形は msoShapeDiamond
' 四つ星は msoShape4pointStar 五つ星 msoShape5pointStar
' 開始位置に戻るは msoShapeActionButtonBeginning 進む(再生)は msoShapeActionButtonForwardorNext
' 終了位置へ進むは msoShapeActionButtonEnd
' 吹き出しもできる msoShapeBalloon
' 右向き六角形 msoShapeChevron
細い▲や縦棒が嫌な場合はこれら等で
625デフォルトの名無しさん
2023/04/28(金) 17:20:52.50ID:/vDIlpFT 「mDel」ぢゃ無かった「BDel」で
626デフォルトの名無しさん
2023/04/28(金) 20:20:31.50ID:xyEtsQeE 皆様お助けください
VBA、INDEX,MATCHで検索先の行の文字数を検索値に合わせたいんだができない…シート関数だったら
INDEX(A:A,MATCH(B3,MID(C:C,1,LEN(B3)),0)でできるのに、マクロでMATCHの部分を
MATCH(ACTIVECELL.MID(RANGE("C:C"),LEN(ACTIVE CELL)),0)に変えると通らない
配列をとある文字数数分だけ検索したいというだけなんですができなくて困っております
よろしく御指南のほどお願い致します
VBA、INDEX,MATCHで検索先の行の文字数を検索値に合わせたいんだができない…シート関数だったら
INDEX(A:A,MATCH(B3,MID(C:C,1,LEN(B3)),0)でできるのに、マクロでMATCHの部分を
MATCH(ACTIVECELL.MID(RANGE("C:C"),LEN(ACTIVE CELL)),0)に変えると通らない
配列をとある文字数数分だけ検索したいというだけなんですができなくて困っております
よろしく御指南のほどお願い致します
627click
2023/04/28(金) 21:21:39.24ID:EQuQ1pVF >>626
Sub SearchText()
Dim searchText As String
Dim searchRange As Range
Dim searchResult As Range
' 検索値を取得
searchText = Range("B3").Value
' 検索範囲を指定
Set searchRange = Range("C:C")
' 検索して結果を取得
Set searchResult = searchRange.Find(what:=searchText, LookIn:=xlValues, lookat:=xlPart)
' 検索結果が見つかった場合、対応するA列の値を取得
If Not searchResult Is Nothing Then
MsgBox Range("A" & searchResult.Row).Value
End If
End Sub
Sub SearchText()
Dim searchText As String
Dim searchRange As Range
Dim searchResult As Range
' 検索値を取得
searchText = Range("B3").Value
' 検索範囲を指定
Set searchRange = Range("C:C")
' 検索して結果を取得
Set searchResult = searchRange.Find(what:=searchText, LookIn:=xlValues, lookat:=xlPart)
' 検索結果が見つかった場合、対応するA列の値を取得
If Not searchResult Is Nothing Then
MsgBox Range("A" & searchResult.Row).Value
End If
End Sub
628デフォルトの名無しさん
2023/04/28(金) 22:05:44.60ID:xyEtsQeE629デフォルトの名無しさん
2023/04/28(金) 22:07:31.25ID:q2nR+ZdU すみません
フォルダの中にあるExcelのファイルを指定のシートのみ残してその他のシートを削除して保存するVBAは組めるでしょうか？
その他にも指定のセルの値をファイル名として保存する方法は可能でしょうか？
フォルダの中にあるExcelのファイルを指定のシートのみ残してその他のシートを削除して保存するVBAは組めるでしょうか？
その他にも指定のセルの値をファイル名として保存する方法は可能でしょうか？
630デフォルトの名無しさん
2023/04/28(金) 22:16:54.88ID:h0I1nwu1 チャジれカス
631デフォルトの名無しさん
2023/04/28(金) 22:45:44.43ID:BEXA+iPo632デフォルトの名無しさん
2023/04/28(金) 23:28:17.83ID:xyEtsQeE >>627
ん？良くみたらこれはmatchの置き換えをしてるだけ？
ん？良くみたらこれはmatchの置き換えをしてるだけ？
633デフォルトの名無しさん
2023/04/28(金) 23:33:05.22ID:q2nR+ZdU >>631
ありがとうございます
ありがとうございます
634デフォルトの名無しさん
2023/04/29(土) 00:11:05.56ID:139vt90Q いつもの否定君息してる～？
635デフォルトの名無しさん
2023/04/29(土) 03:45:20.62ID:+IUP3Yu9 Excel2013でブックやワークシートにコードは貼れますが特定のセルにだけコードを貼って動作させるというような事はできないんでしょうか
コードからセル範囲を指定するというような事しかできない？
コードからセル範囲を指定するというような事しかできない？
636デフォルトの名無しさん
2023/04/29(土) 05:48:46.87ID:CXMs2SVp >>635
どゆことかよくわからんけどイベントプロシージャのことかな?
どゆことかよくわからんけどイベントプロシージャのことかな?
637デフォルトの名無しさん
2023/04/29(土) 06:57:41.72ID:+IUP3Yu9 そうです
ワークシート以下の単位はないから貼れないんですかね多分
ワークシート以下の単位はないから貼れないんですかね多分
638デフォルトの名無しさん
2023/04/29(土) 07:07:50.60ID:CXMs2SVp >>637
いやどゆことかよくわからんけど、例えばchangeイベントなら変更されたセルのrangeを取得できるからそこにコードを仕込むことはできるけど。。。そゆことじゃなくて?
いやどゆことかよくわからんけど、例えばchangeイベントなら変更されたセルのrangeを取得できるからそこにコードを仕込むことはできるけど。。。そゆことじゃなくて?
639デフォルトの名無しさん
2023/04/29(土) 16:14:48.16ID:eiNFh+Wm ファイルのパス、フォルダのパスをDimではなくConstで書く方がより正確性が増す
より確実に動作をする
という事はあるのでしょうか？
より確実に動作をする
という事はあるのでしょうか？
640デフォルトの名無しさん
2023/04/29(土) 16:25:03.32ID:vp07q8LL Constで正確性？確実？
エスパーすると関数型風に書きたいってことかな？
VBAでは無理だからそういう考えは捨てた方がいい
エスパーすると関数型風に書きたいってことかな？
VBAでは無理だからそういう考えは捨てた方がいい
641デフォルトの名無しさん
2023/04/29(土) 16:25:12.56ID:WvPbxn9Z ない
642デフォルトの名無しさん
2023/04/29(土) 17:18:17.07ID:eiNFh+Wm 休みの日も一生懸命考えていましたがきっと私にそれを求められていないし、提案や進言をしても却下されるからもういいや
643デフォルトの名無しさん
2023/04/29(土) 17:37:46.68ID:vp07q8LL VBAは制限多すぎるから何か自分なりの考えを実践したいなら別の言語も検討したらいいぞ
644デフォルトの名無しさん
2023/04/29(土) 17:57:33.75ID:6pUnwcoa 俺のエスパーだと、うっかり内容を書き換えてしまう事故が防げるって意味で言ってる？
645デフォルトの名無しさん
2023/04/29(土) 18:09:49.02ID:kR657gEs >>639
馬鹿の考え休むに似たり
馬鹿の考え休むに似たり
646デフォルトの名無しさん
2023/04/29(土) 18:32:46.88ID:eiNFh+Wm647デフォルトの名無しさん
2023/04/29(土) 19:09:19.53ID:vp07q8LL うーん一生懸命とかいうワードが出てくるって事は若い子なのかな
プログラミングはむしろ楽するための手段だからどうやったら楽できるかの観点で考えようぜ
プログラミングはむしろ楽するための手段だからどうやったら楽できるかの観点で考えようぜ
648デフォルトの名無しさん
2023/04/29(土) 19:35:35.63ID:eiNFh+Wm649デフォルトの名無しさん
2023/04/29(土) 19:43:44.26ID:eiNFh+Wm 私には何も決められないし、何も権限もないから勉強するだけ時間の無駄でした
一生懸命するだけ無駄でしたね
一生懸命するだけ無駄でしたね
650デフォルトの名無しさん
2023/04/29(土) 19:45:58.20ID:vp07q8LL わかったchatGPTで慰めてもらえ
651デフォルトの名無しさん
2023/04/29(土) 19:58:39.17ID:3f5XVnjz せっかく便利なマクロ作ってもあまり感謝されないとき悲しくなりませんか？
652click
2023/04/29(土) 20:08:00.17ID:ueoxn1ZD 組み込み屋ならconstはROMに配置されてRAMを圧迫しないとか考えてそう。
653デフォルトの名無しさん
2023/04/29(土) 20:08:33.11ID:eiNFh+Wm654デフォルトの名無しさん
2023/04/29(土) 20:30:49.52ID:vp07q8LL655デフォルトの名無しさん
2023/04/29(土) 21:55:57.78ID:nnQvwkBD 妬み僻みが先にたって、
集合知にならない日本人の悲しさ
集合知にならない日本人の悲しさ
656デフォルトの名無しさん
2023/04/29(土) 22:17:57.28ID:NIajcuht こういう頭の弱い人が作ると大文字限定とかなりそう
657デフォルトの名無しさん
2023/04/30(日) 05:15:21.17ID:9FCAizuG >>651
こういうツールを使いこなせる俺すげーってなっちゃうから
こういうツールを使いこなせる俺すげーってなっちゃうから
658デフォルトの名無しさん
2023/04/30(日) 06:07:32.17ID:SF8fLpoq >>653
過去は絶対に変えられないが他人は変えられる可能性がある。
実際『過去と他人は変えられない』という話をどこの誰から聞きかじったのかは知らないが、あなたはその言葉を聞いてその考え方に変わったわけだ。
あなたの立ち居振る舞いによってあなたの周りの人たちは変わる可能性がある。
過去は絶対に変えられないが他人は変えられる可能性がある。
実際『過去と他人は変えられない』という話をどこの誰から聞きかじったのかは知らないが、あなたはその言葉を聞いてその考え方に変わったわけだ。
あなたの立ち居振る舞いによってあなたの周りの人たちは変わる可能性がある。
■ このスレッドは過去ログ倉庫に格納されています
