Excel VBA質問スレ Part8

Excel VBA質問スレ Pa ..

209:デフォルトの名無しさん
08/09/11 23:07:26
>>206
×しずらい
○しづらい
◎しにくい

210:デフォルトの名無しさん
08/09/12 01:38:18
>>195
WindowsVBAつくってよ

211:デフォルトの名無しさん
08/09/12 03:36:31
yには、人生相談にすら答えてくれそうな勢いを感じる

212:y
08/09/12 20:05:30
>>205
「シートをＸボタンを押して閉じようとすると」とありますが、
シートに×ボタンはないので、たぶん「ブックを」のつもりでしょうか。

「変更を保存しますか」というメッセージは、ブックを保存した直後の状態であれば
表示されません。この状態は、WorkbookオブジェクトのSavedプロパティをTrueに
することで、強制的に作り出すことができます。
ブックが閉じられる直前に、その操作が自動で行われるようするためには、
ThisWorkbookオブジェクトのコード領域にBeforeCloseイベントを挿入し、
その中でSavedプロパティを操作します。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　ThisWorkbook.Saved = True
End Sub

213:デフォルトの名無しさん
08/09/12 20:44:06
うざいな

214:デフォルトの名無しさん
08/09/12 20:51:26
>>213
お前がな

215:205
08/09/12 22:35:11
なるほど。Savedプロパティですか。
ありがとうございました。

216:デフォルトの名無しさん
08/09/13 00:10:19
確かにうざいわ

217:y
08/09/13 02:54:40
・・・

218:デフォルトの名無しさん
08/09/13 03:49:12
何コイツ

219:デフォルトの名無しさん
08/09/13 06:49:48
煽りなんか気にすんな。

220:デフォルトの名無しさん
08/09/13 07:14:09
未だに169が粘着してる

221:デフォルトの名無しさん
08/09/13 08:56:37
>>217は、マジでうざいなｗ

222:デフォルトの名無しさん
08/09/13 09:06:33
まぁ、2chではあまり見ないキャラであることは確かだな。
嫌ならNGしとけ。

223:デフォルトの名無しさん
08/09/13 09:25:58
凄い粘着だな。。。おい。

224:デフォルトの名無しさん
08/09/13 10:01:34
>>218-223をNG指定した

225:デフォルトの名無しさん
08/09/13 11:55:22
マクロなんですけど、行挿入のマクロを作りたいんです。
だけど、挿入する行をセルの値から指定したい場合はどうすればよいですか？
例
B2 = 3
3行目と４行目の間に行挿入をするようB2をつかってさせる。

226:デフォルトの名無しさん
08/09/13 13:16:55
Dim i As Integer
i = Range("B2")
Rows(i).Insert

227:デフォルトの名無しさん
08/09/13 13:18:30
これだけでもいけるな

Rows(Range("B2")).Insert

228:デフォルトの名無しさん
08/09/13 14:07:04
>>226-227
助かります、ありがとうございました。

229:y
08/09/13 16:13:47
・・・

230:デフォルトの名無しさん
08/09/13 22:03:03
yそろそろコテにしたら？なりすましが出るくらい名が知れてきたんだからさ

231:デフォルトの名無しさん
08/09/13 22:16:44
yがコテじゃなかったら何だと言うのだ

232:デフォルトの名無しさん
08/09/13 22:33:41
トリップつけたら？ってことじゃね？

233:デフォルトの名無しさん
08/09/13 23:38:26
いい加減、ｙの話題やめろよ

234:デフォルトの名無しさん
08/09/14 00:06:42
うざすぎ

235:デフォルトの名無しさん
08/09/14 03:08:08
エクセルのシートに画像をドラッグした時に、指定場所に指定のサイズに変換したいのですができますか？

また、工事管理を行っていて、工期の数日前になると警告文が出るようにできるのでしょうか？

236:デフォルトの名無しさん
08/09/14 05:20:37
> エクセルのシートに画像をドラッグした時に、指定場所に指定のサイズに変換したいのですができますか？
「シートに画像をドラッグした時に」というイベントが用意されてないから、
「ドラッグした」ら自動で処理するってのは無理
「シートに画像をドラッグしてからボタンを押したら」なら可能だが

> また、工事管理を行っていて、工期の数日前になると警告文が出るようにできるのでしょうか？
可能だがExcelでやるべきことじゃないな
Excelでやるってことは、Excelとその警告マクロを作ったブックを立ち上げてないと警告文出ないわけだし
やるとすれば、「n日前」ではなく、「n日前以降、最初にExcelを立ち上げたとき」という条件になるかな

237:デフォルトの名無しさん
08/09/14 16:10:42
前者：できない
後者：できない

238:デフォルトの名無しさん
08/09/14 17:37:16
EXCEL関数についてお教えください

あいうえお（abc）
かきくけ（ほげほげ）
さしすせそたちつ（nekdk）

という行がありまして、（）とその中の文字列だけを全部消したいです。
（）は全角です。（）内の文字、文字数数がことなるので置換が使えないでいます。。

239:デフォルトの名無しさん
08/09/14 18:02:25
マッチコレクション

240:デフォルトの名無しさん
08/09/14 18:10:17
>>238
>>1 ★2

241:デフォルトの名無しさん
08/09/14 21:03:02
>>238

関数ではないけど
ツール→区切り位置で区切り文字を（にすると
（の前後で別のセルに分かれるからそれではダメかな？

242:デフォルトの名無しさん
08/09/14 22:58:50
　ＶＢＡで検索システム的なものを作っています。
行き詰ってしまったので何かアドバイスをいただければと思います。
ＯＳはＸＰでエクセルのバージョンは２００２です。よろしくお願いします。
　ブック内に「メイン画面」「情報A」「情報B」という３つのシートがあります。
「メイン画面」のB5セルに会員番号(K_Ban)を入力してマクロを実行すると「情報A」「情報B」から該当の会員番号に関する情報が「メイン画面」の任意のセルに代入されるというものです。
ただし「メイン画面」の形式の都合で、該当する「情報A」のうち、上から３件のみを出力させて４件目以降はカットしています。（下記コード参照）
「情報B」は「種別」という項目があり、「野菜」「肉類」「魚類」…などの分類が３０種類ほどあります。
「情報B」についても、各種別毎に３件目以降はカットしたいのですが、行き詰っています。
すなわち、会員番号１について「情報B」は３０件あり、野菜２５件、肉類５件があるとすると
「メイン画面」には野菜３件、肉類３件分の情報を出力させたいのです。
また、種別については、今後随時変更があるので「種別毎に変数を設定して直接数える」のではないようなコードにしたいと思っています。

