Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

174:デフォルトの名無しさん
08/06/18 10:38:23
最近VBAを触りはじめたのですが、全く分かりません

指定されたファイルがあれば、そのファイルを現フォルダから別のフォルダへ移動させたい。
指定されたファイルが無い場合はマクロを終了。

ファイルを別のフォルダへ移動はできましたが、指定されたファイルを探すのが上手くできません。

別のサイトへ誘導でもかまいませんので、教えて下さい。
よろしくお願いします。

175:デフォルトの名無しさん
08/06/18 11:14:01
やだ

176:デフォルトの名無しさん
08/06/18 19:22:38
>>174
Sub test()
If Dir("c:\tmp.txt") <> "" Then
MsgBox "存在します。"
Else
MsgBox "存在しません。"
End If
End Sub

177:デフォルトの名無しさん
08/06/18 22:57:34
可能でしたらどなたか教えて頂けませんか・・？
Ａエクセル起動時のUserForm1が起動して
他のエクセルに切り替えた時にそのUserForm1はHideします
その後、Ａエクセルに切り替えた時に再びShowするのですが

UserForm1がアクティブになっているためＡエクセルの編集を続行するためには
適当なセルをクリックしないといけません。
試しにShowする時にRange("A1").Select等を試すも結果は同じ

何とか解決する方法はありませんでしょうか？

178:デフォルトの名無しさん
08/06/19 10:02:27
>177
４行目の

その後、Ａエクセルに切り替えた時に「再びShow」するのですが

この「再びShow」が問題では？　Ａエクセルの編集をするのであれば
「Ｈｉｄｅ」したままにしておけばいいだけでは？

それとも、
他のエクセルに切り替えた時にそのUserForm1はHideします
というのが、単に別アプリ（別のエクセル）が前面に出たから見えなくなっただけ
なのでは？

179:デフォルトの名無しさん
08/06/19 10:22:14
例えば指定の曜日とかは自動的にフォントを赤にしたりできるけど、
やっぱりマクロでも祝日はムリかな？

180:デフォルトの名無しさん
08/06/19 10:44:34
>179
曜日は７日周期だから計算で機械的にもとめられますが、
祝日は機械的にさだまっていません。有名なところでは春分の日、秋分の日。
さらに祝日は法律で定まったり日付そのものを変更したり（成人の日、体育の
日、海の日など）とあるので、エクセルなどに実装するのは無理です。
なので、祝日をマクロで実現するには祝日（たぶん振り替え休日も含めてと
思うが）をリストにしておいてマクロで該当する日をチェックして、エクセル表
の該当する日付のセルの塗りつぶしを行うという手順になります。
リストを用意できるか、リストの変更をどう行うかがカギです。

181:デフォルトの名無しさん
08/06/19 11:48:55
うい

182:デフォルトの名無しさん
08/06/19 13:50:15
>>179-180
URLﾘﾝｸ(www.h3.dion.ne.jp)

183:デフォルトの名無しさん
08/06/21 00:36:23
>>177です
この「再びShow」が問題では？　Ａエクセルの編集をするのであれば
「Ｈｉｄｅ」したままにしておけばいいだけでは？

UserForm1はＡエクセルの作業時に役に立つボタン等を実装しているので
Showしておかないと不便なのです。。。

他のエクセルに切り替えた時にそのUserForm1はHideします
というのが、単に別アプリ（別のエクセル）が前面に出たから見えなくなっただけ
なのでは？

ちょっと当方の書き方が不十分だったのかもしれません
大前提としてＡエクセルで作業中の時はUserFormはいて欲しく
他のエクセルに切り替えた時にはUserFormは不要なので
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
UserForm1.Hide
End Sub
で隠します、そしてＡエクセルに戻した時には
UserFormは必要になるので
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
UserForm1.Show
End Sub
で、再び表示されるのですが、その時フォーカスは
UserForm側にいてセルにいないので
いちいち、セルをクリックしてフォーカスをセル側に切り替える必要がある
これが面倒なので、Ａエクセルに復帰した時に
どうにかならないものか。。。。と思っています。

184:デフォルトの名無しさん
08/06/21 03:40:55
XP Excel2003での質問なんですが

If x = 1 Then GoTo LB1
ElseIf x = 2 Then GoTo LB2

と記述しているのに
「Elseに対応するifがありません。」と出ます。
間違っているところはどこなんでしょうか？
必要があれば追加文若しくは全文出します。

185:デフォルトの名無しさん
08/06/21 04:39:11
>>184
Thenの後は改行してみたらどうですか

186:デフォルトの名無しさん
08/06/21 10:45:43
>>185
おま…MSに消されるぞ

というかGotoなんか使うな

187:186
08/06/21 10:46:07
>>185
>>184

188:デフォルトの名無しさん
08/06/21 13:47:40
>>185
ありがとうございます！
その部分はそれで解決したっぽいです

189:デフォルトの名無しさん
08/06/23 13:26:30
Sub Copytest()
Sheet2.Visible = xlSheetHidden
Sheet3.Copy after:=Sheet1
Sheet2.Visible = xlSheetVisible
End Sub

こうやるとsheet3(2)がsheet2の後に追加されてしまいます
Sheet1の後（Sheet2の前）にSheet3のコピーしたいのです

要は隠されてるシートの前にシートのコピーを挿入したいんです
今はSheet2のVisibleプロパティを一旦HiddenからVisibleに、
copy処理してから再びHiddenに戻すという方法をとってるんですが
もっとスマートな方法はないものでしょうか？

190:デフォルトの名無しさん
08/06/23 14:51:32
>>186
俺はバンバン使ってたよ、２０年前に、ポケコンで、懐かしい・・・

191:デフォルトの名無しさん
08/06/23 18:07:07
excel2007でマクロを今は亡きツールバーに登録するマクロが含まれるアドインを使ったら
消せなくなってしまった。消し方を教えてください。

この方法で追加したのを↓

Dim o_cmdbar As CommandBarControl

On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("あ").Delete
Set o_cmdbar = Application.CommandBars("Worksheet Menu Bar").Controls. _
Add(Type:=msoControlPopup)
o_cmdbar.Caption = "い"
With o_cmdbar.Controls.Add(Type:=msoControlButton)
.Caption = "う"
.OnAction = "え"
End With

