08/09/06 17:10:04
>>113のCのコードを何も考えずにVBAにするとこうだぞ。
Sub main()
Call abc()
End Sub
Sub abc()
---
End Sub
戻り値の型がvoidの関数はSub、それ以外はFunction。
戻り値を受け取らない場合、Sub/FunctionにかかわらずCallを付ける（Call使わない記法もあるけど）。
117:デフォルトの名無しさん
08/09/06 17:30:42
>>116
113 です。いろいろお教え戴き有難う御座います。
この方法が簡単なので採用させて戴きます。
118:デフォルトの名無しさん
08/09/06 18:07:40
>>114
>>116
113 です。プログラム作成途中ですが、両方とも必要になりましたので、
共に採用させて戴きます。いろいろと、有難う御座いました。
119:デフォルトの名無しさん
08/09/06 21:14:05
ｽﾚﾘﾝｸ(tech板:878番)
120:デフォルトの名無しさん
08/09/06 23:37:07
関数は、なんらかの値をかえすべきであるという考えた方が
身に染み付いてるから、SubとVoid関数は非常にきもちわるい。
121:デフォルトの名無しさん
08/09/06 23:38:23
要するに時代遅れですね
122:デフォルトの名無しさん
08/09/07 00:36:46
かえり値もたない関数は、デバッグがむずかしくなるから、医療系の俺の会社じゃ
よほどのことがないかぎり作らない。むしろ１２１がしろうと
123:デフォルトの名無しさん
08/09/07 00:52:19
>>122
VBAスレで恥ずかしい事いうなよおっさん。
124:デフォルトの名無しさん
08/09/07 01:49:03
LispとかMLでの話なら>>120>>122も分かるが、
VBAで純粋関数型プログラミングは無茶があるだろ、常識的に考えて。
125:89
08/09/07 03:31:47
むっちゃ早く打つ案に似た解決策で自己解決しました。
必殺コピペです。
グローバルエリアに変数定義しようとしたらDimと打った時点でエラーメッセージが頻発
変数書こうとしても打っている途中でメッセージ頻発して書けない。
どこかにエラーチェックのタイミングプロパティがあると思うがコピペで解決したから諦めようかと思います
126:デフォルトの名無しさん
08/09/07 07:55:30
そういや、functionしか存在しない言語もあるな。
127:デフォルトの名無しさん
08/09/07 10:23:41
よくいるんだよね。VBにしかVariant型がないと思ってる自称上級者
128:デフォルトの名無しさん
08/09/07 14:27:52
ファイルを開かずにアクティブシートを変更するにはどうしたら良いでしょうか。
AccessのTransferSpreadsheetでエクセルの任意シートへデータを出力していますが、
エクセルファイルを開いた時に、値を出力したシートがアクティブになっているようにしたいのです。
129:128
08/09/07 14:30:04
ついでに読み取り専用属性の操作もできればサイコーです
130:デフォルトの名無しさん
08/09/07 14:45:07
please tell ass in Japanese...
Sheets("hoge").Activate
Sheets("hoge").SaveAs "c:\hoge.xlsx", xlWorkbookNormal, , , True
131:128
08/09/07 15:15:51
えー、ファイルを開かない状態でアクティブシートを変更したいのです。
そのやり方だとインデックスエラーになっちゃうんですけど。
132:デフォルトの名無しさん
08/09/07 15:26:27
Excelオブジェクト生成
ファイルオープン（非表示）
シートをアクティブにする
保存
133:デフォルトの名無しさん
08/09/07 15:30:41
ここっていちいち一から百まで説明しないといけないから疲れるな
結局ファイルを開かなきゃいけないってことですね。どうもありがとうございました。
134:デフォルトの名無しさん
08/09/07 15:39:47
偉そうに言ってますな w
135:デフォルトの名無しさん
08/09/07 15:45:40
そりゃそうだ。エスパーなんてここにはいない。
136:デフォルトの名無しさん
08/09/07 15:46:46
ここの奴らほとんど、ろくな知識も無いのに
知ったか振っててうざいんだもん
これぐらい言わせなよ
137:デフォルトの名無しさん
08/09/07 15:51:18
うわぁ・・・低脳すぎて煽るきにもならない
138:128
08/09/07 15:52:01
あと別におまえらがエスパーである必要はねーけど
言われた事から、相手がなぜそうしたいのか、ではどういう方法が適切かくらい想像しろよ、と思うね
おまえら自分の知ってることが唯一の回答であるようにこじつけてるだけだろ。
そういうのをバカの一つ覚えって言うんだよ。
でも回答ありがとう。じゃね。
139:デフォルトの名無しさん
08/09/07 15:52:32
っていうかxlsファイルを開くのとExcelのGUIを開くのを同じことだと思っている低脳っているんだね
140:>137
08/09/07 15:53:30
じゃあ書くなよウスノロｗ
141:デフォルトの名無しさん
08/09/07 15:53:47
うわぁ・・・ひどい池沼ですね・・・
142:デフォルトの名無しさん
08/09/07 15:55:07
日本語で質問できるようになったら書き込みしような。
143:デフォルトの名無しさん
08/09/07 15:56:22
高卒とかFランは書き込みできないようなフィルタかけてくれよ
144:デフォルトの名無しさん
08/09/07 15:59:21
盛り上がってますね
145:デフォルトの名無しさん
08/09/07 16:01:56
>>133
最低限1から5くらいまで説明しようぜ。
俺らお前のお母さんじゃないんだからよ。
146:デフォルトの名無しさん
08/09/07 16:02:48
というより、
出来ないことは出来ないと説明した上で代替案を示すなら
ここまで荒れないと思うのだが。
条件に反することを回答するからこうなる
147:デフォルトの名無しさん
08/09/07 16:03:39
>>132
でできると思うぜ。
148:デフォルトの名無しさん
08/09/07 16:10:34
>>145
えっ？
>128を1から5くらいの説明で理解できるのか？
最近のお母さんてスペック高いんだな！
149:デフォルトの名無しさん
08/09/07 16:11:33
OBJ.FileOpenは知ってたけどコードがごちゃごちゃするから嫌いなのよ。
他にもっとシンプルなやり方が無いのかな、って思っただけ。
150:デフォルトの名無しさん
08/09/07 16:12:30
>>147
非表示だけど、ファイル開いてるからNGだろ。
想像力のない俺からすれば、元の質問自体がNGだけどな。
151:デフォルトの名無しさん
08/09/07 16:13:04
変な知ったかいいわけ始めたぞ
152:デフォルトの名無しさん
08/09/07 16:14:32
ファイル開かずにファイルを変更するなんて方法があったら俺が知りたいな
153:デフォルトの名無しさん
08/09/07 16:16:31
128ってそんなに難しいか
まさかとは思うがプログラム板なのにAccessのVBAを知らん奴がいるのか
154:デフォルトの名無しさん
08/09/07 16:20:31
簡単だぞ。質問がヘタなだけ。で質問の答えに対して実装できるスキルもないだけ。
155:デフォルトの名無しさん
08/09/07 16:23:38
要するに低脳というわけですね。分かります。
156:デフォルトの名無しさん
08/09/07 16:24:49
盛り上がってますなあ
157:128
08/09/07 16:38:58
結局お前らAccessVBAが理解できなかっただけ佳代ｗ
低能エクセル厨乙ｗ
158:デフォルトの名無しさん
08/09/07 16:49:47
スレタイ100回音読してみろ。
それから自分の質問と回答を100回音読しろ。
159:デフォルトの名無しさん
08/09/07 16:56:43
下手な釣りだなあ。次の質問どうぞ。
160:デフォルトの名無しさん
08/09/07 18:49:05
>>128
が見えない
161:デフォルトの名無しさん
08/09/07 20:20:00
excel vba 極めたいのですけど
お勧めの参考書はありますか？元制御系プログラマで
プログラミングの基本は充分できています。
技術評論社のポケットリファレンスはどうですか？
162:デフォルトの名無しさん
08/09/07 20:25:06
便乗質問・・・。
win32APIを勉強したいのですが、お勧めの本ってありますか？
使用目的はExcel VBAで呼び出す事です。
163:デフォルトの名無しさん
08/09/07 20:29:47
Excel VBAによるWin32 APIプログラミング入門 (単行本)
ぐぐることも出来ないの？
164:デフォルトの名無しさん
08/09/07 23:32:31
質問者も回答者もバカが多いな
165:デフォルトの名無しさん
08/09/08 00:05:08
お前ほどじゃないがな
166:デフォルトの名無しさん
08/09/08 03:03:14
だな
167:デフォルトの名無しさん
08/09/08 03:08:05
157 名前：128[] 投稿日：2008/09/07(日) 16:38:58
結局お前らAccessVBAが理解できなかっただけ佳代ｗ
低能エクセル厨乙ｗ
こいつリアルでもこんな感じなんだろうな
168:デフォルトの名無しさん
08/09/08 07:45:44
>>162
マジレスするとWin32APIの為に本を買うのはもったいない。
MSDNとネット上のAPIサンプル集とかで十分。
169:デフォルトの名無しさん
08/09/08 19:00:04
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
上のようなことの逆は可能ですか？
例えば、セルAに映画のタイトルが縦に並んでて、
セルBにはその映画の詳細が見れるHPアドレスが沢山並んでます。
セルBのそれぞれのアドレスを、セルAに一括でハイパーリンクさせる（埋め込む）
方法が知りたいです。
ご教授、宜しくお願い致します。
170:デフォルトの名無しさん
08/09/08 19:41:35
ｽﾚﾘﾝｸ(bsoft板:238番)
171:デフォルトの名無しさん
08/09/08 20:08:18
>>170
循環参照になってる
172:デフォルトの名無しさん
08/09/08 20:09:26
笑！
173:y
08/09/08 20:21:47
>>169
セルB1にあるアドレスを、セルA1にハイパーリンクとして埋め込むのは、
次のようにすればできます。
Sheet1.Hyperlinks.Add Anchor:=Cells(1, "a"), _
Address:=Range(1, "b"), _
TextToDisplay:=Cells(1, "a").Value
（マクロの記録を使って、ハイパーリンクを埋め込む動作を記録してみれば簡単です）
これをループで括って、「1」となっているところ（これは行番号にあたります）を
変えていけば、お好みの行数分操作できます。
174:y
08/09/08 20:25:13
あ！ すみません。
169はマルチポストだったんですね。
気づかずに答えてしまいました。
>>169
URLﾘﾝｸ(ja.wikipedia.org)
一度ここを読んでおいてください。
175:デフォルトの名無しさん
08/09/08 20:29:35
> Range(1, "b")
？
176:y
08/09/08 20:29:41
さらに自分のレスの間違いに気づきました。
Address:=Range(1,"b") → Address:=Cells(1,"b")
177:169
08/09/08 21:03:00
>>173 マルチ悪かった。
ツール→マクロ→VBA→標準モジュールに保存した後、
マクロ実行してみたけどできません。
初心者なんでもう少し詳しく教えていただけませんか？
178:169
08/09/08 21:54:01
1行だけできましたけど、
行数分操作ができません。
Cells(1, "a"),
1の部分の範囲指定はどうすればいいの？
179:169
08/09/08 21:55:21
できればセルを範囲指定して、マクロ実行で
一括で変更できると助かります
180:デフォルトの名無しさん
08/09/08 22:01:32
ググレ
181:デフォルトの名無しさん
08/09/08 22:27:39
>>180
いろいろ調べてもわからねぇよ
質問スレなんだから聞いてるんだろ。。意地悪しねぇで教えろよ。
その気がないなら返信するな
182:デフォルトの名無しさん
08/09/08 22:45:30
>>179=>>169=>>こないだの池沼
な
183:デフォルトの名無しさん
08/09/08 22:46:16
>>181=>>179=>>169=>>こないだの池沼
184:デフォルトの名無しさん
08/09/08 23:16:26
モーグでも行けよ池沼
185:デフォルトの名無しさん
08/09/08 23:40:48
で、また169が暴れるのか？
186:デフォルトの名無しさん
08/09/08 23:43:52
>>181=>>179=>>169=>>184=>>こないだの池沼
187:デフォルトの名無しさん
08/09/09 01:33:11
XMLファイルをVBAで扱いたいんですけど、そういった方面を勉強できるような書籍はないでしょうか。
「XML入門」みたいな本はたくさん見るんですけど、あれって具体的なコーディングについては記述が無いorごく少ないですよね。。。
あってもPHPとかばっかりだし。。。
188:デフォルトの名無しさん
08/09/09 08:48:08
書籍があってもバカじゃどうしようも無い
まともな頭があればVBAでCOM(XMLDOM)使ってXML扱うくらい、
ネットの情報だけで事足りる
189:デフォルトの名無しさん
08/09/09 10:31:32
あるセルからあるセルまでソルバーを使うということをやりたいのですが、
↓のを作ったのですが、出来ません。どうすればいいですか？
SOLVERの参照設定はやりました。
Sub Macro1()
Dim x As Integer
For x = 1 To 5
Range("Cells(x, 3)").Select
SolverOk SetCell:=Cells(x, 5), MaxMinVal:=3, ValueOf:="0", ByChange:=Cells(x, 2)
SolverSolve Userfinish:=True
Next x
End Sub
190:y
08/09/09 19:35:50
>>177
173の後半を、もう少し具体的に書きます。
まずループ用の変数rを宣言し、ここでは例として
For ～ Next間を5回繰り返すループを示しておきます。
Dim r as Long
For r = 1 to 5
Sheet1.Hyperlinks.Add Anchor:=Cells(r, "a"), _
Address:=Cells(r, "b"), _
TextToDisplay:=Cells(r, "a").Value
Next
繰り返しのたびに、rは1, 2, 3, 4, 5と変化していくので、
上のコードでは1～5行目に対する操作が行われることになります。
初心者の方なら、「VBA デバッグ」などで検索してみて、この過程を
一つ一つ目で確認する方法を身につけると、上達が早くなります。
For r = Inputbox("開始行？") to InputBox("終了行？")
とすれば、処理をしたい行の範囲を簡単に指定できますが、
もっと便利にしたければ、自分でも他の方法を色々調べてみてください。
質問する時は、どんなに間違っていてもいいので、とにかく何か自分なりに
調べて考えたコードを貼って、それに対するアドバイスを求めた方がいいですよ。
181のようなことを書くと、>>1の★5にあるように、「また丸投げか」と
怒りを買ってしまいます。
191:y
08/09/09 20:01:47
>>189
マクロの記録を使って、ソルバーでやりたい作業をマウスでやってみて、
どんなコードが記録されるか確かめてみてください。(>>1★5)
189のコードについては、
①単純な構文ミス Range("Cells(x, 3)").Select → Cells(x, 3).Select
②目的セルをどこにしたいのか、可変セルをどこにしたいかが不明
です。特に、②が分からないとアドバイスができません。
192:y
08/09/09 20:03:56
>189
「>>1★6」でした。失礼しました。
193:デフォルトの名無しさん
08/09/09 20:44:23
>>190
ご親切にありがとうございました。
勉強になりました
194:デフォルトの名無しさん
08/09/09 22:41:34
>>191
すみません
目的のセルがCells(x, 5)で、可変セルがCells(x, 2)のつもりでした。
で、①のやつをやったら出来ました。
ありがとうございました。
195:デフォルトの名無しさん
08/09/09 22:50:31
VBA初心者です
何か作ろうと思うのですが…自分では思いつかないので…
何か問題お願いします。
196:デフォルトの名無しさん
08/09/09 22:57:53
>>195
このスレを集計してyの貢献度を調査せよ。
197:195
08/09/09 23:04:59
>>196
ﾗｼﾞｬ
198:デフォルトの名無しさん
08/09/09 23:34:22
式を教えてください。
Ａ列には文章が入っています。
Ｂ列には文章に含まれる単語、Ｃ列にはコード番号が入っています。
それぞれ数百～数千行になります。
Ａ列にはＢ列の単語のいずれかが含まれる場合には、
単語に対応するＣ列のコードをＤ列に表示させたいのですが、
どのような式がよいでしょうか。
VLOOLUPやFINDなどを組み合わせてみても上手くいきません。
お手数ですが、どなたか至急お教え願えますでしょうか。
199:デフォルトの名無しさん
08/09/10 00:31:40
具体的なセルの中身教えろよ
このスットコドッコイ
200:デフォルトの名無しさん
08/09/10 07:26:43
Ａ列…デフォルトの名無しさん、具体的なセルの中身教えろよ、このスットコドッコイ
Ｂ列…デフォルト、セル、スットコドッコイ
Ｃ列…E46194、H23t55、342421
201:デフォルトの名無しさん
08/09/10 07:44:07
ここはExcel VBAのスレです
202:デフォルトの名無しさん
08/09/11 00:16:48
XPでExcel2003です
c:\aaa 配下にある全てのファイルとサブフォルダを
c:\bbb 配下に全てコピーする事は可能ですか？
また、サンプルコード等ありましたらヒントを頂けると助かります
色々と探してはいるのですが、いまいちピンとこないので
サンプルがあると助かるのですが、、、、
ＶＢＡはまだまだ初心者なので未熟者で恐縮です。
203:デフォルトの名無しさん
08/09/11 06:12:54
>>202
>>1★3 ★4
204:デフォルトの名無しさん
08/09/11 19:30:31
たまにmougヲチするんだけど、痛い回答者が多いのね。
205:デフォルトの名無しさん
08/09/11 19:59:47
シートにコンボボックスを貼り付けて
AddItemで追加した後にシートを
Ｘボタンを押して閉じようとすると
変更を保存しますかと聞かれるんですが
このチェックを外す方法ってあります？
ＯＳはＸＰでExcel2003です。
206:y
08/09/11 20:15:03
>>198
文章中の、特定の単語の有無の判定なら、たぶんInStr関数で何とかなると思います。
調べてみて使えそうなら使ってください。
>199にもありますが、具体的なデータが分からないとアドバイスしずらいです...
207:y
08/09/11 20:17:20
>>195
どんな業界で働いている方か分かりませんが、
実務に役立つ知識が増すようなテーマを選ぶと、
何かと都合がいいのではないでしょうか。
為替、株式市況、地価、青果水産物市況など、
ネット上にはたくさんの生データが公開されています。
それらを自動的に取得し、テーマに沿って演算し、
レポートを出力するマクロを組むだけでも、
相当勉強になると思います。
やるのであれば、日々刻々と変化する数字の方が面白いです。
例えばある人は、東京に１０数箇所ある中央卸売市場の毎日の市況データを
取得し、各市場の卸売価格差をグラフに出力するマクロを作っていました。
仲買業者なら、どこの市場で買い付けをすれば一番安いか、
逆に生産者なら、どこの市場に出荷すれば一番高いか、
一目で分かるというものです。ちなみに彼は商社に勤めていますが、
似たようなことをしている人は結構いるでしょう。
Excelは基本的にデータ処理の道具なので、何を試すにしても、
まずは題材になるデータを見つけてこなければなりません。
ならば自分が、分析対象として最も興味を覚えるデータを選ぶのがベターです。
その上で、自分のスキルに応じた試行錯誤をしてみればいいと思います。
仮に「VBA解説書に載っている多機能な家計簿を作るんだ」と決意したとして、
自分で小遣い帳をつけているほどの人ならともかく、付属ＣＤに入っている
仮想データを使って作っていくようなやり方は、モチベーションが湧きづらい
ように感じます。
208:デフォルトの名無しさん
08/09/11 22:02:38
あれ今日y絶好調だな
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
376:374
08/10/01 14:10:02
For x = 1 To 1000
Application.ScreenUpdating = False
'マップに戦闘力を設定
'マップの一番外側は必ず白色
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsColor(i, j) <> vbWhite Then '白色以外のセルに戦闘力を設定
hsMap(i, j) = Int((99 * Rnd) + 1)
End If
Next j
Next i
hsColor_old = hsColor
'戦闘結果算出
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))
Select Case hsMaxPow
Case hsMap(i - 1, j) '上のセルが最大だった場合は、上と同じ色にする
hsColor(i, j) = hsColor(i - 1, j)
Case hsMap(i, j - 1) '左のセルが最大だった場合は、左と同じにする
hsColor(i, j) = hsColor(i, j - 1)
Case hsMap(i + 1, j) '下のセルが最大だった場合は、下と同じ色にする
hsColor(i, j) = hsColor(i + 1, j)
Case hsMap(i, j + 1) '右のセルが最大だった場合は、右と同じ色にする
hsColor(i, j) = hsColor(i, j + 1)
End Select
End If
Next j
Next i
377:374
08/10/01 14:10:48
'マップ(シート)に色を反映
For i = 2 To hsYmax - 1
For j = 2 To hsXmax - 1
If hsColor(i, j) <> hsColor_old(i, j) Then
.Cells(i, j).Interior.Color = hsColor(i, j)
End If
Next j
Next i
Application.ScreenUpdating = True
Next x
End With
End Sub
378:デフォルトの名無しさん
08/10/01 15:41:37
どこかのセルが変更された時に処理（以下、処理A）が走るようにしています。
最初の処理（以下、処理B）でセルを変更しています。
処理Bのときだけ処理Aを走らせないようにしたいのですが、
どうしたらいいでしょうか。
379:デフォルトの名無しさん
08/10/01 16:09:13
>>378
Application.EnableEvents = False
かな？
380:デフォルトの名無しさん
08/10/01 16:31:03
>>379
まさにそれでした。ありがとうございました。
最初「Application.EnableEvents = False」の一行見たとき意味わかりませんでしたが、
ググッたら使い方でてきて何とかなりました。
ありがとうございました。
381:368
08/10/01 22:30:32
>>370
>>374
ありがとうございます。
予想以上に速くなりすぎていて驚きました。
色を配列に入れるところまで考えが至りませんでした。
ところで、戦闘力はランダムのはずなのに勝者に偏りがありすぎます。
いくつかのマップで10戦ずつやってみたところ、
愛知県マップ・・・名古屋9勝、西三河1勝、東三河0勝
「目（上中下の３色）」マップ・・・上9勝、中0勝、下1勝
「田（４色）」マップ・・・左上8勝、左下2勝、右上0勝、右下0勝
という結果で、左上に近いほど強いとしか思えません。
謎です・・・
382:デフォルトの名無しさん
08/10/01 23:44:27
>>381
謎でもなんでもないじゃん。
・hsMapの値が整数で0-100程度でしかないから最大値を取るセルが複数できやすい。
・Select Caseで上左の順でチェックしているから上や左が優先されやすい。
つまり、上や左から侵食されやすい傾向があるわけ。
最大値を取るセルが複数ある場合に微妙に優先度を調整するか、
値の変動幅を大きく取って最大値を取るセルが一つになるようにするかってところかな。
383:デフォルトの名無しさん
08/10/02 05:20:47
Excel2000 で 255文字以上のフルパスの存在チェックで DIRでチェックしようとすると「ファイルが見つかりません。」になるんですが回避するにはどうすれば良いですしょうか？
if dir( 255文字以上のパス ) <> "" then
384:デフォルトの名無しさん
08/10/02 05:48:56
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileExists(ぱす) = False Then
でいけたかも。他にあれば教えてください。
385:368
08/10/02 07:45:57
>>382
それは私も考えました。
それが原因なら、判定の順序を「下→右→上→左」とすれば、
下や右が強くなるはずです。
順序を変えてやってみましたが、
名古屋8勝、西三河2勝、東三河0勝
上7勝、中3勝、下0勝
左上7勝、左下1勝、右上2勝、右下0勝
と、やはり左上に近いほど強いようです。
まあ、10回程度だと偶然偏りができることも考えられますが・・・
386:374
08/10/02 10:40:57
>>365
比較する順序ではなく色を入れ替えるタイミングの問題では？
Select Case hsMaxPow
Case hsMap(i - 1, j) '上のセルが最大だった場合は、上と同じ色にする
hsColor(i, j) = hsColor_old(i - 1, j)
Case hsMap(i, j - 1) '左のセルが最大だった場合は、左と同じにする
hsColor(i, j) = hsColor_old(i, j - 1)
Case hsMap(i + 1, j) '下のセルが最大だった場合は、下と同じ色にする
hsColor(i, j) = hsColor_old(i + 1, j)
Case hsMap(i, j + 1) '右のセルが最大だった場合は、右と同じ色にする
hsColor(i, j) = hsColor_old(i, j + 1)
End Select
と更新前の色を入れてやれば少しは改善するかもしれません
387:デフォルトの名無しさん
08/10/02 14:59:02
マクロを実行してファイルを閉じ、再び同じウィンドウで
マクロ入りのファイルを開いても、マクロが実行できません。
VBAを使っていろいろ処理して終了させます。
処理の中では画面更新の抑制やら色々やってます。
マクロを実行したbookを閉じてから、マクロが入った
ファイルを開くと、右クリックで新規ウィンドウ等を
やらない限りは必然的に、既に開いているExcelを使って
ファイルが開かれると思うのですが、そうなるとマクロが
動かないんです。
セキュリティの問題ではなくマクロが無いファイルのような
そんな扱いです。やはり、色々標準の機能を殺しているのが問題で
それが終了しても保持され続けているのが問題なのでしょうか？？
388:デフォルトの名無しさん
08/10/02 15:20:53
>>387
セキュリティの設定は何になっているんですか？
低になっていてかつApplication.EnableEventsがFalseだった場合
マクロは自動実行されないはずなので何も起きていないだけでは？
389:デフォルトの名無しさん
08/10/02 20:31:10
1行目と3行目を選択（1行目を選択してからCtrl+3行目を選択）すると、
Range("1:1,3:3").Select
と言うコードが得られますが、
変数を用いて、a行目とb行目を選択する場合には、どのように記述すれば良いのでしょうか。
よろしくお願いします。
390:デフォルトの名無しさん
08/10/02 20:41:43
>>389
Dim a As Integer, b As Integer
Rows(a & ":" & b).Select
391:390
08/10/02 20:45:59
動かなかった・・・orz
Dim a As Integer, b As Integer
a = 1: b = 3
Range(Rows(a).Address & "," & Rows(b).Address).Select
392:デフォルトの名無しさん
08/10/02 21:42:23
お世話になります。
for loopの入れ子でループを抜けたいときは
gotoするのが一般的なんでしょうか？
gotoってあんまり使うなと言われているので
For intI = 3 To 65535
For intJ = 1 To 255
'条件が一致すればここからいっきに２つのループを抜けたい
Next intJ
Next intI
あとループ変数って単純にi,j,kとするか
なにかしらわかりいい名前をつけるのかどちらがいいのでしょうか
よろしくお願いします。
393:デフォルトの名無しさん
08/10/02 21:48:27
多重ループ脱出は数少ないgotoの出番だぞ。
（無論そのための仕組みが存在する言語なら話は別だが）
ループ変数はi, j, kとするのが単純かつ分かりやすい。
intIですらやめてくれと言うところだ。
394:デフォルトの名無しさん
08/10/02 22:11:03
なるほど そうでしたか
ありがとうございました
395:デフォルトの名無しさん
08/10/02 22:40:28
>>393
プログラムが大きくなってくると1文字の変数は探しにくい
やりたいことにもよるだろうが
1文字で済ませる癖は付けないほうがいいと思う
396:デフォルトの名無しさん
08/10/02 23:09:51
>>395
それはプロシージャを分割した方がいいんじゃないかな
397:デフォルトの名無しさん
08/10/02 23:23:45
クラスモジュールと
標準モジュールの違いがいまいちわからん
クラスはオブジェクトとして使ったりコンパイルしてDLLとして参照すると
名前でプロシージャーを呼び出せるってことなのか？
標準だと他のモジュールのって呼び出せない？
398:デフォルトの名無しさん
08/10/02 23:39:33
>>389
union(rows(a),rows(b)).Select
399:368
08/10/02 23:51:05
>>374
ありがとうございます。
強さが均等になりました。
言われてみれば、あのプログラムでは左上が強くなるのも当然ですね。
実は、初期はちゃんと古いマップから色を持ってきていたのですが、
高速化のためにいろいろやっているうちに、古いマップを省略してしまったようです。
400:デフォルトの名無しさん
08/10/03 00:02:25
>>395
ループ自体をForで探せばいいじゃない。
あと、ループ変数をi, jとしないなんてVB以外では聞いたことないってただの個人的経験だけど。
401:デフォルトの名無しさん
08/10/03 09:05:00
>>397
VBA分野の話じゃないね、スレ違い
402:デフォルトの名無しさん
08/10/03 09:26:22
>>392
2重ループ脱出はForとDoを併用するのが常套手段
For intI = 3 To 65535
Do Until intJ = 255
Exit For
Loop
Next intI
403:デフォルトの名無しさん
08/10/03 19:39:08
Do/Loopを使うと速度が落ちちゃうじゃないか、とか言ってみる。
404:デフォルトの名無しさん
08/10/03 20:28:55
>>402
それは無い
405:デフォルトの名無しさん
08/10/03 22:13:12
ループ抜けの話が出ていたので、質問をさせてください。
例えば、
for i = 1 to 100
if cells(i,1).value like "hoge" then
set cl = cells(i,1)
end if
next
のような形で、該当する最初のセルに処理をした時点でループを抜けるにはどのように記述すれば良いのでしょうか。
上記だと2つ以上の該当があった場合、後のセルがsetされてしまいます。
406:>401
08/10/03 23:22:31
( ﾟдﾟ)
407:デフォルトの名無しさん
08/10/03 23:40:02
>>405
セルをセットした後にExit For
408:デフォルトの名無しさん
08/10/04 00:55:23
ほとんど基礎もできていませんがアドバイスお願いします
自宅にﾊﾟｿがないので平日会社で試すしか方法がないのですが、何枚かのｴｸｾﾙﾌｧｲﾙを開きセルA6に別の表から拾った値を引っ張ります
これがシートならば全シートを選んでVLOOKの式でもA6に入れればいいのでしょうが各ﾌｧｲﾙを別々に保存しなければなりません
一度一つのﾌｧｲﾙにまとめて入力後またばらしてもいいのですがそれならﾌｧｲﾙを開けて手入力する手間とさほど変わりません
多くて40ﾌｧｲﾙです
どうぞよろしくお願いしますm(_ _)m
409:デフォルトの名無しさん
08/10/04 01:25:38
>>408
その情報だけだと使えそうな手段は2つくらいしか思いつかない
1.VBAで表をまとめてLOOKUP
2.VBAで該当する値を直接取りにいく
>一度一つのﾌｧｲﾙにまとめて入力後またばらしてもいいのですが
何がしたいのかよく分からないｗ
>ﾌｧｲﾙを開けて手入力する
これは目視で値を確認していって該当する値を移すってことでしょうか？
>多くて40ﾌｧｲﾙです
40ﾌｧｲﾙ見るだけなのかすべて更新するのかどちらでしょうか・・・
410:デフォルトの名無しさん
08/10/04 01:47:52
早速のﾚｽを有難うございます。説明が至らずすみません
おそらくあまりに初級なので難しく捕らえていらっしゃるかもしれません
見に行く表にはA列に番号(12桁)B列にも番号(9桁)がありこれが多くても40種の意味です。重複はしていない番号ばかりです
そしてA列の番号がﾌｧｲﾙ名にもなっている1枚ｼｰﾄしかないﾌｧｲﾙのセルA4に先程の12桁が入っているがｾﾙA6に今までは手入力で9桁番号を入れていました
目視です。一応FIND窓で捜しはします…
独立させずｼｰﾄとしてまとめたら一度に処理できるかと考えたのですが、、
411:デフォルトの名無しさん
08/10/04 02:00:03
すみません余りに眠いのでちょっと離れます
なお40種は40行の意味です
412:デフォルトの名無しさん
08/10/05 09:52:11
>408,410
横レスします。
状況を私なりに解釈し、不足するところをおたずねします。
１ 参照元ファイル（以下ブックと呼びます）は最大４０個ある
（408の下から２行目の記述から）
２ 参照元ブックにはそれぞれ４０行×２列（Ａ列、Ｂ列）のデータがある
（410の上から３行目の記述と411の「４０種は４０行」の記述から）
３ （結果を求める）作業用ブックのＡ４セルに１２桁の番号が入っている
（410の上から４行目の記述）
４ 作業用ブックのＡ６セルには今まで９桁番号を手入力していたが → これを自動で表示させたいってこと？
質問
Ｑ１ 上の解釈でいいんでしょうか？
Ｑ２ ４０個のブックはそれぞれシートは何枚ですか？ １枚ずつだったら４０シートの１ブックにまとめられませんか？
413:デフォルトの名無しさん
08/10/05 12:46:49
ﾚｽを有難うございます
まず参照元と作業用の違いを私自身があまりわかってないかもしれません。携帯からのｶｷｺで字数が限られ申し訳ないです(>_<)
①②→参照する表は1ﾌﾞｯｸでそこに多くて40行2列、少ない時は10行2列くらいの表が1ｼｰﾄだけに表記してあります
③④→OKです
Q2→確かにひとつのﾌﾞｯｸにまとめればいいのですが、保存が1ﾌﾞｯｸ1ｼｰﾄでないといけないのです(請求書みたいな感じ)
なおかつそのﾌﾞｯｸ名もｾﾙA4の番号をつけないといけません
15ﾌﾞｯｸくらいなら目視&手入力でもいけますが日によって30-40ﾌﾞｯｸとなると間違いや画面の一杯さで
頭がくらくらしてしまい、楽な方法がないかとお尋ねしてみました
まだ言葉足らずかと思いますがどうぞよろしくお願いいたします
414:デフォルトの名無しさん
08/10/05 14:25:37
初心者にありがちなこと：
やりたいことの自分なりの稚拙な解決方法を思いつくのだが、その具体的なやり方がわからずに
ぐだぐだと質問＆回答を続ける。
良い質問方法：
やりたいことをまず具体的に書く。やりたいことというのは、ユーザレベルでの話し。
415:デフォルトの名無しさん
08/10/05 15:03:16
すみません本当に初心者なもので……
やりたい事は毎日新たに発生するﾌﾞｯｸのｾﾙA6に、ｾﾙA4に対応した9桁の番号を拾ってきて自動入力し保存するという事です
ｾﾙA4に対応した番号は他のﾌﾞｯｸに見に行きます
この表現ではどうでしょうか？ あまりに簡単な作業かもしれませんが良い方法があればよろしくお願いします
416:デフォルトの名無しさん
08/10/05 16:11:49
致命的に説明が下手だな。とはいえ、普通の奴はこんな感じが標準なのかもしれんが。
商品マスタ（Product.xls）と注文ブック（Order.xls）ということにして、仕様を書いてみた。
[前提]
１．Product.xlsのSheet1のA:B列に何らかのデータが入力されている
２．毎日Excel Bookが40ファイル程度できる
３．そのBook名は[12桁の文字列].xls（以降、Order Bookと表記）
４．Order Bookには1シート（以降、Orderシート）しか存在せず、そのシートのA4には[12桁の文字列]が設定されている
[やること]
１．毎日発生するOrder BookのOrderシートのA6に、Product.xlsから取得したデータを設定し上書き保存する
２．データの取得方法は、Product.xlsのSheet1!A列の中から、[12桁の文字列]を探し、適合する
行が合った場合は対応するB列の値を持ってくる
[異常処理]
１．Order Book名とA4の内容が異なる場合は＊＊＊する
２．[12桁の文字列]が見つからなかった場合は＊＊＊する
[疑問]
>多くて40行2列、少ない時は10行2列
これはどのタイミングでどのような理由で変更されるのか？
417:デフォルトの名無しさん
08/10/05 16:16:17
それから簡単、簡単言うな。
お前が超絶難しいと思ってるものでも、ソルバ一発で解決できる類の問題もあれば、
単純作業を自動化するだけなのに、プログラム的にはすげー面倒な場合もある。
418:デフォルトの名無しさん
08/10/05 17:42:54
はぁー言われてみたらその通りです。こういう表現をするんですね？ 確かにこのように書け、と言われたらできるのかどうか
それで1点、OrderBook名には「請求書M...」みたいにｾﾙA4に日本語が3文字ついていたかもしれません
また、10ｺか40ｺかはﾒｰﾙ受信によって左右されます。ﾒｰﾙの添付をどこかのﾌｫﾙﾀﾞに保存し何等かのﾏｸﾛを実行するとよそにそれに対応した9桁の番号が、
検索されるのか作成されるのかするのでそれを本日分として拾ってくるわけです。でｾﾙA6は空白なので入力して完成させる…
自分は記録ﾏｸﾛしかできないのですが、もし自分がVBAに詳しければ①OrderBookのｼｰﾄ1を一つのﾌﾞｯｸにまとめる
②Productｼｰﾄもそこに挿入③VlookupでｾﾙA6に値入力④ｼｰﾄをばらして保存
とかが簡単に出来るのかな？のｲﾒｰｼﾞでした;ω;
ｽﾐﾏｾﾝ
419:412
08/10/05 17:49:34
>408,410,413,415
もう一回自分なりに解釈したものを書きます。
１ 参照元ブック（１シート）は日々内容が変わるけど、Ａ列、Ｂ列にデータが記録されている。
（内容が固定されていないということは413の「多くて40行2列、少ない時は10行2列くらいの表が」から推測）
２ 結果を求める（作業用）ブックは複数生まれる
（413の「保存が1ﾌﾞｯｸ1ｼｰﾄでないといけない」ということと、
「15ﾌﾞｯｸくらいなら目視&手入力でもいけますが日によって30-40ﾌﾞｯｸとなると」から推測）
３ 作業用ブックは「ひな型」となるものを呼び出してＡ４セルに１２桁の番号を入力し、Ａ６セルには参照元
ブックから自動参照した結果が表示されたところで「１２桁の番号」をブック名として名前を付けて保存する
４ 上記３を１５～４０回繰り返す
これでいいのかな？
もし、参照元ブックの名前が固定されているんであればＶＢＡじゃなくてもできそうだけど。
作業用ブックのひな型のある範囲に参照元ブックのデータをまるごと外部参照でもってきておいて、
Ａ６セルにVLOOKUP関数を書いたらいいんじゃないかな。
外部参照って言い方が正しいのかわからないけど、ヘルプで
「ほかのブックやアプリケーションへのリンクを設定する」を見てみてください。
420:412,419
08/10/05 17:50:56
ありゃ、回答を書いているうちに質問者さんからの書き込みがあった。４１９はなかったことにしてください。
421:デフォルトの名無しさん
08/10/05 18:16:27
お世話になります
3.の行程上でｾﾙA4には12桁の番号が既に入った状態で届きます。こちらで入力はしません
VLOOKもいいのですが作業用ﾌﾞｯｸの開け閉めが面倒いというか少ない時はいいのですが、多い時にはどれがどれやらわからなくなるのです
422:420
08/10/05 18:41:03
>421
↑のことも入れて、もう一回自分なりに解釈したものを書きます。
１ 参照元ブック（１シート）は日々内容が変わるけど、Ａ列、Ｂ列にデータが記録されている。
（内容が固定されていないということは413の「多くて40行2列、少ない時は10行2列くらいの表が」から推測）
２ 結果を求める（作業用）ブックはメールにて複数送られてくる
なので、作業用ブックに個々に計算式等を入れるのは無理（あるいは極力回避）
３ 作業用ブックのＡ４セルには既に１２桁の番号が入力されていて、
・現状では 参照元ブックを開いてＡ列に一致する行のＢ列の番号（９桁）をＡ６セルに入力して保存（の繰り返し）
・したいこと マクロブックを開いてマクロを実行したら、複数の作業ブックを手動で開かなくても
それぞれのブックのＡ６セルに自動的に対応する９桁の番号が記録されている
※作業対象のブックを指定する作業は手動か？
（作業対象ブックが保存されているフォルダを指定できれば自動化も可能）
423:デフォルトの名無しさん
08/10/05 18:52:53
出来の悪いSEと出来の悪いクライアントのgdgdな打ち合わせの例
424:デフォルトの名無しさん
08/10/05 19:10:08
確かに文章だけで説明する事がこんなに大変とは！
'作業対象のﾌﾞｯｸ指定は手動？'の意味が今一つわかりませんがデスクトップにでも予めﾌｫﾙﾀﾞごと保存しておいて、作業をしてもらおうか？という算段です
というのも引継ぎでは手入力推奨でしたのでネットワークの中で何かやると怒られるかも？とか考えたり
ま、推奨程度ですからきちんとｾﾙA6に番号が拾えていたら結果ｵｰﾗｲだと思うのですが…
425:422
08/10/05 20:00:20
>424
流れとしてこんな感じかな？ 画面更新をしないようにすれば画面がチラつきません。
１ 作業ブックが収められているフォルダ中のエクセルファイルの一覧取得
２ 参照元ブックを開く（ついでに２列×数十行のデータを配列に取得）
３ 参照元ブックを閉じる
４ 上記１で取得したファイル一覧からひとつずつ処理
(1) カレントブックを開く
(2) Ａ４セルの値を取得
(3) 配列を調べて対応する値をＡ６セルに書き込む
(4) カレントブックを閉じる（変更確認ダイアログを非表示にしておくといい）
(5) (1)～(4)の繰り返し
５ 終了（画面更新再開）
処理がちゃんと進んでいるか確認するために、マクロを記録したブックに
Ａ列：カレントブック名（もしくはフルパス）
Ｂ列：Ａ４セルの値
Ｃ列：Ａ６セルに書き込んだ値
を上から順に書き込んでみるといい。その場合は画面更新を停止しないように。
426:デフォルトの名無しさん
08/10/05 20:02:14
ググったのですが適切な単語が思いつかなかったので質問させてください。
関数を自作しようと思ったのですが、
その関数が代入されるセルのオブジェクトを取得することは可能でしょうか？
入門サイトを一通り見たのですが、そのような記述が見つかりませんでした・・・。
可能であれば関連するキーワードか、簡単な実装方法など教えていただけるとうれしいです。
427:デフォルトの名無しさん
08/10/05 20:02:53
よろしくお願いします。
OS：XP、Excel2003
Module5で、Public Sub AAA() という関数を作成して
Module1で使おうとすると「名前が適切ではありません」というエラーが出ます。
Module1に関数を作成して、Module5使うことは出来ています。
これは、モジュール名の順番みたいなものが関係しているのでしょうか？
428:デフォルトの名無しさん
08/10/05 20:30:01
質問です。（WinXP,Excel2003）
マルチスレッドで処理をしたいのですがうまくいきません。
以下のテストコード(スレッド系関数の宣言は省略)で、セルへの書き込み自体は問題なく出来るのですが、
エクセル終了時や保存時等ににエクセル自体が落ちてしまいます。
どこが問題なのでしょうか？ご教示お願いします。
'----モジュール------
Public Const STILL_ACTIVE As Long = 259
Public Function testThread(ByVal n As Long) As Long
Dim i
For i = 1 To 10
Sheet1.Cells(1, ｎ) = i
DoEvents
Next i
testThread = 0
End Function
'----シート------
Private Sub test_Click()
Dim hThd, idThd, dwExCode As Long
hThd = CreateThread(0&, 0&, AddressOf testThread, 1, 0&, idThd)
Do
DoEvents
If (GetExitCodeThread(hThd, dwExCode)) Then
If (dwExCode <> STILL_ACTIVE) Then Exit Do
End If
Loop While True
CloseHandle hThd
End Sub
429:デフォルトの名無しさん
08/10/05 21:11:43
>>425
は、はぁ、、そんなかんじかと思いますがそれは記録ﾏｸﾛでできる作業なのでしょうか……
あまりな初級な質問ですみません
430:デフォルトの名無しさん
08/10/05 21:36:03
作ってくださいとちゃんと言えよ、アホ
431:デフォルトの名無しさん
08/10/05 21:37:46
>>428
ド素人がVBAでマルチスレッドを使おうとするのが問題
432:デフォルトの名無しさん
08/10/05 22:21:52
は、はぁ、、例えばコードを書いてもらう事を作るといいますか？
作ってください！お願いします(^人^)
でももしかして記録ﾏｸﾛでもできる人はできるのかと思ったり(自分では無理ですが)……
何か自分の知らない簡単な方法があるような気がしてならなかったり？
433:デフォルトの名無しさん
08/10/05 22:32:39
コード書いてもらう事は、作る事に他ならないが・・・。
作るって、何を作る事だと思う？
と言うか、作成依頼はスレ違い。
自分でやって、分からない事を聞くようにしておくれ。
434:425
08/10/05 22:39:17
>432
このスレの№１の
★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
は見てなかったようですね。
自分は明日の夕方以降ならなんとか対応できると思いますが、急ぐんだったら
この件のやりとりの部分 を印刷でもして職場でＶＢＡのわかる人に見せてください。
マクロの記録だけではほとんどできません。条件分岐とか繰り返しとかファイル処理とかいろいろ
あります。
あるフォルダの中のディレクトリ一覧を取得して印刷する部分だけでも↓みたいになります。
URLﾘﾝｸ(www.excel.studio-kazu.jp)
435:デフォルトの名無しさん
08/10/05 22:39:41
皮肉もわからないとかｗ
436:デフォルトの名無しさん
08/10/05 22:44:42
dirなりなんなりでファイルをリストアップして、オープンしてfindしてrange.valueに代入してセーブしてクローズする
ってだけの簡単なことなんだけど、細かいところが不明なんで丸々作るめんどくさいのでパス。
437:デフォルトの名無しさん
08/10/05 22:46:49
>>425でわかんないなら、もうこのスレ向きの話題じゃなくなった。
438:デフォルトの名無しさん
08/10/05 22:47:20
ﾏｧﾏｰ(´・ω・｀)
439:デフォルトの名無しさん
08/10/05 23:08:07
>>434
エクセルの学校の添付を有難うございました
私自身は忘れているとはいえ?ベーシックくらいは少し学んだのですが全く身についていないようですorz
手でやると、1回なら簡単な作業なのに文章にするとこんなにややこしくなるとは！！
ちょっとこの週末は時間がなかったのですが確かに自分であれこれ試してみたいと思います
会社では現在は時間が全くありませんがそのうち手薄になれば挑戦してみます！
440:デフォルトの名無しさん
08/10/05 23:30:16
昔かじった言語でも、1年経つとほとんど動かせなくなるんだよね。
以前仕事で、とあるScript言語で食ってたんだけど、1年経ったら全部忘れてた。
441:デフォルトの名無しさん
08/10/05 23:32:35
>>426は自己解決しました。（というかバグが別の場所にあることが分かった）
で、もう一つ質問させてください。
自作関数の演算結果を複数のセルに表示したいのですが、
Function func()
func = 1
ActiveCell.Offset(1).Value = 2
End Function
こうやるとこけてしまいます。
funcの返り値でなくActiveCell.Valueに代入すると循環参照で怒られます。
どうにか解決する方法はないのでしょうか？
442:427
08/10/05 23:38:12
>>427
お願いします。
443:デフォルトの名無しさん
08/10/05 23:54:28
>>427,>>442
Module5に作成してModule1で呼ぶのも
Module1に作成してModule5で呼ぶのも
問題なく出来ている
つまり「Module5に作成してModule1で呼ぶ」こと以外に問題があるということだ
ちょっとした自分のミスに気付かず、首を捻り続けたりソフトを疑ったりなんてよくあることだ
まずは新規ブックを作成して、標準モジュールを5個挿入し
Module5にPublic Sub AAA()
Module1にAAAの呼び出しプロシージャだけ書いて実行してみろ
それでダメならExcelもしくはOfficeはたまたWindowsを再インストールした方がいい
これで問題なく実行できるなら、自分のミスに気付いてないだけだ
444:デフォルトの名無しさん
08/10/06 01:10:32
>>440
プロの人でさえ１年で!?
なんとか頑張ってみますと書いたものの、あの業務量を思うと頑張る暇などとてもなくゆーうつ・・・
はぁー、、楽したい。。
445:デフォルトの名無しさん
08/10/06 01:44:55
>>441
URLﾘﾝｸ(support.microsoft.com)
446:441
08/10/06 02:03:42
>>445
こんな・・・制限が・・・あった・・・なん・・・て・・・orz
VBAなんか大っ嫌いだうわあぁぁん
ありがとうございました。本当に助かりました。
447:デフォルトの名無しさん
08/10/06 02:41:53
厨ばっか湧いて来やがるのはなぜだ
448:デフォルトの名無しさん
08/10/06 05:32:26
なんかゴネてる人さあ、、、
まずは、A6にvlookup入れて値コピーで上書きするマクロでも作ったら？
ファイル開いたり保存するのは取り敢えず手動としても、目視手作業で
入力してるよりよっぽど楽になると思う。
そこから徐々に、自動でできる部分を増やしてけばいいんじゃねーの？
あんたがVBA習得するまで仕事が待っててくれるならいいけどさ、
なんも出来ねーくせに余計なことばか考えて、自分で仕事増やしてるだけじゃね？