243:デフォルトの名無しさん
08/09/14 23:00:25
Public Sub 検索()

Dim K_Ban As String
Dim MyRange As Range
Dim MyAddress As String
Dim cnt As Integer

K_Ban = Worksheets("メイン画面").Range("B5")
Set MyRange = Worksheets("情報A").Range("A1:A50").Find(K_Ban, LookAt:=xlWhole)
MyAddress = MyRange.Address
cnt = 8

Do
Worksheets("メイン画面").Cells(cnt, 3) = MyRange.Offset(0, 0).Value
Worksheets("メイン画面").Cells(cnt, 4) = MyRange.Offset(0, 1).Value
Worksheets("メイン画面").Cells(cnt, 5) = MyRange.Offset(0, 2).Value
cnt = cnt + 1

If cnt = 11 Then
Exit Do
End If
Set MyRange = Worksheets("情報A").Range("A1:A50").FindNext(MyRange)
Loop Until MyRange.Address = MyAddress
End Sub

244:デフォルトの名無しさん
08/09/14 23:25:44
シートの構造書くか、Bookをどこかにアップ

245:デフォルトの名無しさん
08/09/15 08:41:27
だよな普通

246:y
08/09/15 11:18:44
>>242

　　 |Ａ列.　　　　　|Ｂ列.　　　　|Ｃ列.　　　　|Ｄ列.　　　　|Ｅ列.　　　　
01　 | 0123456789| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
02　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
03　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
04　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　
05　 | 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　.| 　　　　　　　

シート内のデータ内容を説明するために、以前こんなテンプレを使っている人がいました。
「情報Ａ」「情報Ｂ」シートの中身を、文章で説明するより楽だと思ったら使ってください。

247:242
08/09/15 13:54:22
>>244-246
以下のようなシート構造で、種別→日付で並べ替えてあります。

A　　　　　B 　　C　　　　D
番号　種別データ１データ２
1　　　　肉類　豚肉　　20080915
1　　　　肉類　牛肉　　20080912
1　　　　肉類　鶏肉　　20080801
1　　　　魚類　その他　20080401
2　　　　肉類　猪肉　　20080905
2　　　　野菜　その他　20080802