本来はこれ↓で消すはずだった。
Application.CommandBars("Worksheet Menu Bar").Controls("メニュー").Delete

192:デフォルトの名無しさん
08/06/23 18:08:24
↑だけど追記で。アドインっていうリボンの中に作られたメニューを消したい。

193:デフォルトの名無しさん
08/06/23 19:49:14
そりゃツールバーじゃなくてメニューバーだ
そしてそのコードじゃExcelのバージョンがいくつでもマトモに動かんよ

194:デフォルトの名無しさん
08/06/23 21:32:42
>>189
ただ単純にbefore:=sheet2で解決しない？
ただし、実際に動作確認してないから分からないけど。

195:デフォルトの名無しさん
08/06/23 21:39:50
>>194
実はそれも同じ結果になってしまいまして
どうしてもHideされたシートは自身の前位置を譲ってくれません
Worksheets.Addで追加する場合は問題ないんですけどね
なんなんだろう？

196:デフォルトの名無しさん
08/06/23 22:02:55
>>195
じゃあ、コピー処理した後に並べ替え処理したらどうかな？

197:デフォルトの名無しさん
08/06/23 22:20:50
ありがとう
並べ替えのループ処理に頼らなくても
一旦VisibleとHiddenを切り替えて、その間コピー処理することで一応解決はできてるんですが
なんだか不細工だなあと
仕様ということ納得します

198:デフォルトの名無しさん
08/06/24 18:16:18
>>197
その気持ちわかる、俺も別の件ですっきりさせようとしたがむりで仕様ということで納得した

199:デフォルトの名無しさん
08/06/25 22:00:12

VBAでセルの色などを変えようすると”実行時エラー　１００４”と出てしまいます。
シートを保護してますが、そのセルのロックは外してます。

他に何か原因はあるでしょうか？

200:デフォルトの名無しさん
08/06/26 07:54:34
その部分のソース貼れ

201:デフォルトの名無しさん
08/06/26 10:05:57
こんなです

Private Sub Worksheet_Change(ByVal target As Range)

'雇用形態のセル
Dim formRange As Range
Set formRange = Range("A1")

'雇用形態のセルを塗りつぶしなしにする
With formRange.Interior
.Color = vbRed
End With

'オブジェクトの解放
Set formRange = Nothing

End Sub

202:デフォルトの名無しさん
08/06/26 10:49:48
質問です。よろしくお願いいたします。

あるセルに設定されている「入力規則」の値を全て取得することは可能でしょうか。

203:デフォルトの名無しさん
08/06/26 11:01:15
>>201
シートを保護するときに、"セルの書式設定"のチェックを入れないとダメなんじゃ。

204:デフォルトの名無しさん
08/06/26 14:39:34
>>203
2003とかならそうだと思う。状況からみて2003あたりを使ってそうだけど。
勘違いでなければ、2000あたりはそのチェック項目が無いような気がしたので、汎用性を持たせるなら一回シートの保護自体を解除して処理した方がいいと思う。
そして、処理終了後に再度、シート保護処理を実行する。

205:デフォルトの名無しさん
08/06/26 14:41:50
>>201
処理と説明が合ってないよ。
塗りつぶしなしにするって書いてるけど、処理自体は赤くするになってるよ。

206:デフォルトの名無しさん
08/06/26 16:15:33
>>203
うまくいきました。
ありがとうございます。

>>204
やはり、その方法の方がいいでしょうか。
ありがとうございます。

>>205
すみません。

207:デフォルトの名無しさん
08/06/26 16:38:53
二つのBookを用意して、呼び出し元から、呼び出し先Bookのシートにある
メソッドを実行したいと思いますが、出来ません。ご教授ください。

呼び出し元Book.xls
　Sheet1

Workbooks.Open Filename:="呼び出し先Book.xls"
Set wk = ActiveWorkbook

Call wk.Sheets(1).DoExecute()　'エラー

呼び出し先Book.xls
　Sheet1

　　Public Sub DoExecute()
Msgbox "Hello"
End Sub

実行時エラー40036：アプリケーションの定義またはオブジェクト定義のエラーです。
と表示されます。

208:デフォルトの名無しさん
08/06/26 16:59:59
俺の人生はエラーですがどうすれば直りますか

209:デフォルトの名無しさん
08/06/26 17:49:55
あるPublic関数を、ユーザー定義関数の用法でワークシート上から駆動させたとき、
関数内のWorkbooks.Openメソッドがうまく機能しない、という状況について、
ご意見を伺いに来ました。
ちょっと長文になってしまいましたが、聞いてください。

月ごとの売上データが保存されているExcelブックがあって、
それぞれ次のようなブック名で保存されています。
（ 2007-04.xls, 2007-05.xls, 2007-05.xls … ）
これらのファイル群から、ある特定の月の売上金額を抜き出す
Uriage関数を書いたんです。
たとえば #2007/4/1# を引数で渡すと、07年4月の売上金額が
戻ってくるような関数です。関数の中身はとても単純で、
１）渡された日付をもとにどのブックを開くべきか判断
２）そのブックを開く（Workbooks.Openメソッド）
３）必要な値を読み込む
４）ブックを閉じる
５）値をリターンする
という流れになっています。
この関数、他プロシージャから呼び出して使う分には、
問題なく動作し、なかなか便利です。
そこで、ユーザー定義のワークシート関数として使えるだろうか、
と思い、セルに次のように入力してみました。
=Uriage(2007/4/1)
しかし残念ながらエラー値が戻ってきました。
処理をトレースしてみたところ、２）のところでブックが開きません。
どうやら、Workbooks.open メソッドは、ワークシート上の関数から
駆動させた場合は機能しないようなのです。
どうして、このような挙動になってしまうのでしょうか。
またこの他に、ワークシート上からではうまく機能しないメソッドを
ご存知の方はいらっしゃいますか。

210:デフォルトの名無しさん
08/06/26 18:39:18
これかな
URLﾘﾝｸ(support.microsoft.com)