248:y
08/09/15 16:03:53
>>247
Sub Sample()
　Dim K_Ban As Long: K_Ban = Worksheets("メイン画面").Range("B5")
　Dim r As Long
　Dim shubetsu As String
　Dim shubetsuCnt As Integer
　With ThisWorkbook.Sheets("情報Ｂ")
　　.Range(.Cells(1, 1), .Cells(.Rows.Count, 4).End(xlUp)).AutoFilter Field:=1, Criteria1:=K_Ban
　　r = 2
　　Do While .Cells(r, 1) <> ""
　　　If .Rows(r).Hidden = False Then
　　　　If shubetsu <> .Cells(r, 2) Then
　　　　　shubetsu = .Cells(r, 2)
　　　　　shubetsuCnt = 1
　　　　ElseIf shubetsuCnt < 3 Then
　　　　　shubetsuCnt = shubetsuCnt + 1
　　　　Else
　　　　　.Rows(r).Hidden = True
　　　　End If
　　　End If
　　　r = r + 1
　　Loop
　　.Range(.Cells(2, 1), .Cells(.Rows.Count, 4).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy _
　　　Destination:=ThisWorkbook.Sheets("メイン画面").Cells(8, 3) '←任意のコピー先セル
　　.AutoFilterMode = False
　End With
End Sub

249:y
08/09/15 16:04:42
上のコードは、条件に合わない行を非表示にしていき、最終的に表示されている行だけを
「メイン画面」の任意のセルにコピーする、という考え方です。デバッガでステップ実行していけば、
不要な行が非表示になっていく様子がよく分かると思います。不便なところは改良してみてください。
なお、データは「種別→日付で並べ替えてあります」とありますが、見たところ「番号→種別→日付」で並んで
いますね。上のコードは、そう並んでいる必要があります。

他のやり方を提案する方もいるかもしれませんので、そちらも参考にしてください。

250:デフォルトの名無しさん
08/09/15 18:09:00
先日行挿入について質問したものです。
C3で指定した値の行に行を挿入して、D3,Fj,D3で与えた値を挿入した行のHi、Fi,Iiに値を入れたいのですが、どこが間違っていますでしょうか、ご指摘お願いします。
Sub Main

Rows(Range("C3")).Insert

Dim i As Integer
Dim j As Integer
i = Range("C3")
Range("D3").Copy Destination:=Range("Hi")
j = i-1
Range("Fj").Copy Destination:=Range("Fi")
i = Range("E3")
Range("D3").Copy Destination:=Range("Ii")

END SUB
このように作ったのですが、うまくいきません。

251:デフォルトの名無しさん
08/09/15 18:39:29
>>250
まず、Range("Hi")というセルの指定のやり方はない
Rangeを使いたいんなら、Range("H" & i )
ほかには、Cells(i, 8)、もしくは、Cells(i, "H")

解説サイトいっぱいあるから基本的とこから少し勉強したほうがいいよ

252:デフォルトの名無しさん
08/09/15 19:29:45
エクセルの使い方もロクに知らない俺が
今日これからVBAの勉強を力尽きるまでやってみるぜ。
困ったときはお前らだけが頼りだ。

253:デフォルトの名無しさん
08/09/16 06:39:12
>>251
ご指摘、解説ありがとうございます。
出来る限り自分でやるようにしてみます。

254:242
08/09/16 23:49:49
>>248
ありがとうございます。
（もしかしたら上級者の方には普通なのかもしれませんが）
自分には全くない発想でした。勉強になりました。
お示しいただいたコードを元に自分でも勉強したいと思います。

255:デフォルトの名無しさん
08/09/17 00:16:06
そう考えること自体は不思議ではないと思うよ。
現によその言語ではそういうことができるものだってある（Perlとか）。
いずれにせよVBAはそういうことをしないということに変わりはないけれど。

256:デフォルトの名無しさん
08/09/17 01:45:49
ねぇねぇみんな。
Microsoft Forms 2.0 TextBoxだと右クリックしてもメニューが出てこないよね。
出てくるようにしたいんだけど、何かいい知恵あるかな？

257:デフォルトの名無しさん
08/09/17 17:14:06
すいません、質問です。

1004エラーが出ます。（´Д｀；
worksheet記述を加えてみたり、色々試してみたのですが消えません。

作りたいものとしては、
A列を縦にチェックして異なる文字列が出てきたら罫線(太線)を引く、
というものです。
突っ込み、お願いします。

Sub test()
　　Dim i As Integer
　　Dim st_flag As Byte
　　Dim range1 As Range
　　
　　st_flag = 0
　　i = 3
　　Do While Cells(i, 1).Value <> ""
　　　　If (st_flag = 1) Then
　　　　　　If (Cells(i, 1).Value <> Cells(i - 1, 1).Value) Then
　　　　　　　　Range(Cells(i, 1), Cells(i, 6)).Borders(xlEdgeTop).LineStyle = xlMedium
　　　　　　End If
　　　　Else
　　　　　　st_flag = 1　　 ''最初の1セルは比較をしない
　　　　End If
　　　　i = i + 1
　　Loop
End Sub

258:デフォルトの名無しさん
08/09/17 19:04:30
読むのめんどいからどの行でエラーなのか教えて

259:デフォルトの名無しさん
08/09/17 19:37:16
Range(Cells(i, 1), Cells(i, 6)).Borders(xlEdgeTop).LineStyle = xlMedium
↓
Range(Cells(i, 1), Cells(i, 6)).Borders(xlEdgeTop).Weight = xlMedium

260:デフォルトの名無しさん
08/09/17 20:29:58
実行時エラー '1004':

Border クラスの LineStyle プロパティを設定できません。

これくらいコピペしようぜ

261:デフォルトの名無しさん
08/09/17 20:30:38
時間の許す限りエラーの内容くらい小一時間考えよう

262:デフォルトの名無しさん
08/09/17 20:37:01
質問者と回答者よりも講釈師の方がが多いスレ

263:デフォルトの名無しさん
08/09/17 21:21:15
板全体に言えるわけだが
すれ違い甚だしい質問だとか煽りだとか
ここはまだまし

264:デフォルトの名無しさん
08/09/17 21:42:26
>>262
質問者　回答者　講釈師
貴方はどれに該当しますか？

265:デフォルトの名無しさん
08/09/17 21:43:55
ﾇﾙﾎﾟ

266:デフォルトの名無しさん
08/09/17 21:51:22
ﾎﾟﾙﾇ

267:デフォルトの名無しさん
08/09/17 21:52:59
>>262は煽り専門要員だよ

268:y
08/09/17 23:26:36
>>254
念のため補足しますが、>>248のコードは決して最善の方法ではありません。
合致する会員番号でふるいをかけ、その中から種別ごとに最大３つまでの
アイテムを取り出していく取捨選択の過程を、視覚的に理解するために利用してください。

仕組みが単純なので、コードが短くて済むというのが唯一の利点ですが、
マスタデータの行の表示・非表示を切り替えて実現する「検索システム」というのは、
>255でも指摘をいただいていますが、普通はやらないでしょう。
（数がたくさんになると、けっこう動作が重くなってしまいます）

まじめに実装するとすれば、取捨選択の考え方はそのまま生かすとしても、
転記の仕方に改良の余地があります。適当な二次元配列を用意して、
取捨選択したデータを一行ずつ追加していき、最終的に配列ごと任意のセルに
書き込む、というのが一般的なやり方になると思います。

>>256
TextBoxのMouseDownイベントプロシージャ内で、Commandbars("登録されているCommandbar名").ShowPopup を
実行すれば、そのタイミングで表示されます。ユーザー設定のショートカットメニューも表示できます。
ちなみにMouseDownイベント発生時は、Button引数が定数xlSecondaryButton と等しければ、右クリックと判断できます。

269:デフォルトの名無しさん
08/09/18 01:50:36
さすがy

270:デフォルトの名無しさん
08/09/18 05:40:38
うぜぇ

271:デフォルトの名無しさん
08/09/18 09:07:55
>>257っす。

>>258
申し訳ないっす。ブレークポイントで調べてみたらここらしいです。
　　　　　　If (Cells(i, 1).Value <> Cells(i - 1, 1).Value) Then
→　　　　　　　Range(Cells(i, 1), Cells(i, 6)).Borders(xlEdgeTop).LineStyle = xlMedium
　　　　　　End If

>>259
うぉ、できました！
罫線の種類とか太さとか、指定する先が間違っていたのですね。

>>260
そこまで親切に表示されませんでした。orz
出てきたのは、
　実行時エラー '1004':
　アプリケーション定義またはオブジェクト定義エラーです。
でした。あ、verはexcel2003です。

>>261
小一時間考えて駄目だったので聞いてみました。orzorz
Cのコンソール系しか打ったことが無いので、感覚的につかめなくて。

ともあれ、無事にできたので。
ありがとうございました。m(_ _)m

272:デフォルトの名無しさん
08/09/18 14:26:11
>>266

!ｯｶﾞ

273:デフォルトの名無しさん
08/09/18 18:15:17
>>242をわざわざVBA使ってまでやってる理由が分からんな…
関数だけで何とでもなりそうだｗ

274:デフォルトの名無しさん
08/09/18 19:42:37
>適当な二次元配列を用意して、
>取捨選択したデータを一行ずつ追加していき、最終的に配列ごと任意のセルに
>書き込む、というのが一般的なやり方になると思います。

はぁ？
何でお前ごときが一般論を語れるんだよ？

275:デフォルトの名無しさん
08/09/18 20:49:36
>>274
お前ごときがここにくんな

276:デフォルトの名無しさん
08/09/18 22:30:24
今独学でVBAを学んでいます。
皆さんにお聞きしたいのですが、
独学で学ぶにお薦めの本はありますか？

大村あつし著　かんたんプログラミング　EXCEL VBA基礎編
と　できるシリーズのVBAを読んでいます。

277:デフォルトの名無しさん
08/09/18 23:40:24
>>276
漏れの場合はVBAに関する知識はほとんどネットやヘルプで調べたものだったりするし・・・
VBとかやってるならオブジェクトブラウザとヘルプだけでも何とかなると思う
便利なテクニックとかはネットで拾い集めて行く

最初に手に入れたVBAの本に載ってたサンプルがコンパイル通らなかったから
本は全然信用してないだけだけどなｗ
でも1冊だけ役に立った本があったな・・・
「Excel VBA逆引き大全」とかだったかな？

278:デフォルトの名無しさん
08/09/19 01:19:38
すいません。
VBA作成経験なく、ここを答えを求める場として
使うことに申し訳なく思っています。

複数のExcelファイルを指定する。
当該ファイルを新ブックにして保存する。
→その際、シート名が重複しても問題なし
　新ブックのファイル名はあらかじめ指定したものを

このようなマクロをつくることは可能でしょうか。
前述のとおり、まったく経験なしなので、
サンプル、たたき台程度で構いませんので、
ご教示いただけたら嬉しいです。

279:デフォルトの名無しさん
08/09/19 01:57:51
相変わらずyきめぇｗ

280:デフォルトの名無しさん
08/09/19 02:05:09
>>278
さっぱり意味がわかりません。

281:デフォルトの名無しさん
08/09/19 02:08:42
>>277
>VBとかやってるならオブジェクトブラウザとヘルプだけでも何とかなると思う
できる奴の戯言だな

282:デフォルトの名無しさん
08/09/19 04:03:48
>>278
簡単だよ。

283:デフォルトの名無しさん
08/09/19 06:07:09
>>275
アホ？

284:デフォルトの名無しさん
08/09/19 06:25:29
>>281
いや普通できると思うできないのは文盲

285:デフォルトの名無しさん
08/09/19 06:26:23
>>283
ゆとり乙

286:デフォルトの名無しさん
08/09/19 06:37:00
ここの奴ら「簡単」だの「出来て当たり前」だの口ばかり達者で
入門書レベルの事しか回答出来ないから笑える

287:デフォルトの名無しさん
08/09/19 06:43:18
>>286
お前だろそれ

288:デフォルトの名無しさん
08/09/19 07:01:00
あらあらｗ

289:デフォルトの名無しさん
08/09/19 07:04:32
vbogl.tlbのedxさんめちゃくちゃいい人だ。メールしたら速攻返事きたｗ

290:デフォルトの名無しさん
08/09/19 07:05:18
誤爆した

291:デフォルトの名無しさん
08/09/19 07:06:03

>>278
複数ファイルのブック内のシートを結合するマクロなら昔適当に作ったのがあるけど

292:デフォルトの名無しさん
08/09/19 08:52:57
>>278
まとめると
複数ファイルのブック内のシートを結合する
シート名は重複している場合がある
だよな？
シート数は全部でどのくらいになるんだ？
あまり多いと1つのブックに収まらないよ

293:デフォルトの名無しさん
08/09/19 09:10:07
>>292
すいません、追加・変更があります。

○○システムの情報　ブック*2
□□システムの情報　ブック*2
（全部で5システム）

上記1ブックに1シートのみ

これをシステムごとに1ブックとして新規に保存。
なので、計5ブックができる。

これを一回でやりたいです。

下記の情報をあらかじめ指定（変更可）
- 各システムの情報ブック
- 新ブックの名前

を考えています。

294:292
08/09/19 10:40:41
>>293
かなり手抜きだが書いてみた
コピー後のシート名は指定するように作った
マクロを入れるブックに
A列（ファイルバス）| B列（コピー後のシート名）
○○システム
C:\A1.xls| Sheet○○1
C:\B1.xls| Sheet○○2
C:\C1.xls
○×システム
C:\A2.xls| Sheet○×1
C:\B2.xls| Sheet○×2
C:\C2.xls

といった感じにデータ入れて以下のマクロを動かす
(AとBはコピー元Cがコピー先)

295:292
08/09/19 10:41:55
Sub Macro1()
Dim wkAWorkbook As Workbook
Dim wkBWorkbook As Workbook
Dim wkCWorkbook As Workbook
Dim i As Long

For i = 0 To 1
With ThisWorkbook.Worksheets(1)
'コピー元1つ目を開く
Set wkAWorkbook = Workbooks.Open(.Cells(2 + i * 4, 1))
'1つ目を新規ブックにコピー
wkAWorkbook.Worksheets(1).Copy
Set wkCWorkbook = ActiveWorkbook
'コピーしたシートをリネーム
ActiveSheet.Name = .Cells(2 + i * 4, 2)

改行多すぎので次レスに続く

296:292
08/09/19 10:43:09

'コピー元2つ目を開く
Set wkBWorkbook = Workbooks.Open(.Cells(3 + i * 4, 1))
'2つ目を上でコピーしたブックにコピー
wkBWorkbook.Worksheets(1).Copy after:=wkCWorkbook.Sheets(1)
'コピーしたシートをリネーム
ActiveSheet.Name = .Cells(3 + i * 4, 2)

'開いた時に見栄えが悪いので1つ目のシートを選択
wkCWorkbook.Sheets(1).Select
'名前をつけて保存
wkCWorkbook.SaveAs (.Cells(4 + i * 4, 1))
'終了処理
wkAWorkbook.Close
Set wkAWorkbook = Nothing
wkBWorkbook.Close
Set wkBWorkbook = Nothing
wkCWorkbook.Close
Set wkCWorkbook = Nothing

End With
Next i
End Sub

専ブラじゃないのでずれて見づらいかも知れんなｗ

297:デフォルトの名無しさん
08/09/19 20:49:06
頭悪そうなコード

298:デフォルトの名無しさん
08/09/19 21:05:31
変数名のつけかたって、読んだ参考書や勉強したサイトにけっこう影響されない？

299:デフォルトの名無しさん
08/09/19 21:08:44
変数名のセンスが悪いな

300:y
08/09/19 21:23:03
>>276

「ＶＢＡの絵本」（アンク）
アンクの絵本シリーズは、その言語の仕組みや考え方を、豊富なイラストを用いて直感的に
伝える工夫がなされています。他人に薦めた本の中で、「分かりやすかった」という反応がいちばん
多かったのがこの本です。ACCESS VBAの内容も包括しているので、将来的にも役に立つでしょう。
概念の説明が中心で用例は乏しいので、メイン本にはできませんが、「かんたんプログラミング」を
持っているのであればそれで足りると思います。

「Excel VBAのプログラミングのツボとコツがゼッタイにわかる本～最初からそう教えてくれればいいのに」（秀和システム）
「絵本」よりも実際性があり、個人的には一押しです。解説文と図の取り合わせがとても洗練されており、
文脈の多義性によるストレスや誤読を最小限に抑えようとする、手厚い推敲の跡が感じられます。新しい本なので
まだ他人に薦めたことはありませんが、アマゾンでは好評なようです。

「ＶＢＡポケットリファレンス」（技術評論社）
ヘルプがあればリファレンス本はいらない、という声もありますが、個人的には手離せません。
ページをめくるより、ヘルプを開いた方が速いような気もするかもしれませんが、
書式指定子の一覧、よく使うオブジェクトのプロパティ一覧など、よく開くページに
付箋を貼って机に置いておくだけで、パッと見たい時には最速のツールになり、ディスプレイも汚れないので
思考が中断されません。（※ただし、ヘルプを使って調べる習慣は、それはそれで必要です）

「逆引き」本（各社）
>276で既に上がっていますが、豊富な用例がほしい時は逆引き本です。ただ、「やりたいこと」をもとに
用例を探す場合、インターネット検索のほうがより楽な場合が結構あることも覚えておいてください。
「ＶＢＡ　＋　（やりたいことに関連するキーワード）」で検索すると、似たようなことを既にやっている人の
コードが割と簡単に見つかったりします。

301:y
08/09/19 21:24:04
他にも良書はたくさんあるので、上にこだわることはありませんが、ひとつだけ、初心者が解説書を選ぶ上で
ぜひ注意してほしい点は、VisualBasicEditorの使い方、特にデバッグの作法を丁寧に解説している章があるかどうかです。
ステップ実行、ローカルまたはウォッチウィンドウでの変数の監視、イミディエイトウィンドウからの介入、これらの意味を
早いうちに知り、使いこなせるかどうかが、その後の上達に明らかに影響します。

302:デフォルトの名無しさん
08/09/19 21:27:08
たいしたデバッガじゃないからヘルプで十分だよ

303:y
08/09/19 21:56:25
>>273
Excel2007なら、オートフィルタの抽出条件で「上位○位まで」という設定が可能になったので、
それを組み合わせれば、フィルタだけで何とかなるような気がします。
ただ関数だけでやるとなると…　いい方法が思いつきません。

304:y
08/09/19 22:28:11
すみません。>>300の「>276で既に上がっていますが」は、「>277」の間違いです。
さらに内容も、結構>277とかぶってしまっています。失礼しました。

305:292
08/09/19 23:27:08
>>297
頭悪そうなレス

>>299
センスが良いネーミングをぜひとも教えてくれ

貶すことしか知らない無能って多いな

306:デフォルトの名無しさん
08/09/19 23:31:05
あらあらｗ

307:デフォルトの名無しさん
08/09/20 00:29:08
先週金曜日あたりから突然会社のExcel2002がおかしくなった。ネットワークが切断されたかなんたらで、ファイルにアクセスできないやらなんたらというのがおきるようになった。
コンパイルするとファイルサイズが600kbから740kbになる場合とならない場合があり、（ソースはバックアップから同じ様にに変更したのに）大きくなった場合、実行すると強制終了になるという症状も現れた。
自宅の２００３では問題なかったがためしに２００２に変更。SP3を適用したまでは問題なかったが会社と同じバージョンになるよう、全部の更新を適用したところ同じ症状となった
ためしに最新のKB8951551を削除するとあっさり解決した・・。同じ目にあってる人いますか？
解決にいたるまでめちゃくちゃ苦労したよ・・・。（いやまだ会社のエクセルでは試せてないけど・・・）

308:デフォルトの名無しさん
08/09/20 01:39:41
IDでないのにわざわざコテつけて煽るってなにこいつ

309:デフォルトの名無しさん
08/09/20 02:37:18
初心者です、お世話になります。
他の板で質問したあとに、こちらで質問すべきだったと気付きましたマルチポストですが勘弁してください。
セルＡ１とB１にそれぞれシリアル値による時間が入っています。
セルの書式設定により時間が表示されています。
ユーザーフォームの中のラベル１にＢ１からＡ１を引いた時間を時分秒の形で表示したいのです。
Ａ１は開始時間、Ｂ１は終了時間、ラベル１は所用時間と考えてください。
Label1.Caption = Range("B1") - Range("A1").value
とやるとシリアル値っぽいのが出るのですが、時間を表示したいのです。
助けてくださいませ。

310:デフォルトの名無しさん
08/09/20 03:58:49
>>292
ホントありがと。
まったくプログラム経験なしだけど、
書いていただいたものをもとに
勉強含め動かしてみたいと思います。

感謝します。

311:デフォルトの名無しさん
08/09/20 08:40:23
>>309
DateDiff関数でintervalに"s"を指定して秒単位の差分を取得、
後はそこから時分秒に分割して文字列に結合して完成、って所？

312:デフォルトの名無しさん
08/09/20 09:24:11
>>305
一生そのままで朽ち果てろ

313:デフォルトの名無しさん
08/09/20 10:14:55
ジョン３兄弟

314:y
08/09/20 13:55:32
>>309

>311のやり方で可能ですが、他にこういう書き方も。
Label1.Caption = Format(Range("B1") - Range("A1"), "hh:nn:ss")

315:デフォルトの名無しさん
08/09/20 16:18:39
>>311 >>314
アドバイスどうもありがとうございます。
テストをしてみたのですが、両方とも「’実行時エラー’438：オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
というエラーが出てしまいます。
私は知識不足なので対応がわかりません。
これは、どういうことなのでしょうか？

316:デフォルトの名無しさん
08/09/20 16:35:45
>>311 >>314
失礼しました、できました。
ほんとうにありがとうございました。

317:デフォルトの名無しさん
08/09/20 19:35:44
hh:mm:ssでなくて？

318:デフォルトの名無しさん
08/09/20 20:41:32
nnでもいけるんだよね

319:y
08/09/21 00:37:26
そうですね。
書式指定子 "m" または "mm" は、時刻の分も表しますが、日付の月も表します。それによる混乱を回避するため、
分のみを表す指定子「n」が実装されている、という話を何かの本で読んだことがあります。
ヘルプには、「"h" または "hh" の直後、あるいは "ss" の直前に "m" を指定した場合、月ではなく分が表示されます」とあります。
逆に言うと、mだけを独立して使うと、分ではなく月を表します。つまり分のみを表示させたい状況では、どうしても「n」を使う必要があります。
そういうわけで、分は最初から「n」を使う習慣をつけておいたほうが、間違いが少ないように思います。

320:デフォルトの名無しさん
08/09/21 00:47:17
うざ

321:デフォルトの名無しさん
08/09/21 03:56:03
>>320
なんでこいつこのスレに粘着してるの？

322:デフォルトの名無しさん
08/09/21 08:47:58
Excel 2009を使用しております。

テーブルを作成し、いくつか項目を入力した状態で、
GUIでテーブルの見出し行にある矢印メニューボタンを押した時に表示される
フィルタのメニューの処理を、VBAから行うにはどのようにすればよいでしょうか？

例えば、TODOリストを想像してください。
ボタンを配置して、ボタンを押すと、
テーブルの1つの列の「開始日付」が今日のもので、
「状態」列が「未完」となっているもののみを表示する。
また、他のボタンを押すと、元に戻る（というか全部表示）。
といったようなことをしたいのです。

画像を見てもらったほうが早いので、説明画像も作成しました。
URLﾘﾝｸ(sylphys.ddo.jp)

どのようなクラスのオブジェクトにアクセスすればいいかだけでも、手がかりがあればと思います。

323:y
08/09/21 09:13:13
>>322
チェックを入れたり外したりする操作を、「マクロの記録」（>>1★6）を使って記録して、
生成されたコードを見れば、どんなオブジェクトにアクセスしているか手がかりが
得られると思います。

324:デフォルトの名無しさん
08/09/21 09:37:36
>>321
うざいからだろｗ

325:デフォルトの名無しさん
08/09/21 09:42:50
>>323
ありがとうございます。
基本的なことを聞いてしまった様な気がします。テンプレ嫁よ俺。

「開始日付」を「今日」のみ選択、「状態」を「途中」「予定」「スキップ」のみ選んだ時は、
こんな感じで記録されていました。

　　ActiveSheet.ListObjects("作業記録").Range.AutoFilter Field:=2, Criteria1:= _
　　　　xlFilterToday, Operator:=xlFilterDynamic
　　ActiveSheet.ListObjects("作業記録").Range.AutoFilter Field:=1, Criteria1:=Array _
　　　　("途中", "予定", "スキップ"), Operator:=xlFilterValues

ListObjectsでListObject(テーブル)が得られて、そのRangeにAutoFilterをかますんですね・・・。

326:デフォルトの名無しさん
08/09/21 15:51:36
質問なのですが、
同一ファイル内で、シート１上の左側にはシート１の内容、右側にはシート２の内容
のように分割して表示することは可能でしょうか？
（ウィンドウを別々に開くのではなく）
もしやり方があるのであれば教えてください。
Excel2003を使用しています。

よろしくお願いします。

327:デフォルトの名無しさん
08/09/21 17:20:23
スレ違い

328:デフォルトの名無しさん
08/09/21 20:07:05
質問です。
-------------------------------------------
【やりたいこと】
(1).ファイル保存ダイアログでファイル名を選択させる。
(2).新規ファイル名を入力することも可能にする。
(3).ファイル保存時に選択可能なファイルタイプ（拡張子）をVBAで指定する。

【直面している問題】
・Office.FileDialog で msoFileDialogSaveAs を指定すると(3)を満たす方法がわからない
・Office.FileDialog で msoFileDialogFilePicker を指定すると(2)を満たす方法がわからない

【環境】
WindowsXp SP3 + Excel2002 SP3
-------------------------------------------
よろしくお願いします。

329:デフォルトの名無しさん
08/09/21 21:06:15
>>328です。事故解決しました。
Excel.Application.GetSaveAsFilename
を使えばよかったんですね。

スレ汚し失礼。

330:デフォルトの名無しさん
08/09/24 00:40:37
ExcelVBAって、.netよりもVB6に近いですか？

331:デフォルトの名無しさん
08/09/24 07:22:11
うーん。その質問は難しいな。
似てるけど全くの別物と思っておいた方がいいよ。

332:デフォルトの名無しさん
08/09/24 13:31:46
いやVB6とほとんど同じ

333:デフォルトの名無しさん
08/09/24 15:45:03
VB6でオブジェクトブラウザ開いてみな VBAがあるでよ

334:デフォルトの名無しさん
08/09/24 16:05:39
>>330-332
何処に焦点当てるかで変わってくる
VB6とVBAは、構文規則は全く同じ
組込関数はほとんど同じ
組込オブジェクトは全然別物

>>333
そのVBAとVisual Basic for Applicationは意味違うからw

335:デフォルトの名無しさん
08/09/24 18:37:44
Worksheets("表").Range("A2").Select

と記述するとA2にデータの未入力状態ということで実行エラーが出てしまうのに、

With Worksheets("表")
　　.Select
　　.Range("A2").Select
End With

と記述するとエラーが出ずに問題なく実行されるのはなぜなの？

336:y
08/09/24 21:36:05
あるセル範囲に対してSelectメソッドを実行したとき、
そのセル範囲が含まれるシートが選択されていなければ、
実行時エラーが発生する仕様になっているためです。

>335の下のコードは、シートを選んでから、セル範囲を選んでいるので、エラーは発生しません。
上のコードも、「表」シートが選んである状態であれば、エラーは発生しません。

337:デフォルトの名無しさん
08/09/24 21:57:49
＞Worksheets("表").Range("A2").Select
こうすればいい。
＞Worksheets("表").Select
＞Worksheets("表").Range("A2").Select
# って、既に歪の人が書いていたか。

338:デフォルトの名無しさん
08/09/24 23:27:58
ｽﾚﾁでしたら誘導願います。
xp・excel2002で、関数が物足りなくなってきたのでマクロとVBAの勉強始めました。
ネットで検索するとaccessにもVBAとかマクロとか関数も？あるようです？

同僚に挫折したaccessのVBAの本ならあるから1500円で譲るよ。と言われたのですが、
exceｌとaccessのVBAは同じものですか？全く別物でしょうか？？
すみません、宜しくお願いします。

339:デフォルトの名無しさん
08/09/24 23:33:34
>>338
AccessVBAの本ではVBの勉強にはなるかもしれないがExcelVBAの勉強にはならないので
1500円も出すくらいならちゃんとした本を買いましょう。

340:デフォルトの名無しさん
08/09/24 23:37:41
>>338
VBAそのものは同じだけど操作対象が全く別物なのでお勧めできない

341:デフォルトの名無しさん
08/09/24 23:44:40
>>339 >>340
レス㌧くすです。

つまり、同じものだけど違うものだから？エクセルのVBAの本を買うべき。
と言うことですね？ありがとうございました。
危うく、accessの本を読んでexcel挫折するところでしたｗ

342:デフォルトの名無しさん
08/09/25 00:42:24
いらないならタダでくれればいいのにセコイ同僚だな

343:デフォルトの名無しさん
08/09/25 15:13:33
Dim Cnt, Num As Integer
Dim Tbx As TextBox
Num = 0
For Cnt = 1 To 9
Num = Num + 1
Set Tbx = "TextBox" & Num
Tbx.Text = ""
Next

VBAは変数の型を自動変換してくれると考えて、これを実行すると、
「コンパイルエラー：型が一致しません」と出ちゃいます。無理かな。

344:デフォルトの名無しさん
08/09/25 16:09:13
>>343
>Dim Tbx As TextBox
>Set Tbx = "TextBox" & Num←何がしたいんだ？

TextBoxは文字列ではないからコンパイル通らなくて当たり前だな
Set Tbx = Worksheets(1).OLEObjects("TextBox" & Num)
なら理解できる

345:デフォルトの名無しさん
08/09/25 16:39:59
>>344
サンキュー！！！！！！！！！

346:デフォルトの名無しさん
08/09/25 16:45:25
ちなみに余計なお節介かもしれんけど
Dim Cnt, Num As Integer　と書くとｃｎｔはVariant型だぞ

347:デフォルトの名無しさん
08/09/25 17:07:39
>>346
わざわざ有難うございます。いただいたアドバイスをヒントに修正しました。
やりたかったのはUserForm1のコントロールTextBox1～9までの値をクリアすることでした。

Private Sub CommandButton5_Click()

' TextBox1～9までのTextプロパティの値をクリアする
Dim iCnt As Integer, iNum As Integer, oTbx As Control
iNum = 0
For iCnt = 1 To 9
iNum = iNum + 1
Set oTbx = UserForm1.Controls("TextBox" & iNum)
oTbx.Text = ""
Next

End Sub

348:デフォルトの名無しさん
08/09/25 18:48:29
ExcelVBAExpressEditionってないの？

349:デフォルトの名無しさん
08/09/26 09:26:40
えっえっえっえっ
えっろっびっでぉー

350:デフォルトの名無しさん
08/09/26 18:02:31
>>348
excelが対象なのに、VBAだけじゃ意味無いだろｗ
おとなしくメモ帳に書いとけ。

351:デフォルトの名無しさん
08/09/27 22:33:47
Hになればなるほど、固くなるものってな～んだ？

352:デフォルトの名無しさん
08/09/27 22:35:18
鉛筆の芯

353:デフォルトの名無しさん
08/09/27 22:53:05
エクセルにVBAが付いてくる…一般
VBAにエクセルが付いてくる…マ
>350は素人

354:デフォルトの名無しさん
08/09/27 23:28:04
> VBAにエクセルが付いてくる…マ
これ、笑うところ？
あ、マってプログラ"マ"じゃなくて"マ"ヌケってことか
それなら納得

プログラマがこんな本質を違えた愚かな発想するわけないもんなw

355:デフォルトの名無しさん
08/09/28 00:02:57
VBAって、いわゆるスクリプトだろ？
サクラエディタにでも書けばいいじゃん。

356:デフォルトの名無しさん
08/09/28 00:09:48
Excel 2008ではVBAサポートが廃止されました

357:ちら裏
08/09/28 06:12:41
VBとVBA,VB.NETは共にプログラミング言語文法の名前がVisual BASICというだけで
３つとも全部違うと思って欲しい。

それぞれ用途がかなり違う。文法も基本的な部分は同じでも、
実際にコードしてみると、かなーり違うことがわかる。

例えばVBA（もしかしてVB.NETも)では識別子に漢字交じり日本語が使える。

DLLなどの外部モジュールを最も簡単に呼び出せるのはVB。
VB.NETでは網羅されて使いやすいCLRが使える。
Excel付属のVBAでは、これらは出来ないか出来ても酷く面倒

しかしExcelのVBAは
精々ユーザー定義関数の定義や、外部ファイル入出力関係の
典型処理の組み込みや、フールプルーフ目的のフォーム作成
といった補助的な利用に留めておくべきで、ExcelをVB
環境の一種として取り扱うのはやめたほうがいい。
（VBを学ぶ環境としては余り適していない）

358:デフォルトの名無しさん
08/09/28 08:25:19
Visual Studio Tools for Applications
って何かと思っていたら、VBAの次世代版だったのか。
Office2003からVBAと並行して使えるようになっていたのな。
.NET2.0ベースで、VB.NET以外にもC#が使えるのは楽しそうだなあ。

>>356
VBAサポート打ち切ったら、マジ売れなくね？

359:デフォルトの名無しさん
08/09/28 12:22:40
>>357
ひどい知ったかなので、初心者は信じないように。

360:デフォルトの名無しさん
08/09/28 12:56:22
>>359
失敗の経験も貴重だから、確かにそうだな。

361:デフォルトの名無しさん
08/09/28 14:37:52
>>358
2008で「切り捨てて」AppleScriptに変更したら非難ごうごうで（当たり前）
次でやっぱりVBAを復活させるってさ