211:デフォルトの名無しさん
08/06/26 19:08:07
>>208
一度、小学生にダウングレードして再起動

212:デフォルトの名無しさん
08/06/26 20:32:38
ﾊｧﾊｧしかけたけど、野郎なのか。だったら市ね

213:209
08/06/26 21:55:59
>>210

ありがとうございました。まさにそれです。
そういう仕様になっているということが
たいへん良く分かりました。

ちなみに、色々試してみたら、
テキストファイルのopen、read、closeは
ユーザー定義関数からでも上手くいくようですね。
Excelブックを開くより、読み込みがかなり速いので、
けっこう重宝しそうです。

214:sage
08/06/26 22:10:15
>>207
Sheetオブジェクトに記述されたプロシージャは、
そのSheetオブジェクト以外の場所からは呼び出せません。

他のブックからも呼び出せるプロシージャを作りたいなら、
まず標準モジュールを追加して、そこにPublic Subプロシージャを
記述します。

作ったプロシージャの呼び出し方については、
"Run"メソッドを検索してみてください。

215:デフォルトの名無しさん
08/06/26 22:56:58
A1からC1までをセル結合した状態でInputBoxを使用してA1～A3までを選択した場合に、
A1：C3になるのですが、これをA1:A3と取得する方法はありますか？ご教授ください

216:デフォルトの名無しさん
08/06/26 23:06:09
優秀な方に伺いたいです！
あるブックのシートにあるデータを計算して、
他のブックのシートにその結果を出力したいのですが・・・

'結果を書き込むブック
Set objWb = Workbooks.Open(strFileName)

このようにオープンすると本当に立ち上がって見た目がよくないです。
裏でオープンして出力できる方法はないでしょうか？

どうぞよろしくお願いします。

217:デフォルトの名無しさん
08/06/26 23:14:13
>>216
完璧に画面更新が止まってもいいならapplication.screenupdating=Falseを使用すれば開いてるところは見えないはず。

218:デフォルトの名無しさん
08/06/26 23:25:25
一つ教えていただきたいのですが、
12
24
35
46
2
34

とあった場合で、
最小値をこの中から探し出し、
その最小値の行番号を出す方法、
もしくは、載っている本を教えていただけますか。
お願いします。

219:教えてください
08/06/26 23:30:34
Excelが大好きな婦女子です。
もっぱらワークシート関数と記録マクロを駆使して
仕事で個人的に利用するささやかな入力フォームを作って楽しんでいますが、
最近ExcelのVBAとAccessに興味を持ち始めて独学中です。

そこで質問ですが、ExcelとAccessのVBAが使いこなせるようになったら
"プログラマ"として食って行けるでしょうか？
他の言語は全くわかりません。

現在のところ自分としてはOffice使いに毛の生えた程度の"プチグラマ"
だと思っています。

派遣社員でも、正社員でも構わないのですが、諸事情により
残業が月10時間程度しか出来ません。
VBAオンリーのプログラマでデスマ（すなわち残業）を避けて生きていくことは
可能でしょうか？

誰かVBAプログラマの現状を教えてください。

220:デフォルトの名無しさん
08/06/26 23:30:35
>>217
はい、ありがとうございます！
これを使ってなんとか工夫してみます！

221:デフォルトの名無しさん
08/06/27 00:49:59
>>218
もっと簡単な方法があるかもしれないけど、俺はプロじゃないからすぐ思いつくのはこの程度かな。
もし良かったらどうぞ。変数も今、適当に付けたから分かりにくいのはごめんね。

Sub 最大表示()
Dim MyRow As Integer
Dim MyRng As Range
Dim Res As Integer
Dim AnsRow As Integer

MyRow = Range("A65536").End(xlUp).Row

Res = 0
For Each MyRng In Range("A1:A" & MyRow)
If Res < MyRng.Value Then
Res = MyRng.Value
AnsRow = MyRng.Row
End If
Next MyRng

MsgBox AnsRow, vbOKOnly + vbInformation, "結果"
End Sub

222:デフォルトの名無しさん
08/06/27 01:14:34
>>221

素早い回答ありがとうございます。
早速使わせていただきます。

223:デフォルトの名無しさん
08/06/27 01:22:57
俺が婦女子だったら、ＶＢＡプログラマなんて、この世に生まれて来た
価値が何ら見いだせないような悲しい人生しないで、男に頼んで
バンバン子供産んで婦女子ならではの人生を謳歌するけどな。

224:デフォルトの名無しさん
08/06/27 01:45:30
>>221

早速参考にして、
作ることができました。
ありがとうございました。

225:デフォルトの名無しさん
08/06/27 10:23:26
質問があります
ＶＢＡで一週間後の日付を出すやり方がありましたら
教えてださい。お願いします

226:デフォルトの名無しさん
08/06/27 11:41:23
Sub test()

Range("A1").Formula = "=TODAY()+7"

End Sub

227:デフォルトの名無しさん
08/06/27 12:50:27
ツールからマクロの記憶を使いグラフを3つ作成して、VBAで設定し表示する事が出来たんですが、全て同じ箇所、重なって表示してしまうんです。
個別に位置を指定して表示する方法ありますか？

228:デフォルトの名無しさん
08/06/27 14:19:01
セルに設定されている、「入力規則」を取得する方法を知りたし。

229:デフォルトの名無しさん
08/06/27 17:35:08
>>227

'１つ目のグラフの位置設定（???は位置を示す数値）

ActiveSheet.ChartObjects(1).Top = ???
ActiveSheet.ChartObjects(1).Left = ???

'ChartObjects(2)、ChartObjects(3)に対しても、個別に位置を設定する。　

230:デフォルトの名無しさん
08/06/27 17:50:47
>>228
vba validation moug で検索

231:デフォルトの名無しさん
08/06/27 17:57:33
>>219
> "プログラマ"として食って行けるでしょうか？

> VBAオンリーのプログラマでデスマ（すなわち残業）を避けて生きていくことは
> 可能でしょうか？

無理、世の中そんなに甘くない

事務職で"ちょこっと重宝"されるくらいで"優遇"すらされない

VBAは君ごときでも使えることからも解るように、使える奴は婦女子の中にも腐るほど居る
他言語一切ダメで、基礎から学んだわけではなく行き当たりばったりで覚えたような奴なら尚更

まぁ、OfficeはOfficeでもVSTOを完璧に使いこなせたら、それだけで食っていけるけどな
それこそ残業云々どころか出社すらせず在宅労働で食っていける
とはいえ、身に付けるだけで食っていけるような技術は、君ごときが容易に手に出来るものじゃないけどな

232:デフォルトの名無しさん
08/06/27 19:13:55
>>230
ありがとうございます！

233:デフォルトの名無しさん
08/06/27 20:16:03
Userformから呼び出したSubプロシージャ内で
処理を終わらせるにはどうしたらいいですか？

今は戻り値で判定するのに
functionで呼び出しています。

イベントプロシージャに戻らない方法を
教えてください。

234:デフォルトの名無しさん
08/06/27 21:41:24
> 今は戻り値で判定するのに
> functionで呼び出しています。
その方法で良いわけだが

> イベントプロシージャに戻らない方法を
> 教えてください。
無いけど

なんでそんなことをしたがるのかねぇ
初心者の考えることはわからん

235:デフォルトの名無しさん
08/06/27 21:44:31
Endじゃないの？

236:デフォルトの名無しさん
08/06/27 22:04:52
233の説明通りならEndは違う

237:デフォルトの名無しさん
08/06/27 23:49:12
XPとWin2000でexcel2000を利用しています。

ユーザーフォームのcommandbuttonではあまりに味気ないので
マウスクリックやエンターキーの両方でフォーカスを取得して操作できる
画像で出来たボタンを作りたいと考えています
（マウスオーバーで色が変わり、クリック時にボタンを押したような画像に差し換わる）

使えるイベントの都合的にframeに背景画像を指定するなどいろいろ考えたのですが
どうもうまくいきません（画像が切り替わらない・エンターキーを押しても他のコントロールに抜けられない等）
何かよい知恵もしくはもっと適切なコントロールオブジェクトはないでしょうか？

238:デフォルトの名無しさん
08/06/28 00:30:05
>>224
ならよかったよ。
処理が最大値検索になってるのは意地悪したわけじゃないよ…。
最小値を勘違いして最大値で作っちゃった。ごめん。

239:デフォルトの名無しさん
08/06/28 04:03:14
>>219
単価が安いのを我慢できるんなら。

>>231のように、必死で新規参入を妨害しないとやっていけないくらい、
誰にでもできるし、実際たいしたことない。

240:デフォルトの名無しさん
08/06/28 05:59:40
>>234
初心者ですみません。
代替案など教えて頂けないでしょうか？

よろしくお願いします。

241:デフォルトの名無しさん
08/06/28 18:22:42
H段の階段を「1段」あるいは「1段飛ばし」で上る。上り方は何通りあるか？
これはどのような構文を使ったらいいんでしょう？

242:デフォルトの名無しさん
08/06/28 18:52:01
VBAはプログラムじゃないだろ

243:デフォルトの名無しさん
08/06/28 18:52:27
6段の階段なら
１－６段飛ばしの6通りってことか

244:デフォルトの名無しさん
08/06/29 00:15:51
>>242
うん、VBAはプログラムそのものではなくプログラム"言語"だね
更に言えばプログラム言語の中のマクロ言語に該当するものだな

245:デフォルトの名無しさん
08/06/29 08:06:57
>>241
一段飛ばしする回数をnとすると
(n+H-n*2)!/(n!*(H-n*2)!)
通りになる
nを０からH\2までループして結果を足す

246:デフォルトの名無しさん
08/06/29 10:55:55
>>243
ｱﾎｽｗｗｗｗｗｗ

247:デフォルトの名無しさん
08/06/29 22:20:05
>>233
呼び出された処理の最後で
Application.Quitすればいいと思う。
初心者のうちはけっこうこの命令を
知らないからね。入門書にも出てこないし。

248:デフォルトの名無しさん
08/06/29 23:53:22
いいわけないだろ
ApplicationをQuitしてどうするよw

249:デフォルトの名無しさん
08/06/30 00:00:48
>>248
IF文などの中で強制的に処理を打ち切るには
Application.Quitしかないと思う。
ExitSubだと呼び出し元に戻ってしまうからね。

250:デフォルトの名無しさん
08/06/30 02:02:31
マクロを編集する時に、例えば赤のフォントにしろと言われても色番号が分からないの
ですが、どうしたらいいでしょうか？
どなたか教えてください。

251:デフォルトの名無しさん
08/06/30 04:12:46
>>250
例えば、A1を赤に塗ってみてイミディエイトウィンドに
?range("A1").interior.color
又は、
?range("A1").interior.colorindex
などと打ち込んでEnterキーを押してみる

252:デフォルトの名無しさん
08/06/30 11:03:07
誰から赤のフォントにしろって言われるの？

253:デフォルトの名無しさん
08/06/30 11:47:58
色の設定画面のトコをプリントスクリーン＞ペイントに貼り付けて切り取って拡大してA4に印刷
手持ちの教本にあった番号表を直接マジックで書き込んで目に付くとこに張ってるアナログ最強

以外と見つからないんだよ色番号表。これは下の二段が無い
URLﾘﾝｸ(www.geocities.jp)

254:デフォルトの名無しさん
08/06/30 16:06:37
>>250
マクロ記録使って実際にその色でセルに色をつければいいだけ。
そしたら番号なんかすぐに分かる。

255:デフォルトの名無しさん
08/06/30 19:24:11
>>249
だからってApplicationをQuitしちゃだめだろ
処理を終わらせたいのであってApplicationを終わらせたいわけじゃないんだからw

256:デフォルトの名無しさん
08/06/30 19:26:41
だからEndでいいんじゃないの？

257:デフォルトの名無しさん
08/06/30 20:28:20
┐(ﾟ～ﾟ)┌

258:デフォルトの名無しさん
08/06/30 20:30:31
だからExit Subの代わりにEndを使えばそこで処理は終わるだろ。
変数は初期化されるがな。