362:デフォルトの名無しさん
08/09/28 21:06:11
>>360
意味がわからん

363:高島彩
08/09/29 15:57:37
ワークシートつかわないでVBAでRSSの値とるやり方おしえて

364:HIRO ◆225xxx6ZSE
08/09/29 16:07:10
　　　, - ,----､　
　　（Ｕ（　　　　）　
　　｜　|∨Ｔ∨　　皆さん、>>363をよろしくお願いします。
　　（＿_）＿）

365:高島彩
08/09/29 16:12:29
　　　　　　　＿＿＿＿
　　　　　／∵∴∵∴＼
　　　　 /∵∴∵∴∵∴＼
　　　　/∵∴∴,（･）（･）∴|　　／￣￣￣￣￣￣￣
　　　　|∵∵／　　 ○　＼|　＜　 >>364　氏ねよ！！
　　　　|∵ /.　　ミ　|　彡 | 　　＼＿＿＿＿＿＿＿
　　　　|∵.| 　＼＿__|＿／| 　　　＿＿＿
　　　　＼|　　　＼__ノ　／　　／　　　＼　　
　　　　　　＼＿＿＿／　　 /∧　　　　　＼
　　　　　　／　　　　　　）　　| ×　　　　　　　|　＿　　　　　_
　　　　　/　,ｲ　、　　ﾉ/　　　|●（　　　　　―＝￣　｀ヽ,　＿
　　　　/　/　|　　　（〈　∵. ・＼　〈＿_　>　　゛　、＿―
　　　｜　!　ヽ　　ｰ＝-￣￣＝_＼＿（／　,　´ノ
　　　｜ |　　　｀iー＿＿＝―＿　;,　／　／／　　
　　　 !、ﾘ　　-=＿二＿＿￣_=;,　／　／　,'
　　　　　　　　/　 /　　　　　　　／　／| 　|
　　　　　　／　 /　　　　　　　!､＿／ / 　〉
　　　　　／＿/　　　　　　　　　　　　 |_／
　　　　　ヽ､＿ヽ