259:デフォルトの名無しさん
08/06/30 20:57:57
>>258
EndってEnd Subのことでしょ？
それだと処理は終わるけど呼び出し元に制御が戻ってしまう。
>>233は呼び出し元に戻らずに終わりたいって言ってるんだからさ。
そのためにはApplication.Quitしかないって。

260:デフォルトの名無しさん
08/06/30 21:26:56
>>259
そのEndじゃないよ
でもEndもApplication.QuitもNGだけどな

261:デフォルトの名無しさん
08/06/30 21:43:22
>>259
違うって。End知らないの？
Exit Subの代わりにEndを書いてみなよ。
そこで処理が終わるから。

ただPublic変数も含めて初期化されるけどね。
セルにでも値を置いておけばいいんじゃないの？

262:デフォルトの名無しさん
08/06/30 21:52:18
戻ってもいいようなプログラムにすればいいのに

263:デフォルトの名無しさん
08/06/30 21:54:02
戻った後でfunctionの返す値によってExit Subするのが普通だろうね。
Endとかは他の処理にも影響が出てくるからあまり使うものじゃない。

264:デフォルトの名無しさん
08/07/01 00:00:49
すみません　リストの入力規則で
リストを指定するのですが、　リストのまん中ぐらいを最初に表示したいので
す　どうすればよいでしょうか。

265:デフォルトの名無しさん
08/07/01 00:50:47
VBAの課題が全くわからないので教えてください。

はじめて質問させていただきます。

課題１：国語、数学、理科、社会の５０人分の点数が掲載してあります。このデータを用いて次の処理をするプロシージャを完成させなさい。国語、数学、理科、社会の５０人分のデータの平均点、偏差値を画面上に表示する。
課題２：出席番号が変化するデータに対して、国語、数学、理科、社会の平均点、偏差値を画面上に表示する。

ちなみにデータは
b2に出席番号 c2に国語 d2に数学 e2理科 f2社会と入力されてます。
次にb3～b52にNo.1～No.50の出席番号 c3～c52に国語の点数 d3～d52に数学の点数 e3～e52に理科の点数 f3
～f52に社会の点数が入力されています。
点数は問題に関係ないと思うのでここでは書きません。
また、表示にはメッセージボックスを使うようです。

この２つの問題のプロシージャを教えていただきたいです。
どうかよろしくお願いします。
できれば、プロシージャ１行ごとに簡単な解説も付けてもらえたら嬉しいです。

266:デフォルトの名無しさん
08/07/01 01:26:46
＞また、表示にはメッセージボックスを使うようです。

ゲラゲラ

267:デフォルトの名無しさん
08/07/01 03:34:26
>>251,>>253
ありがとうございます。

>>252
FOM出版に言われましたＷ

268:デフォルトの名無しさん
08/07/01 07:13:09
>>266
わからないから笑って誤魔化すんですね(^-^;)
>>265お願いします。

269:デフォルトの名無しさん
08/07/01 07:44:27
宿題（しゅくだい）は自分（じぶん）でやりましょう。

270:デフォルトの名無しさん
08/07/01 07:50:32
>>265
>>1★5

271:デフォルトの名無しさん
08/07/01 08:11:00
実際なんとなくやったのがこれです。
Sub 国語平均()
Dim 平均 As Single
Dim 偏差値 As Single
和 = Application.WorksheetFunction.Sum(Range("c3:c52"))
数量 = "50"
平均 = 和 / 数量
MsgBox 平均
End Sub

偏差値は定義してますが、計算式がわからないので入力していません。
５０人分の偏差値はどうだせばいいのでしょうか？

いろいろ失礼なことを言って申し訳ございませんでした。
明日までの課題ですから焦っていました・・・

272:デフォルトの名無しさん
08/07/01 09:22:30
>>264
「入力規則のリスト」はドロップダウンリストという分類の物で
ドロップダウンリストには入力規則のリスト、フォームツールのコンボボックス、
オブジェクトのコンボボックスなどいろいろあるが
手軽な代わりにあまり弄れないのが入力規則のリスト、
多少面倒はあるがいろいろ弄れるのがオブジェクトのコンボボックス

入力規則のリストでは君の望むことは基本的に出来ないから
オブジェクトのコンボボックスを使いましょう
DropButtonClick イベントで ListIndex プロパティを (ListCount \ 2) にしてやれば
全項目中の真ん中が、表示されるリストのトップにくるようになる

>>271
> 偏差値は定義してますが、計算式がわからないので入力していません。
> ５０人分の偏差値はどうだせばいいのでしょうか？
「計算式」というのは数学の問題であって、Excelの問題でもVBAの問題でもない
つーか、ワークシート関数として用意されてるわけだが…

それにしても酷いコードだな
最近では小学校でも算数ではなく数学なんだっけ？

273:デフォルトの名無しさん
08/07/01 10:19:42
>>272
酷いコードですか…ならどういう風なコードにすればいいか教えていただけないでしょうか？
まず自分はコードがわからないんですけどね…

274:デフォルトの名無しさん
08/07/01 10:51:49
>>271
WorkSheet関数を使うのなら、averageとstdevを使えばOK.

>>273
例えば数量に文字列をセットするなんて、論外だ。

275:デフォルトの名無しさん
08/07/01 11:02:37
>>274
なるほど。
つまり、出席番号の１～５０も数式？を使ってやった方がいいんですね。
そのやり方も考えてみます。
関数も今は学校なので家に帰ったら試してみます。

276:デフォルトの名無しさん
08/07/01 19:36:30
小学校からやり直した方がいいよ

277:デフォルトの名無しさん
08/07/01 21:38:04
>>250

>>251 >>253 でＯＫだと思いますが、私からも補足。

Range("a1").Font.Color = vbRed

という書き方もできます。
vbRedは、カラー定数（ColorConstants）と呼ばれるもの。
他にvbBlack、vbBlueなど基本的な8色がカラー定数として
定義されているので、赤青黄ぐらいの区別なら、
これを使ってコーディングするのが楽だと思います。

８色の内容については、
VBAEditorから［表示］→［オブジェクトブラウザ］で
オブジェクトブラウザを開き、"ColorConstants"で
検索してみてください。

278:デフォルトの名無しさん
08/07/01 21:47:52
カラー定数はVBではいいがVBAでは罠がある
人には奨めない方がよろし

279:デフォルトの名無しさん
08/07/01 22:19:02
>>278
横からすんませんが、「VBAでは罠がある」というのは何でしょう？

280:y
08/07/01 22:27:26
>>237

CommandButtonの背景画像を切り替えてみてはどうでしょうか？

CommandButton1.Picture = LoadPicture("画像ファイルのパス")

で、指定した画像に変わります。
画像を３つ用意して、
（１．通常時　２．マウスオーバー時　３．クリック時）
以下のイベントのタイミングで切り替えます。

初期設定　　　　　　　　　→１
CommandButton1.MouseMove　→２
CommnadButton1.MouseDown　→３
CommandButton1.MouseUp　　→２
UserForm1.MouseMove　　　 →１

281:277
08/07/01 22:30:01
>>278
えっ、何ですかそれ！？
私も知りたいので、教えてくれませんか。

バージョンによって定数が示す値が違うとか？

282:237
08/07/02 15:46:14
>>280
ありがとうございます
実はCommandButtonコントロールを使う方法は真っ先に思いついたのですが
背景画像を変えても「四角い輪郭」までは消えないせいでどうにも残念な外観になってしまい
意味がありませんでした。

試行錯誤しましたが最終的にlabelコントロールを４つCommandButtonの輪郭の上に貼って
隠すことにしました（環境の違い等でズレたりしないかが一番心配）

283:y
08/07/02 22:27:45
>>282
私もPictureコントロールで試してみましたが、
確かにうまくいかないですね。

MouseDownイベントプロシージャ内で、
LoadPictureメソッドが正しく機能しないようですが、
こういう仕様なんでしょうかね。

Labelで輪郭消しとは、すごい力技！

284:デフォルトの名無しさん
08/07/03 12:55:09
>>281
俺はエクセルＶＢＡを趣味で使ってるだけだから断定できないが
エクセルは２００３まで５６色しか使えなかったからカラー定数使っても
５６色の中の似た色に変換されてしまうからではないかと思う
（カラーパレット変えれば対応できると思うが同時に使えるのは５６色って事かな・・・）

285:デフォルトの名無しさん
08/07/03 20:27:16
６行目中ほどに配置したコマンドボタンが、左右への列移動に伴って、同様にして左右に移動
＝画面の中ほどにコマンドボタンがいつもあるようにする。
には、どう書いたらいいですか？
今は、検索して探したものを元に、
commandbottun1 bottun=1 bottun=2で移動するだけで画面からすぐ、隠れてしまう状態です。

よろしく、お願いします。

286:デフォルトの名無しさん
08/07/03 21:47:25
>>285
＞画面の中ほどにコマンドボタンがいつもあるようにする。

コマンドボタンがＤ列にあるとして

range("D6").select
activewindow.freezepanes = true

287:デフォルトの名無しさん
08/07/03 23:09:38
>>286 レス、サンクス。
ただ、それは、「ウィンドウ枠の固定」のことですよね。
説明が拙かったですが、求めているのは、例えば、アクティブセルが右に５列移動したら、
コマンドボタンも同様に５列移動するという内容のものです。

288:デフォルトの名無しさん
08/07/04 08:31:48
>>287
SelectionChangeイベントでActiveCellからOffset指定でコマンドボタンの移動位置を決めれば良い

でもツールバーをフロートで使った方がスマートだな

289:y
08/07/04 21:14:06
>>287

>>288さんの言うようなやり方もありますが、
CommandButtonを貼り付けたUserFormを表示させておく方法もあります。
（この場合UserFormのShowModalプロパティはfalseにしておくこと）
どちらがいいかは場合によりけりだと思います。

ユーザー定義のツールバーを使うやり方は、Excel自体の環境を
変えてしまうので、他人に配布したりする場合には検討の余地が
あります。でも個人で使う分には、コンパクトだし、
好きな場所にドッキングできるので、とてもスマートです。

290:デフォルトの名無しさん
08/07/05 07:52:39
2007でツールバーなくなっちゃったしねー

291:デフォルトの名無しさん
08/07/05 15:12:18
しねとはどういう事だ

292:y
08/07/06 00:04:10
>>290
職場の機種更新で、私も2007を使い始めたばかりですが、
ツールバーが使えなくなっちゃったんですか...
日本語の音声読み上げもオミットされたみたいで
ちょっぴり残念。
脱線ごめんね

293:デフォルトの名無しさん
08/07/06 01:55:10
VBAからCommandBarオブジェクト等は使えるんだけど、
実際に表示されるのはツールバーじゃなくてリボンのアドインタブなんだー
タブを切り替えて使わなきゃいけないから面倒なんだよねー

294:デフォルトの名無しさん
08/07/06 02:38:55
それを手でクイックアクセスツールバーへ追加ってできなかったっけ？

295:デフォルトの名無しさん
08/07/06 07:41:46
うん、個人使用でPersonal.xlsbに登録する類のマクロならそれでいいんだけどねー

296:デフォルトの名無しさん
08/07/06 19:11:47
ＶＢＡの初心者で困っています。
どなたか教えて頂けるとありがたいのですが

ユーザーインターフェースで
西暦(1900年から2100まで) 月(1から12月) 日(1から31日)
をそれぞれテキストボックスに入力し
ボタンを押したら
曜日を表示させる(テキストボックス?)

というのを作ろうとしているのですがよく分かりません。

具体的には西暦月日を入力してそこから曜日を割り出す計算式(プログラム)と
うるう年の場合の計算式(プログラム)
が分かりません。

あと入力するテキストボックスに規定値いがいの値を入力した場合のエラー表示
もよく分かりません...。

すいませんくだらない質問で...m(_ _)m

ただ本当に困っています。

どなたかアドバイス、参考例など教えて頂けるとありがたいのですが

よろしくお願いしますm(_ _)m

297:デフォルトの名無しさん
08/07/06 19:21:32
エクセルならWEEKDAY関数で曜日返してくれなかったっけ？？？