366:デフォルトの名無しさん
08/09/29 21:36:04
>>363
ごく普通にやればいいだけだよ
VBやCでやるのと同じように

つーか、ワークシート使わない方法になると>>1にも書いてある通り
VBAではなくVB分野になるのでスレ違いだな
あとは自分で調べましょう

367:HIRO ◆225xxx6ZSE
08/09/30 00:14:01
　　　, - ,----､　
　　（Ｕ（　　　　）　 >>366
　　｜　|∨Ｔ∨　　ありがとうございます。
　　（＿_）＿）

368:デフォルトの名無しさん
08/10/01 00:19:39
URLﾘﾝｸ(www.nicovideo.jp)
ニコ動で一時期流行った侵略ゲームをExcelで再現してみたのですが、
やはり（？）あまり速度が出ません。
いろいろ頑張ってみたのですが、自分の限界に達したようなので、
速度が向上する方法がありましたらアドバイスをいただけると助かります。

URLﾘﾝｸ(uproda11.2ch-library.com)

369:368
08/10/01 00:36:04
バージョン：Excel2007
ＯＳ：Vista

私の環境では、ウィンドウを最大化しておかないと何故かフリーズしやすいです。
フリーズというか、画面は固まりますが裏では動いています。

370:デフォルトの名無しさん
08/10/01 03:44:42
>>368
全く試さない上でVBA素人の俺が脊髄反射レス