298:デフォルトの名無しさん
08/07/06 21:11:04
曜日によって処理を変えるとかではなく
曜日を表示させるならWeekday関数+WeekdayName関数だな
ついでに年月日を別々のテキストボックスに入力させるならDateSerial関数も必要かな

> あと入力するテキストボックスに規定値いがいの値を入力した場合のエラー表示
> もよく分かりません...。
いろんな手法があるので「プログラム入力制限」とか「VB 入力規制」とかでググろう
アルゴリズムの話なので、VBA以外での話でも応用出来るからね

でも、年、月、日くらいなら、コンボボックスをリスト選択のみの設定で使う方法もある

299:y
08/07/06 22:02:51
>>296

年・月・日から、曜日を求める方法はいくつかありますが、
大筋は>>298です。まずは次の関数について調べてみてください。
・DateSerial関数　・Format関数
これらの機能が理解できたら、次のコードが何をしているかわかるはずです。
（うるう年でも問題ありません）

Sub youbi()
Dim year As Integer
Dim month As Integer
Dim day As Integer
Dim theDate As Date
Dim youbi As String
year = 2008
month = 7
day = 1
myDate = DateSerial(year, month, day)
youbi = Format(myDate, "aaa")
MsgBox youbi
End Sub

（続く）

300:y
08/07/06 22:03:31
（続き）

UserForm上のTextBoxに入力されるべき値の範囲を制限する方法について
ですが、まずは新しくUserFormを作って、必要なTextBoxやCommandButtonを
配置するところまではできていますか。

TextBoxに値が入力された時点で値をチェックしたいなら
TextBoxコントロールのChangeイベントを、
CommandButtonが押された時点で値をチェックしたいなら
CommandButtonコントロールのClickイベントを調べて、
イベントプロシージャについて理解してください。

あとは、"TextBoxの値が規定範囲内かどうか調べて、範囲外ならエラー
処理をする"コードを、イベントプロシージャ内に記述するだけです。

301:デフォルトの名無しさん
08/07/07 14:50:44
数値データから多項式係数を割り出すのにLINEST関数を使ってます。
でもExcelの仕様で、16項までしか対応しないみたいですよね。
VBA使えば255項とか分析できるのかな？
ググったけど、そういうニーズは無いみたい…。

302:デフォルトの名無しさん
08/07/07 15:44:22
そもそも16項もできたっけ? 最近のはできるのかな。
いずれにしても、多項式係数の意味が判っているなら自分で実装できるでしょ。

303:デフォルトの名無しさん
08/07/07 18:39:24
質問させて下さい。
OS：winXP SP2
EXCEL ver：2003

【質問内容】
数式1～3からVBAを使用して
ファイル名、シート名、セルをそれぞれ分割し変数に格納したいです。
どんな方法が適切でしょうか？

数式1⇒=[ブック]シート!$A$1
数式2⇒=[ブック]シート!'!$A$1
数式3⇒=[ブック]シート!!!'!$A$1

現在の処理はDoとMidを使用して左３文字目からIfを使って
１文字ずつ文字判断させています。

"]"がでたら３文字目から"]"の手前までブック名称⇒変数Aへ
"!"がでたら"]"の直後から"!"の手前までシート名称⇒変数Bへ
"!"の直後からはセル⇒変数Cへ

数式1では問題ないのですが、数式2、3みたいに
シート名称に"!"が含まれている場合にシート名称が正常に変数Bに格納されません。

Midを使って"'!"の場合にシート名称を読み込んだとしても、
数式2、3はそれで回避出来ても今度は数式1が認識できなくなってしまいます。

他に良い方法があるのかもしれませんが、全く思いつきません。
わかりにくい文章で申し訳ありませんが、
どうか、ご教授の程よろしくお願いします。

304:デフォルトの名無しさん
08/07/07 18:52:31
こちらのスレにて質問させて下さい。

ログファイルから各種括弧(または類するもの)→　() [] 【】 <> 《》「」
で囲まれた文字列を取り出したいのですが、どのように処理すれば
よいのでしょうか？ログなので、取り出すのは任意の文字列です。

例：
***(aaa)** → aaa
[warning]*** → warning
月火【水】木金土 → 水

305:デフォルトの名無しさん
08/07/07 19:12:21
１　FINDで”（”の位置を検索する
２　FINDで”）”の位置を検索する
３　MIDで”（”と”）”の間を抜く
４　かっこの種類だけ繰り返す

306:デフォルトの名無しさん
08/07/07 19:47:05
>>303

$で判定するとか

307:デフォルトの名無しさん
08/07/07 20:40:17
>>304
regexp

308:デフォルトの名無しさん
08/07/07 20:50:48
シート名には「!」だけじゃなくて「$」や「'」、おまけに「[」や「]」も使える。
しかも、それはブック名にも当てはまる。
その辺は考慮しなくていいのかな？

309:303
08/07/07 20:57:11
>>306
"$"で判別しても大丈夫だとは思うのですが…
"$"も"!"もシート名称で使えてしまうので、
誰かがそんなシート名称を指定してしまった場合に
対処出来ない様な気がして敬遠してたのですが…

じゃあ…"'!"で存在しない場合に"!$"で判別すれば大丈夫かもですね…

なんだかわかった気がします！
ありがとうございました！

310:308
08/07/07 21:03:49
あーでも「[」とか「]」を使ったら参照できないな

> じゃあ…"'!"で存在しない場合に"!$"で判別すれば大丈夫かもですね…
「'!」とか「!$」を含む事もできるけどね・・・

311:303
08/07/07 21:58:56
>>308、310
あれ？"'"ってシート名称に使えましたっけ…じゃあ駄目じゃん俺＿|￣|○

ブック名称を格納するときは"!"を見ておらず"]"しか見ていないので
大丈夫かと思ってたんですが…やっぱ駄目ですか？

シート名称は"!"を名称として使用すると"'"が繋ぎ部分に加えられる為、
その辺りで判別しようかなと思ったのですが…どうすればよいのやら…

なにはともあれ、お答え下さってありがとうございました！

312:y
08/07/07 22:39:46
>>303

数式１～３がセル参照として成り立っており、かつ
参照先のブックが開いているという前提なら、
単純な方法があります。

（なお、参照先のブックが閉じられた状態では、>>303の
　数式１～３のようなセル参照は普通はありえません。
　普通は保存して閉じるだろうし、保存して閉じれば
　数式は絶対パスを含む形に自動的に置き換わるからです。）

■考え方
数式１～３はいずれもセル参照なので、
参照先のRangeオブジェクトを得ることができます。
そこから、Parentプロパティを使って、
親シートおよび親ブックを割り出します。

■具体例
Book1とBook2が開いていて、
Book1のセルA1に
=[Book2]Sheet1!$A$1
という式が設定されているとします。

Dim rg as Range
Dim adr as String, sh as String, bk as String

Set rg = Range(Thisworkbook.Sheets("Book1").Formula)
adr = rg.Address
sh = rg.Parent.Name
bk = rg.Parent.Parent.Name

313:デフォルトの名無しさん
08/07/07 22:51:52
Nameと同一かどうかはわからないけどな

314:デフォルトの名無しさん
08/07/07 23:17:54
>>311
"'"は繋ぎ部分だけじゃなくて先頭にも加えられない？っていうかつまり"'"で囲まれない？

315:303
08/07/07 23:41:30
>>312
仰る通り、現在開いているブック対象にしています。
後々、フォームに組み込もうと思ってまして…
アドインにせずに単体ツールとして運用する予定なので、
必要なファイルは予め開いていて貰うつもりで作っています。

教えて頂いたコードですが、何故か上手く動きませんでした…
Formulaの記述でストップしてしまいます…
(当方2003を使用しています。)
Formuraってバージョン依存ありましたっけ…？
もっとよく調べてみます…

>>314
シート名称からの指定ですと、確かに先頭に"'"は付きますが、
ブック名称からの指定や、フルパス指定だと先頭には"'"はつかないようです。

316:303
08/07/08 00:06:35
>>312
サンプルが動きました！
一度Variantで取り出してからRange指定しなきゃ駄目だったみたいです。

これがあればいちいち変なループ処理を組み込まずとも、
それぞれの名称を獲得できますね！

いやはや勉強不足でご迷惑をおかけしました…
皆さん、本当にありがとうございました！！

317:デフォルトの名無しさん
08/07/08 09:36:50
regexp使えば楽だったね。

318:デフォルトの名無しさん
08/07/08 11:47:39
>>302
>>301です。
VBAでworksheetfunction.linestってのがあった。
これで実装してみたけど、やっぱり16項までが限界だったみたい。
バージョンは2003です。

以上、報告まで

319:デフォルトの名無しさん
08/07/08 15:37:59
初歩的な質問なのですが、ブックを超えて操作をさせようとするとどうしても上手く動きません。

book2.xlsを開き

book1.xls　の　sheet2 A1 の内容を

book2.xls　の　sheet1 A1 に書き込む

とするにはどう書けば良いのか教えて下さい。

どなたかお願いします。

OS　XP
EXCEL2000

320:y
08/07/08 16:17:05
>>303

ごめんね。>>312のコードはだいぶ変でした。
Rangeオブジェクトを取得する行は正しくは

Set rg = Range(ThisWorkbook.Sheets("Sheet1").Range("a1").Formula)

でした。でも、自分なりに解決できたとのこと、何よりです。

321:デフォルトの名無しさん
08/07/08 16:23:58
emoji1 = InStr(ActiveCell, "か")
emoji = Mid$(ActiveCell, emoji1, 3)
emojip = Worksheets(2).Cells.Find(emoji).Offset(, -1)
ActiveCell.Replace what:=emoji, Replacement:=emojip
このようなマクロで activecell="あかきくお" emoji="かき"だった場合に
置換した後はactivecvell="かきこ"
となってemoji以前がそっくり削られてしまいます
どのように書けばactivecellの中のemojiだけを置換できるのでしょうか?

322:デフォルトの名無しさん
08/07/08 16:28:48
>>319
ヒント。

Workbooks.Open ("C:\2.xls")
Workbooks("2.xls").Sheets("sheet1").Range("A1").Value = Workbooks("1.xls").Sheets("sheet2").Range("A1").Value

後は自分で考えれ。

323:デフォルトの名無しさん
08/07/08 16:42:09
>>321
それだけじゃ　emojiip　に何が代入されてるのかも分からないよ。
察するに sheets(2) にデータテーブルを持たせてるのかな。　
"かきこ" も、何故でしょうか。

ちょっと頭がボーっとしてるんで、私が読みきれてないだけだったらごめんね。

それと、位置を代入してる変数に emoji1 だと訳が分からなくなるから気をつけた方がいいかも。

324:デフォルトの名無しさん
08/07/08 16:57:17
>>323
ありがとうございます、やはりポイントだけ書き込んでも分かりづらいですよね;
そしてすみません、"かきこ"ではなく"かきお"でした；

sheets(2)はおっしゃる通りで絵文字変換表があります。
A列絵文字を入力して B列絵文字に変換しようと考えたコードなのですが
A>Bはうまくいったものの、戻すのも作ろうとコード丸写しから改編しB>Aのものを動作させると
代入したい部分だけでなくセルの前半ごと変換されてしまいました。

自分用の小さなものなので、変数名は手抜きしています；

325:デフォルトの名無しさん
08/07/08 17:38:48
うーん。先ずはもっと小さく組んで、それが上手く行ったら大きくして行かないとデバッグ出来ないかもなぁ。
具体的に言うと、変数には予め代入してしまう。
ActiveCellじゃなくて、変数で文字列を代入しておくといいね。
あと、findする列が決まってるならば、cellsで全体から検索ではなくて、columnsで指定した方がスマートです。

dim hoge as string
dim emoji as string
dim emojiip
hoge = "あかきくお"
emoji = "かき"
emojiip = sheets("sheet2").columns(2).find(emoji).offset(0,-1)

まず、ステップインでF8を押しつつ1行ずつ実行して行って、emojiipに目的の物が代入されたかをチェック。
その後で、
hoge.replace what:=emoji , replacement:=emojiip

こんな感じで、どこにおかしい部分があるかを少しずつ調べて行くと良いですよ。

次ページ