・基点となるセルからoffsetで上下左右1ずつ隣のセルの値を取得して、
それを評価した方がいいんｼﾞｬﾏｲｶ

・セルのプロパティのアクセスを都度行うのは重いから、
一度マップ範囲を c = Range("x:y") のように配列に入れて、
値から何とかした方がいいんｼﾞｬﾏｲｶ

・ScreenUpdating を最初から False に(ry
嘘ですごめんなさい

371:デフォルトの名無しさん
08/10/01 07:26:33
Private Sub CommandButton1_Click()
Randomize

Dim hsXmax As Integer 'マップの横最大値
Dim hsYmax As Integer 'マップの縦最大値
Dim hsMap() As Integer 'マップの戦闘力格納用配列変数
Dim i As Integer '行番号
Dim j As Integer '列番号
Dim hsMaxPow As Integer '最大戦闘力
Dim x As Integer 'For用

hsXmax = Cells(6, 57).Value
hsYmax = Cells(5, 57).Value

ReDim hsMap(1 To hsYmax, 1 To hsXmax)

For x = 1 To 1000

Application.ScreenUpdating = False

'マップに戦闘力を設定。マップの一番外側は必ず白色
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If Cells(i, j).Interior.Color <> RGB(255, 255, 255) Then '白色以外のセルに戦闘力を設定
hsMap(i, j) = Int((99 * Rnd) + 1)
End If
Next j
Next i

372:デフォルトの名無しさん
08/10/01 07:27:04
'戦闘結果算出
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsMap(i, j) <> 0 Then 'セルに戦闘力が設定されている場合
'そのセルを含め、上下左右のセルの戦闘力の最大値を取得する
hsMaxPow = WorksheetFunction.Max(hsMap(i, j), hsMap(i - 1, j), hsMap(i, j - 1), hsMap(i + 1, j), hsMap(i, j + 1))
If hsMap(i - 1, j) = hsMaxPow Then '上のセルが最大だった場合は、上と同じ色にする
Cells(i, j).Interior.Color = Cells(i - 1, j).Interior.Color
ElseIf hsMap(i, j - 1) = hsMaxPow Then '左のセルが最大だった場合は、左と同じにする
Cells(i, j).Interior.Color = Cells(i, j - 1).Interior.Color
ElseIf hsMap(i + 1, j) = hsMaxPow Then '下のセルが最大だった場合は、下と同じ色にする
Cells(i, j).Interior.Color = Cells(i + 1, j).Interior.Color
ElseIf hsMap(i, j + 1) = hsMaxPow Then '右のセルが最大だった場合は、右と同じ色にする
Cells(i, j).Interior.Color = Cells(i, j + 1).Interior.Color
End If
End If
Next j
Next i

Application.ScreenUpdating = True

Next x

End Sub

373:368
08/10/01 07:43:19
↑はソースのコピペです。
一応貼っときます。

戦闘力はランダムのはずですが、
何故か名古屋が強い気がします・・・

374:デフォルトの名無しさん
08/10/01 14:08:29
>>368
フリーズは再現できなかったけどとりあえず軽くしてみた
やったことは
1.色を配列に入れてこねくり回すようにした
2.色が変化しない時は再設定しないようにした
3.気に入らなかったのでElseifをSelect Caseにした

375:374
08/10/01 14:08:53
Option Explicit
Sub CommandButton1_Click()
Randomize

Dim hsXmax As Integer 'マップの横最大値
Dim hsYmax As Integer 'マップの縦最大値
Dim hsMap() As Integer 'マップの戦闘力格納用配列変数
Dim hsColor() As Long 'マップの色格納用配列変数
Dim hsColor_old() As Long 'マップの色格納用配列変数(比較用)
Dim i As Integer '行番号
Dim j As Integer '列番号
Dim hsMaxPow As Integer '最大戦闘力
Dim x As Integer 'For用
Dim hsCells As Object
hsXmax = Cells(6, 57).Value
hsYmax = Cells(5, 57).Value
ReDim hsMap(1 To hsYmax, 1 To hsXmax)
ReDim hsColor(1 To hsYmax, 1 To hsXmax)
ReDim hsColor_old(1 To hsYmax, 1 To hsXmax)

With Range(Cells(1, 1), Cells(hsYmax, hsXmax))
'シートから色を取得
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
hsColor(i, j) = .Cells(i, j).Interior.Color
Next j
Next i

次ページ