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
こんな感じで、どこにおかしい部分があるかを少しずつ調べて行くと良いですよ。
326:321
08/07/08 18:06:54
>>324 済みませんでした
B>A 変換は置換対象の頭に"*"が含まれていて、ワイルドカード扱いになっていたみたいです。
なので前半がそっくり削れていたんですね；；
こういう場合は*以前を別変数に収めておいて、変換後くっつけると言うようにするしかないのでしょうか?
327:デフォルトの名無しさん
08/07/08 18:08:37
もう面倒だからRegExpでreplaceしちゃいなYO!!
328:デフォルトの名無しさん
08/07/08 18:09:11
うそです
329:314
08/07/08 19:17:00
>>315
ああ、うん、ブック名込みで囲まれるみたいだからシート名だけ見ると後ろだけだね
まあもうどうでもいいね
330:67
08/07/08 21:43:58
inStrとmidで出来るからやってるんだろうけど、
個人的には正規表現使った方がスマートだと思うんですわ。
あまり正規表現が好まれない理由って何なんでしょうか。
331:デフォルトの名無しさん
08/07/08 21:52:46
つーか、好みどうこう言えるのは、自分で解決できる奴の特権
人に聞くなら実用上不都合が無ければ良しとするべき
332:デフォルトの名無しさん
08/07/08 22:02:37
303です。
>>320
わざわざ修正後のコードをあげて下さりありがとうございました！
おかげさまでファイル取得が楽になりました。
>>329
すみません…読解力が足りませんでした…
当初の処理だと既に開いているファイル名称を対象に
ブック判断用文字列"]"
⇒"]"が見つかればシート判断用文字列"'"を直後から探す
⇒"'"が見つかれば直後からアドレス
という風に左側から一文字ずつIFを階層にさせていたため、
最初に"'"があったとしても"]"が見つからない限りブック名称とする処理をしてました。
ファイル名で"]"は入力できなかったはずなので
ブック名称は間違えようがないと思って作ってました。
…今考えると凄まじくめんどくさい処理ですね。
そんな感じなので"]"の前にある"'"は処理上認識しないからと頭の中で完結させてました。
ともあれ、アドバイスありがとうございました！
もっと勉強しておきます…
333:y
08/07/08 23:17:27
>>330
私の場合ですが、正規表現は何となく苦手なんです。
２～３回のテストではうまくいくようでも、実際に
いろいろな文字列を処理させてみると、どうやら論理的に
穴があるらしく、意図した結果が得られないことが
よくあります。
表現が回りくどくなっても、文字数や位置をもとに単純な
条件分岐を積み重ねる作りにしておくと、事前チェックや
デバッグの際に、各行をトレースして細かいレベルの動作を
明示的にチェックでき、個人的にはとても安心です。
向き不向きもあるようで、人によっては正規表現でひょひょいと
書いてしまう方もいます。「この式で大丈夫」と確信できるのは、
正規表現の動作を頭の中でシミュレートできるからなのでしょう。
とても羨ましいです。
334:デフォルトの名無しさん
08/07/09 01:56:20
配列操作の練習を兼ね、CreateObjectで一時的に作成したシートに
コンボボックスのデータを転記し、ソートした後に配列に書き戻す…
といった事を考えたのですが、
Set myWorkbook = CreateObject("Excel.Sheet")
とした途端、元ブックのウィンドウサイズが変わってしまいます。
Application.ScreenUpdating = False では防げないようなのですが、
どうすれば挙動が見えないようにできるでしょうか？
335:デフォルトの名無しさん
08/07/09 02:23:28
ボタンを押すと、変数にA3にある変数を1足したいのですが、
Cells(1, 3).Value = "Cells(1, 3).Value" + "1"
とやっても、増えてくれません。
特に変数は使っていませんが、どのようにすれば、変数の値を増やすことができるのでしょうか？
336:デフォルトの名無しさん
08/07/09 02:59:18
>>335 " ← を取ってみ
337:デフォルトの名無しさん
08/07/09 03:03:43
>> 335 A3にある変数て何？
セルA3の値なら Cells(3,1).Value Cells(1,3).Value だとセルＣ3だぞ
338:335
08/07/09 03:11:38
変化がありませんでした、私の条件式に問題があると思います。
Sub 今日の日付()
' A1が今日の日付で無ければ、通し番号を1にして、A1値を今日の日付にする
If "Cells(1, 1).Value" <> Date Then
Cells(1, 3).Value = 1
Cells(1, 1).Value = Date
ActiveSheet.Name = Format(Date, "yyyymmdd")
' 今日の日付であれば通し番号を増やす
Else
Cells(1, 3).Value = Cells(1, 3).Value + 1
End If
End Sub
こんな感じです、ボタンを押したら、今日か過去か日付を判断して、
過去なら(つまりはテンプレシートをコピーした直後）
通し番号を１にして、A1の日付を今日に、
すでに今日作っているなら、
通し番号を2にして、シート名を「20080709-2」と「ハイフンと通し番号」を付け加えたかったのです
（ここはまだまだ難しくて未実装）
339:335
08/07/09 03:13:00
ちなみに、最初のｉｆで日付が今日で無いときは処理がうまくいっています。
日付が今日なら、どうやらelse以降が実行されていないようです。
>>337
たしかに変数なんて使っていませんね、すいません。
340:デフォルトの名無しさん
08/07/09 07:24:02
なぜCells(1, 1).Valueを"で囲む？
341:デフォルトの名無しさん
08/07/09 07:39:37
>>338
>340の言うとおり。
Ifのすぐ後ろのCellsを""で囲んでいるのをとる。
342:デフォルトの名無しさん
08/07/09 10:06:13
>>304
Sub test()
Dim hoge, hogematch, piyo, hitpat, moji As String
Set hoge = CreateObject("VBScript.regexp")
moji = "月火【水】木金土"
hitpat = "【.*】"
'hitpat = "\(.*?\)" '最小マッチ、\(でエスケープ
'hitpat = "\[.*\]" 'メタ文字でググるとgood
With hoge
.Pattern = hitpat
.ignorecase = True
.Global = True
End With
Set hogematch = hoge.Execute(moji)
piyo = hogematch(0)
piyo = Replace(piyo, "】", "") '加工例1
piyo = Replace(piyo, "【", "")
'piyo = Mid(piyo, 2, 1) '加工例2
Debug.Print (piyo)
End Sub
343:デフォルトの名無しさん
08/07/09 10:13:44
コメントは適当に消してね
344:304
08/07/09 13:10:31
できました！ありがとうございます！
345:デフォルトの名無しさん
08/07/09 16:38:09
ぬお。エクセルで正則表現使えたのか！
恥ずかしながら知らなかった・・・。
横からマジ感謝。
346:338
08/07/09 18:09:41
>>340
>>341
くはー、できました！
ダブルクォートで囲むと意味が変わるのですね。
連番で上がりました。
あとは、シート名に連番をつけていくのが目標です。
VBA楽しいですね、
手作業で面倒だった、EXCELが自分専用の便利ツールになりますね。
347:デフォルトの名無しさん
08/07/09 18:57:16
ＥｘｃｅｌがEXILEにみえてきた
348:デフォルトの名無しさん
08/07/09 19:18:04
しばしディスプレイから目を離し、遠くの緑をみつめよう～。
349:デフォルトの名無しさん
08/07/09 22:50:21
Excel2007
WindowsXPsp2
「ズームボタンが押された状態で」印刷プレビューを開くにはどうしたらいいですか？
350:デフォルトの名無しさん
08/07/10 00:31:43
Excel-VBA は楽しいだろうが、Excelそのものはあんまし
楽しいものじゃないと思う
351:デフォルトの名無しさん
08/07/10 09:29:53
ワードとかパワポなんて仕事でも使ったことねえ
352:デフォルトの名無しさん
08/07/10 11:17:53
「Excelで文章書く奴は初心者」
ってのはよく言われる事だが実際には
全然そんなこと無いと思う。
寧ろWordで作る意味が分からない。
353:デフォルトの名無しさん
08/07/10 11:38:39
winXP。EXCEL2003
並び替えでの質問ですが、
2008年6月30日
2008年6月2日
2008年6月27日
の文字列としてあるデータを並び替えで昇順にしたいんですが
マクロの自動記録時には正確に
2008年6月30日
2008年6月27日
2008年6月2日
となりますがそのマクロを実行すると
2008年6月30日
2008年6月2日
2008年6月27日
となってしまいます。
コードは
Columns("B:H").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
どこをどうやればうまく行くのでしょうか？
354:デフォルトの名無しさん
08/07/10 11:39:56
age
355:デフォルトの名無しさん
08/07/10 11:47:56
>>352
だよな
会社で扱うファイルのうちワードなんて1割もない
356:デフォルトの名無しさん
08/07/10 12:02:41
取り扱い説明みたいなものを書くのにはWordは楽だよ。
これで、アウトラインプロセッサ機能がもう少し使い易ければもっといいのだけれど。
まぁ、原稿用紙が美しいと思う日本人にはExcelで型に填めるのが好きな人が多いのは判らんでもないけど。
数式やコードが入るような文章書くときにも、レイアウトをそれほど意識しないでもいいのは助かるしね。
まぁ、よほどのことがない限りPowerPointは使わないけれど。
357:y
08/07/10 17:44:33
>>353
並べ替えを記録する際、きちんと「昇順」を選択していたのなら、
Order1はxlDescendingではなくxlAscendingになっているはずです。
また、自動記録時にその結果になるためには、
「並べ替えの前に」ダイアログボックスで
「数値とテキスト形式の数値を分けて並べ替えを行う」を
選択しているはずです。
その場合、DataOption1はxlSortTextAsNumbersではなく、
xlSortNormalとして記録されるはずです。
以上から、記録したマクロではないマクロを実行している可能性
があります。もし、自動記録を何度か繰り返したのなら、
いくつか似たようなマクロができてしまっていると思いますので、
よく確かめてみてください。
358:y
08/07/10 19:02:56
>>352
たぶん、この手の初心者のことを言っているのでは。
URLﾘﾝｸ(d.hatena.ne.jp)
...誰でも最初は初心者なので仕方ないですが...
Excelは、横幅の描画単位がかなり曖昧です。
セルの書式設定を「折り返して全体を表示する」に
したとき、編集画面ではきちんとセルの中におさまっていても、
プレビューで見るとはみ出て切れてしまったり、
セル幅とグラフオブジェクトの幅が、やはりプレビューで見ると
だいぶ違ったりするのは、やはり文書向きのソフトではないと
感じてしまいます。
でも、Excelも便利だと感じるときもあって、その１つが
行間隔を直感的にリサイズできる点。
Wordにも、行間隔スライダーみたいなツールが実装されたら
すごい便利なのに、といつも思います。
359:デフォルトの名無しさん
08/07/10 19:43:32
> １つのシートに、縦に表１と表２が並べてあるドキュメントなのですが、
> 表１に列を追加しようとしたところ、当然ながら表２にも列が追加されてしまう
これは当然じゃないだろ…
360:y
08/07/10 21:15:15
>>349
私の知る限り、プレビュー画面を拡大するメソッドはVBAには
実装されていません（というより、プレビューが開いている間は
VBAの実行が一時的に停止しています)。
力技ですが、ショートカットコマンドを利用する方法があります。
普段はショートカットコマンドを使っていますか？
例えば、[Alt][W][F]の順でポンポンポンとキー入力すると、
ウィンドウ枠の固定ができる、といったような機能です。
うちのExcelは2003なのですが、[Alt][F][V][Z]でプレビュー画面が
ズームされます。これをVBAでは、
SendKeys "%fvz"
と表現できます。詳しくはSendKeysステートメントを調べてみてください。
ただしこれは、Excel2003までの場合です。
2007でも2003以前のショートカットの大部分は生きているので、
このステートメントをそのまま使えるかもしれませんが、
できれば2007のショートカットコマンドを調べて実装したほうがいいでしょう。
なお、SendKeysはアクティブなアプリケーションに対して有効です。
マクロをVBAEditorから実行すると、VBAEditorに対してSendKeyしてしまうので、
実行するときは必ずExcelから実行してください。
361:デフォルトの名無しさん
08/07/10 22:36:32
>>357
降順のコードからコピーしてました。
xlSortTextAsNumbers、xlSortNormal
どちらで試しても日付順にはなりません。
自動記録でなパターンを順番に記録して
実際にマクロを実行しても一度も日付順にはならないのです。
EXCELの仕様（不具合）と見たほうがいいのかな？
362:デフォルトの名無しさん
08/07/10 23:05:54
バグだの仕様だの、ってのは簡単に言ってはいかんのだ。
それを言った時点で全てが終わりってくらい重く考えないといかんよ。
プログラムは言われた通りの事”しか”やらないんだからね。
363:y
08/07/11 06:21:02
>>361
あ、すみません。>>357の私のレスに間違いがありました。
DataOption1についてはxlSortTextAsNumbersでＯＫでした。
訂正します。
でも、それでもうまくいかないのですか。
（うちではうまくいくのですが...）
364:デフォルトの名無しさん
08/07/11 08:27:27
俺はDataOption1とかの使い方は知らないが、そこを無視すると
"2008年6月2日"
"2008年6月27日"
この文字列の大小は９文字目の"日"と"7で"比較されるから、上の方が大きくなるのは当然じゃないのか？
バグでも何でもないと思うんだが。
文字列を日付として大小比較するなら
"2008年06月02日"
"2008年06月27日"
という形の文字列にしないとまずいんじゃないのか？
"2008年12月6日"
"2008年6月30日"
これだと下の方が大きくなるからね。
文字列の大小比較するより、データ、区切り位置、日付でシリアル値に変換した方がいいと思うがね。
365:デフォルトの名無しさん
08/07/11 08:45:49
ちょっと訂正
この文字列の大小は９文字目以降の"日"と"7日"で比較されるから
366:y
08/07/11 17:06:01
>>364
「数値に見えるものはすべて数値として並べ替えを行う」は
意外に賢くて、日付と解釈できる文字列はシリアル値として
解釈し、並べ替えてくれます。
"2008年12月6日" → 39788
"2008年6月30日" → 39629
と読まれて、きちんと6月が先頭に来ます。
ただし、"2008年0月4日"みたいな変なのは、日付を表す
シリアル値として解釈できないので、昇順で並べ替えても
12月より後ろに来ます。
>>361
...でも正直なところ、>>364の意見に賛成です。
シート上の日付文字列を、どうしても文字列のままにしておかなければ
ならない理由が特になければ、シリアル値に変換してしまった方が
いいかと。日付文字列→シリアル値の変換は、DateValue関数
で簡単にできます。変換さえすれば、昇順の並べ替えも
全く問題なくできるようになるでしょう。
367:364
08/07/11 18:29:15
>>366
ﾄﾝｸｽ。
「数値に見えるものはすべて数値として並べ替えを行う」ってのがあるのか知らなかったよ。
俺の2007の並び替えのオプションじゃ見つからんのだが....。
VBAにはDataOption1とかあるから、ちゃんと実装してるんだろうけど。
それはおいといて>>353のコードで降り順にソートすると、
"2008年6月2日"
"2008年6月27日"
これは>>353のいうようにこの通りに並ぶね。
きちんとシリアル値に解釈できてたらそんなことないはずだけどね。
そんなおかしなオプションは使わないことだろうね。
368:364
08/07/11 19:00:54
2007でいろいろ試してみたが、
"2008年6月2日"のような形式の文字列は、DataOption1:=xlSortTextAsNumbersで数値としてみてないらしいぞ。
"2008/6/2"というような形式の文字列なら、きちんとシリアル値と解釈して並び替えるようだが。
VBAでは"2008年6月2日"のようなローカルな形式はサポートしてないんじゃない？
369:y
08/07/11 19:54:57
>>368
「数値に見えるものはすべて数値として並べ替えを行う」オプションは、
2003以前のバージョンでも、普段のソートダイアログには出てきません。
セル書式が文字列になっているセルを含むセル範囲を基準に並べ替えを
行う場合に限り、「並べ替えの前に」ウィンドウが開き、その中にあります。
うちのはExcel2003ですが、上記の方法でうまく並べ替えできます。
2007では何かが変わってしまったのでしょうか...
"yyyy年m月d日"の形の文字列は、少なくとも2003のVBAでは解釈可能です。
たとえばDateValue("2008年6月2日")とすると、
正しく39601が返されます。
ひょっとして2007では、これもエラーになってしまいますか？
だとすればサポートされなくなったのかも...
職場のPCにExcel2007が入ったので、今度自分でも試してみます。
何にしても、Excel的にはシリアル値+書式指定にしておくのが
一番ですね。
370:364
08/07/11 20:08:18
うーむ、2007ではセル書式が文字列になっててもそういうウィンドウは開かないみたいね。
それからMsgBox CLng(DateValue("2008年6月2日"))とすれば2007も39601が返るよ。
とにかく>>353のいうように"2008年6月2日"って形式だと、あのコードではうまくいかないね。
昔、記録マクロが動かないことってNumberFormatで確かあったなぁ。
今回も似たようなことじゃないかな？
371:y
08/07/11 21:22:09
>>370
参考までに、Excel2003ではこうなります。
URLﾘﾝｸ(www2.uploda.org)
>>349
2007の印刷プレビューについて、今日職場で試してみたら、2003以前とは
全然挙動が違うようですね。
2003以前ではプレビューを開くと必ず標準状態で開きましたが、
2007ではプレビュー画面を拡大状態で閉じると、次回表示したとき
拡大状態で開いてしまうようです。従って、お望みの動作は、残念ながら
SendKeysステートメントを使っても得られないようです。
372:デフォルトの名無しさん
08/07/12 00:32:36
おれ、こういうの気持ち悪いので
いったんテンポラリバリアントで取得してタイプネーム確認する 特に日付
373:364
08/07/12 07:59:20
>>371の動画はダウンローダー使ってるせいか見れなかったが、2007でもオプションで「ふりがなを使わない」にしたらやっと「数値に見えるものはすべて数値として並べ替えを行う」のウィンドウが出たよ。
aaa bbb
2008年6月3日 2
2008年6月30日 1
2008年6月28日 3
A列の書式が文字列のこのようなデータで記録マクロをとってみたが、下のような今まで全然見たこともないようなコードだった。
Sub Macro1()
' Macro1 Macro
Range("A1:B4").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A4"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:B4")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlStroke
.Apply
End With
End Sub
これはきちんと動くようだ。
374:364
08/07/12 08:00:09
続き
そこで2003用の下のようなコードを書いて走らせてみたが、全然期待したようには動かんね。
Sub foo()
With Range("A1").CurrentRegion
.Sort Key1:=.Range("A1"), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End With
End Sub
>>353は2003で作ったマクロを2007で走らせたんじゃないの？
375:364
08/07/12 08:09:14
上の「期待したようには動かん」は、期待したようには並ばないって意味だから。
376:ちはる
08/07/12 18:44:39
regexpも良いけど、like演算子も状況によっては悪くないのよ！！！！
ぷんぷん！！！！！
Sub aho()
'3の倍数と3の付く行はアホになります。
Dim i
For i = 1 To 1000
If i Like "*3*" Then
Cells(i, 1).Value = "アホ"
ElseIf i Mod 3 = 0 Then
Cells(i, 1).Value = "アホ"
End If
Next
End Sub
もうジメジメして嫌になっちゃうわ。
377:デフォルトの名無しさん
08/07/13 11:18:51
Shellの挙動がおかしくなった。最近Windows Updateしたあたりからだと思う。
例えば、
Shell "C:\Documents and Settings\Ore\デスクトップ\hoge.bat"
が、急に動かなくなった。
実行エラー5
プロシージャの呼び出し、または引数が不正です。だって。
7月のパッチをアンインストールしても直らない。
原因わかる人いますか？
378:377
08/07/13 11:21:12
環境は、Xp + Excel 2003 です。
379:デフォルトの名無しさん
08/07/13 14:19:42
＞Shell "C:\Documents and Settings\Ore\デスクトップ\hoge.bat"
＞が、急に動かなくなった。
うそこけ。動くわけなかろ
380:デフォルトの名無しさん
08/07/13 15:23:02
> 379
そこは、動かない訳を書かないと。
Vista + Excel 2007で、
Shell "C:\Users\Ore\Desktop\hoge.bat"
は、動くね。
381:デフォルトの名無しさん
08/07/13 16:42:04
WinXP(アップデート済) + Excel 2003 だと動かなかった。
C直下のものでも。exeファイルなら動くね。
382:デフォルトの名無しさん
08/07/13 23:36:02
377です。
381さん、ご協力ありがとう。
ちなみに、hoge.batの中身は、何か書いてないとダメなようです。
例えば、
dir
pause
のような感じです。念のため。
あと、別のPC Xp Sp2 + Excel 2003 では、動くのを確認しました。
やっぱり、今月のパッチかな？
383:381
08/07/13 23:43:52
ああ、確かに書けば動くね。
384:デフォルトの名無しさん
08/07/14 17:37:05
質問です。１～４の順にプログラムを進めたいと思っています。
１．メッセージボックス「セルを選んでください」。
２．メッセージボックスのOKボタンを押す。
３．シートに戻り、任意セルをクリックする。（セルが選ばれるまで先の処理に進まない）
４．選ばれたセルの情報を取得。
環境はExcel2000 WinXPです。
このような処理をしたいのですが、
どういう考え方で進めたらよいでしょうか？
よろしくお願いします。
385:デフォルトの名無しさん
08/07/14 17:53:59
Sub test()
MsgBox "セルを選んでください"
End Sub
386:デフォルトの名無しさん
08/07/14 18:01:01
>>384
結構厄介だと思うので、もっと楽にできるU/Iで作ってみてから挑戦するといいと思う。
当然ではあるが、>385では2番までしか実装されていない。
387:384
08/07/14 18:09:53
>>385
書き方が悪くてすいません。でもちょっとﾜﾛﾀ
メッセージボックスを出した時だけ、直後で選ぶセルの情報を取得したいんです。
>>386
厄介ですか。
Worksheet.SelectionChange やAPIでなんとか出来ないかなあと思っていたんですけど・・
388:って書くと、知らないのに書くなとか書かれるんだろうなぁw
08/07/14 18:11:43
＞Worksheet.SelectionChange やAPIでなんとか出来ないかなあと思っていたんですけど・・
それが判っていて、厄介じゃないと思うなら自分でやってみてくれ。
説明するのも厄介だぞ。
389:デフォルトの名無しさん
08/07/14 18:28:53
InputBoxメソッドで
Typeを8でどうさ？
390:384
08/07/14 19:06:52
>>388
いえいえ。どうもありがとうございます。
知っているから厄介だと分かるのだと思います。
別の考え方や参考になる意見を聞けたらいいなあと思ってました。
説明も厄介であれば仕方ないです。
>>389
なんだかよさそうですね。
タイプ８にこんな機能があったとは・・
とりあえずそれでやってみます。
>>386さんの言うとおりU/I使ってあんまり欲張らないで
ちょっとずつやっていくほうがいいみたいですね。
みなさんホントどうもです。聞いてよかったです。
391:デフォルトの名無しさん
08/07/14 19:13:25
>385もあながち悪くないと思った暑い夕暮れ
392:y
08/07/14 22:03:21
>>384
SelectionChangeイベントを使う場合の考え方：
パブリック変数を用意し、イベント許可フラグとして用いる。
イベント発生時、イベントプロシージャの冒頭で
イベント許可フラグが立っているか否かを判定し、
プロシージャの内容を実行するか、何もせずにプロシージャを抜けるか
分岐させるようにしておく。
こうしておけば、普段はSelectionChangeイベントが発生しても
何もせずに終わるが、「セルを選んでください」表示後にフラグを
立てれば、次のSelectionChangeイベントでプロシージャの内容が
実行される。
ここでセルの情報を取得し、最後にフラグを元に戻しておく。
---------
ここまで書いておいて何ですが、
明らかに>>389のやり方のほうが優れています。
393:デフォルトの名無しさん
08/07/15 00:05:38
１．メッセージボックス「セルを選びましたか？」
２．メッセージボックス「本当にいいんですか？」
３．メッセージボックス「いいんですね？」
１のところでなれたら使うボタンを追加しとくとか
394:デフォルトの名無しさん
08/07/15 00:29:36
質問があります。
複数のワークシートにまたがった複数範囲の標準偏差を計算するため、最初はUnionでそれぞれの範囲のRangeを纏めて最後にWorksheetFunction.StDevで
計算するコードを書いてみたのですが、エラーが発生しました。
どうもUnionでは異なるワークシートのRangeは纏められないようで、何か別のいい方法は無いかと探しています。
例えば以下の例は、Sheet1の各列の中から、数値が10個以上ある列だけをUnionで纏めて標準偏差を求めるものです。
Dim myRange As Range, myMultipleRange As Range
Set myMultipleRange = Nothing
For Each myRange In Worksheets("Sheet1").Columns
If WorksheetFunction.Count(myRange) >= 10
If myMultipleRange Is Nothing Then
Set myMultipleRange = myRange
Else
Set myMultipleRange = Union(myMultipleRange, myRange)
End If
End If
Next myRange
If Not myMultipleRange Is Nothing Then
MsgBox WorksheetFunction.StDev(myMultipleRange)
End If
このような標準偏差の計算を、1つのワークシートの列だけでなく、ワークブック内のワークシート全体から、
10個以上数値がある列を調べて標準偏差を計算するような方法を探しています。
ただしワークシートの個数は決まっていません。
どのような方法を使えば上手く計算することが出来るのでしょうか？
環境はWindows XP、Excel2003です。
よろしくお願いします。
395:デフォルトの名無しさん
08/07/15 08:48:16
>>394
作業シート作って(予め非表示で用意しておいても良いし、処理前に作成して処理後に削除しても良い)
そこに必要な値を書きだして計算する
またはワークシート関数を使わずに、普通に計算してもいいかもな
標準偏差関数のサンプルなんて腐るほどあるから、わざわざVBAから
ワークシート関数(WorksheetFunction)呼ばなくてもどうにでもなる
396:デフォルトの名無しさん
08/07/15 12:45:01
ここで解説してくれる優しい方々は、やっぱりエクセル1級持ってるのかですな？
397:デフォルトの名無しさん
08/07/15 12:56:23
そんなもの持ってるやついるの？
398:384
08/07/15 13:02:18
>>392
レスどうもです。
「セルを選んでください」の表示前にあったセル位置の情報しか取得出来なくて、
>３．シートに戻り、任意セルをクリックする。（セルが選ばれるまで先の処理に進まない）
この３番のユーザーの入力待ちがどうしても出来ません。
>>393
どうもです。
連続した作業になるので、メッセージボックスは１度だけにしたいんです。
399:デフォルトの名無しさん
08/07/15 15:42:46
VBAのソースコードをカラーで印刷する方法が判りません
印刷品質くらいしか選べなくてモノクロになっちゃいます
誰か教えてください・・・・
400:デフォルトの名無しさん
08/07/15 17:07:33
print screenで画像保存してそれをカラー印刷すれば良いじゃん
401:デフォルトの名無しさん
08/07/15 17:39:35
ＶＢＡ初心者の者ですが、
（A:B）列のセルがゼロか空白ならば、
（1:50）の行が削除される構文をどなたか教えて頂けますか。
If Then Else ステートメントを使ってやるのでしょうか。
お願い致します。
402:デフォルトの名無しさん
08/07/15 19:20:29
>>401
たとえばC51セルに =COUNTIF(A:B,"0")+COUNTIF(A:B,"") と式を打っておいて
Sub セルクリア()
If Range("C51") = 0 Then
Else
Range("1:1", "50:50").Clear
End If
End Sub
これで一応できるよ
403:デフォルトの名無しさん
08/07/15 19:25:06
なんか間違えた
無かったことにしてＷ
404:y
08/07/15 21:20:07
>>398
以下のコードを実装して、GetRangeを実行してみてください。
"セルを選んでください"が表示された直後に限り、
SelectionChangeイベントプロシージャの３行目以降が実行され、
さらにそこから"次の処理"プロシージャが呼ばれます。
■Module1
Public evFlag As Boolean
Public selectedRange As Range
Public Sub GetRange()
MsgBox "セルを選んでください"
evFlag = True
End Sub
Public Sub 次の処理()
MsgBox selectedRange.Address & "が選ばれました"
End Sub
■Sheet1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If evFlag = False Then Exit Sub
Set selectedRange = Target
evFlag = False
Call 次の処理
End Sub
405:デフォルトの名無しさん
08/07/15 21:25:23
>>398
メッセージの表示と入力を分ける必要はあるの？
これじゃダメなのか？
Sub セル選択()
Dim X As Range
On Error Resume Next
Set X = Application.InputBox(Prompt:="セルを選択して下さい", Title:="セルの選択", Type:=8)
On Error GoTo 0
If Not X Is Nothing Then
MsgBox "選択したセルは " & X.Address
Else
MsgBox "キャンセルしたよ"
End If
End Sub
406:デフォルトの名無しさん
08/07/15 21:28:08
>>399
そもそもVBEのカラー定義は貧弱だから
その辺が強力かつ表示通りにカラー印刷出来るテキストエディタ使った方がいい
407:y
08/07/15 21:31:21
>>398
念のためにまた書きますが、InputBoxメソッドを使った方が
はるかに簡単です。ほぼ同じことが以下の５行でできます。
しかも、他シートのRangeも取得可能です。
Public Sub GetRange2()
Dim selectedRange As Range
Set selectedRange = Application.InputBox("セルを選んでください", Type:=8)
MsgBox selectedRange.Address & "が選ばれました"
End Sub
>>404の利点は、セルが選ばれた瞬間に次の処理を発動させられる
点ぐらいです。（上の例はOKボタンを押す必要があります）
408:y
08/07/15 21:32:34
>>405
あ、かぶっちゃった。
409:デフォルトの名無しさん
08/07/15 21:34:37
Addressをデバッグ画面やmsgboxに表示させるときは
Address(0, 0)とした方が解りやすいぞ
習慣にしておこう
410:401
08/07/15 21:47:30
>402
>403
ドンマイ w
でも、ありがとうございます。
どなたか、わかる方いらっしゃいますか？
411:353
08/07/15 21:56:21
並び替えのことで質問したものですが
結局シリアル値での日付列を追加して無事処理できました。
いろいろとありがとうございますorz
412:y
08/07/15 22:51:16
>>410
■初心者向け
Public Sub Del1()
Dim tmp As Range
For Each tmp In Range("A:B")
If tmp.Value <> "" Then
If tmp.Value <> 0 Then
Exit Sub
End If
End If
Next
Range("1:50").Delete
End Sub
413:デフォルトの名無しさん
08/07/15 23:00:52
>>410
なんか質問がおかしいように思うよ。
>>412さんの構文の通り、セルに名前を付けてあるの？
名前を付けたセルの値が・・・って事なら構わないんだけど、
何か勘違いしてるかな。
A：B列の、どのセルを対象にしたいの？範囲は無し？
A列かB列の任意のセルに０か空欄があった場合、1行目から50行目までを削除するの？
414:デフォルトの名無しさん
08/07/15 23:35:23
VB6で質問があるのですが
セルの値が分数で記述されているのを
隣のシートに小数点表記で表示させる方法ってありますか？
隣のシートには表示出来るのですが、小数点にならなくて
415:y
08/07/15 23:59:33
>>410
■玄人向け（処理が速い）
Public Sub Del2()
Dim rg As Range, tmp As Range
With Range("A:B")
On Error GoTo err1
Set rg = .SpecialCells(xlCellTypeFormulas)
For Each tmp In rg
If tmp <> 0 Then Exit Sub
Next
err1:
On Error GoTo 0
On Error GoTo err2
Set rg = .SpecialCells(xlCellTypeConstants)
For Each tmp In rg
If tmp <> 0 Then Exit Sub
Next
err2:
Range("1:50").Delete
End With
End Sub
--------
>>413
たぶん>>410さんは、A:B列の「すべての」セルが0または""なら
1:50行を削除したい、という意図だろうと受け取っています。
ちなみに>>412では、名前は使っていないつもりですが、
どの部分のことですか？
416:y
08/07/16 00:12:24
>>414
小数点表記させたいセルの書式を"標準"または"数値"にしてください。
"数値"にした場合は、小数点以下何桁まで表示させるかを指定してください。
VBAで処理したい場合は、NumberFormatプロパティで操作できます。
それをキーワードに検索してみてください。
417:デフォルトの名無しさん
08/07/16 00:39:04
>>410
WorksheetFunctionを使った場合もどうぞ
Sub 削除()
With Application.WorksheetFunction
If (.CountIf(Range("A1:B50"), 0) <> 0) Or (.CountIf(Range("A1:B50"), "") <> 0) Then
Range("1:50").Delete
End If
End With
End Sub
だけど範囲がAB列全部てどうなのさｗｗ
いや、AB列全部に0もしくは空白が無いならいいけどさ
End(xlUp)とかを使ってデータの最終行を取得するとかをした方が
いいんじゃない？
418:デフォルトの名無しさん
08/07/16 00:57:59
もう１つFindを使った場合もどうぞ
Sub 削除2()
Dim X(1) As Variant
With Range("A1:B50")
Set X(0) = .Find(0)
Set X(1) = .Find("")
If Not (X(0) Is Nothing) Or Not (X(1) Is Nothing) Then
Range("1:50").Delete
End If
End With
End Sub
あと、テストするのに範囲をA1:B50に指定してるから
419:デフォルトの名無しさん
08/07/16 01:31:40
>>401
念のため補足しておくと、
>>412, >>415は、範囲内のすべてのセルの値が（空白または0）なら削除を行う処理
>>417-418は、範囲内に(空白または0）のセルが１個でも含まれていたら削除を行う処理
をアドバイスしている。
これは>>410の質問の仕方が曖昧だから。
420:y
08/07/16 02:43:27
>>394
StDev関数は、Rangeオブジェクトだけでなく、配列変数も引数として
受け取ることができます。次のコードを試してみてください。
Sub t()
Dim args As Variant
args = Array(1, 2, 3, 4, 5)
Debug.Print WorksheetFunction.StDev(args)
End Sub
つまり、各シートに散らばっている数値を、いったん
配列変数にまとめ、配列ごとStDev関数に渡すやり方が可能です。
（Unionでやろうとしたことと考え方は同じです）
421:デフォルトの名無しさん
08/07/16 08:27:19
確かに、慣れてない奴にウェブで調べさせた怪しげな標準偏差関数を自作させるよりは、
>420の方が余程まともだな。
422:410
08/07/16 13:36:35
>412,415,417,418
丁寧にありがとうございます。
すみません説明不足でした。
A列かB列の任意のセルに０か空欄があった場合、
【0か空欄がある行だけ抜き出して削除する】処理がしたいのです。
412,415,417,418を試しにやってみましたが、
1～50行全て消えてしまったので、これだとちょっとマズいんです。（笑）
誠にお手数かけますが、ご教授頂けますでしょうか
お願い致します。
423:デフォルトの名無しさん
08/07/16 14:04:58
>>422
少しは自分で考えよう
>>1★5
>>その他
踊らされてなんでもホイホイ答えずに
多少は質問者にも頭使わせよう
424:デフォルトの名無しさん
08/07/16 14:12:14
Findのヘルプを読んでみ
425:デフォルトの名無しさん
08/07/16 14:14:47
>>422
えーーーー
>ＶＢＡ初心者の者ですが、
>（A:B）列のセルがゼロか空白ならば、
>（1:50）の行が削除される構文をどなたか教えて頂けますか。
どう読み取っても50行目まで全部削除したい主旨じゃん・・
ちゃんと質問してくれよ
まあ答え解らないけどｗｗｗｗｗｗｗ
426:デフォルトの名無しさん
08/07/16 14:21:45
VBAの前に日本語だな
427:デフォルトの名無しさん
08/07/16 14:59:51
Sub sakujo()
Dim i
Dim j
Dim q
j = Cells(Rows.Count, 1).End(xlUp).Row
i = 1
Do Until q > j
If Cells(i, 1).Value = "" Or Cells(i, 1).Value = "0" Or Cells(i, 2).Value = "" Or Cells(i, 2).Value = "0" Then
Rows(i).Select
Selection.Delete Shift:=xlToLeft
q = q + 1
Else
q = q + 1
i = i + 1
End If
Loop
あえて解説はしない。
428:デフォルトの名無しさん
08/07/16 15:00:53
Sub hoge()
Dim i
Dim j
Dim q
j = Cells(Rows.Count, 1).End(xlUp).Row
i = 1
Do Until q > j
If Cells(i, 1).Value = "" Or Cells(i, 1).Value = "0" Or Cells(i, 2).Value = "" Or Cells(i, 2).Value = "0" Then
Rows(i).Delete
q = q + 1
Else
q = q + 1
i = i + 1
End If
Loop
End Sub
で・・・。何やっとんだワシ・・・。
429:デフォルトの名無しさん
08/07/16 16:16:15
>>428
うまくいってないよ
430:410
08/07/16 16:22:47
うわ・・・皆様本当にご迷惑おかけして
申し訳ないです。
＞427・428
ありがとうございます。
でも、やってみましたが、削除できてないっす。
難しいですね・・・
431:デフォルトの名無しさん
08/07/16 16:30:34
>>410
>412,415,417,418を試しにやってみましたが、
>1～50行全て消えてしまったので、これだとちょっとマズいんです。（笑）
当たり前でしょ、最初の質問がそういう条件だったんだから
取りあえず、Findを使った場合の処理
Sub 削除3a()
Call 削除3b(0)
Call 削除3b("")
End Sub
Sub 削除3b(FD As Variant)
Dim X As Variant, XAddr As Variant
Dim XS As String
With Range("A1:B50")
Do
Set X = .Find(What:=FD, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchByte:=False)
If Not X Is Nothing Then
Range(X.Row & ":" & X.Row).Delete
End If
Loop Until X Is Nothing
End With
End Sub
432:410
08/07/16 16:43:07
>431
ありがとうございます。
空白だけの行は削除されました！
でも0が入ったセルの行は削除されませんでした。
433:428
08/07/16 16:43:13
あれ？動かないですか？
A列とB列を判定してhitしたらその行消してるだけなんだけど。
434:デフォルトの名無しさん
08/07/16 16:45:07
教えてください。エクセル2007でV-nasCADの画像を貼り付けて印刷したら
印刷があれるのですが、どうしたらいいでしょうか？
2002の時はきれいにでていたのですが・
だれか教えてください。
435:431
08/07/16 16:52:21
>>410
指定範囲はあっている？
俺の書いたコードはA1:B50までの範囲しか対象にしていないよ
もしくは引数の指定が正しくできてる？
436:410
08/07/16 17:08:12
合ってますが、やはり0が入ったセルの行が削除されません。
Range(X.Row & ":" & X.Row).Delete
この部分に"０"を入れなければならないのでは？
437:デフォルトの名無しさん
08/07/16 17:14:08
じゃあ入れて試してみろやボケ
438:431
08/07/16 17:22:36
>>410
取りあえずコードの説明しとくよ
Sub 削除3a()
' 削除3bプロシージャの呼び出し
Call 削除3b(0) ' ←セルの値0を削除(引数として0をセット)
Call 削除3b("") ' ←空白セルを削除(引数として""(空白)をセット)
End Sub
Sub 削除3b(FD As Variant)
Dim X As Variant, XAddr As Variant
Dim XS As String
With Range("A1:B50") ' セル範囲"A1:B50"を指定
Do
' ↓引数FDに指定された値のあるセルを検索
' セルがあった場合はそのRangeオブジェクトを変数Xにセット
Set X = .Find(What:=FD, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchByte:=False)
' ↓Rangeオブジェクトの取得がされていない場合は処理をしない
If Not X Is Nothing Then
'指定されたセルの行番号のセルを削除
Range(X.Row & ":" & X.Row).Delete
End If
Loop Until X Is Nothing 'Rangeオブジェクトの取得がされていない場合はLoopを抜ける
End With
End Sub
439:デフォルトの名無しさん
08/07/16 17:33:03
Sub test()
Range(401).Delete
End Sub
440:デフォルトの名無しさん
08/07/16 18:47:10
>>401
今いちど、何をしたいのかを日本語で誰にでもわかるように書いてみれ。
441:デフォルトの名無しさん
08/07/16 18:54:42
>>428
"0"だと文字列。数値の0の判定を追加しないといかん。
442:デフォルトの名無しさん
08/07/16 19:54:03
Cells(a,b)が、とあるRange(Unionであっちこっちくっつけてる)の中に含まれているかどうかを返す関数ってあります？
443:デフォルトの名無しさん
08/07/16 20:58:59
>>442
なかったらこれ使えるかな？
Function included(ByVal maybeSubset As Range, ByVal maybeSuperset As Range) As Boolean
included = maybeSubset.Count = Application.Intersect(maybeSubset, maybeSuperset).Count
End Function
444:y
08/07/16 21:04:40
>>422
【0か空欄がある行だけ抜き出して削除する】処理、ということであれば、
AutoFilterが便利です。
Sub Del3()
Range("1:1").Insert
With Range("A1:B51")
.AutoFilter field:=1, Criteria1:="=", Operator:=xlOr, Criteria2:="0"
Range("A2:B51").SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter field:=2, Criteria1:="=", Operator:=xlOr, Criteria2:="0"
Range("A2:B51").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
Range("1:1").Delete
End Sub
0または空白の行だけを表示させ、表示されている行だけを削除する、
という処理を、Ａ列とＢ列に順番に行っています。
１行目に新しい行を挿入し、最後に消しているのは、AutoFilterを使うために
見出し行が必要だからです。
>>442
Intersect関数を使ってみてください。
複数のセル範囲の共有範囲を返す関数です。
共有範囲が返らなかったら、「含まれていない」と判断できます。
445:y
08/07/16 21:10:09
あ、既に>>443で答えが出てましたね。
446:442
08/07/16 21:13:48
>>443,444
ありがとうございます、無事にできました。
447:デフォルトの名無しさん
08/07/16 21:43:24
うぜーよ
448:デフォルトの名無しさん
08/07/17 00:25:04
何がだ
449:394
08/07/17 02:38:11
レス頂きありがとうございます。
>>395
StDev無しで普通に計算する方法も考えましたが、もっと効率的な方法はないものかと思い質問させて頂きました。
>>420
配列が使えるというのは初めて知りました。
その方法で試してみたいと思います。
450:デフォルトの名無しさん
08/07/17 10:23:40
>>398
亀だがこんなのもできる一応
Public waiting_selection_change As Byte
Function user_selected_range() As Range
waiting_selection_change = 1
MsgBox "セルを選択して下さい"
While waiting_selection_change = 1
DoEvents
Wend
Set user_selected_range = Selection
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If waiting_selection_change = 1 Then waiting_selection_change = 0
End Sub
451:デフォルトの名無しさん
08/07/17 11:45:20
生徒の試験の点数を降順（100、97、90・・・）に並べてある
A列の隣（B列）に1、2、3と順位をつけて、尚且つ、
A列の空白になっているセルには順位をつけないようにするには、
どうしたらいいでしょうか。ご教授お願い致します。
452:451
08/07/17 12:07:20
すみません
>A列の空白になっているセルには順位をつけないようにする
→B列のセルを空白のままにするには
でお願い致します。
453:デフォルトの名無しさん
08/07/17 12:56:37
もう1つ列を作って呼び出さないようにする。
454:デフォルトの名無しさん
08/07/17 14:11:48
Sub junni()
Dim i
Dim j
j = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" Then
Cells(i, 2) = j
j = j + 1
End If
Next i
End Sub
455:デフォルトの名無しさん
08/07/17 17:38:27
検索についてお聞きしたいのですが、
シート全体を対象に検索する場合はCellsで可能なんですが、
特定のセル範囲を検索する場合ってどうやればよいでしょうか？
例えばA1:C10の範囲内のセルだけ"パソコン"という文字列を検索するにはどうすればよいでしょうか。
456:デフォルトの名無しさん
08/07/17 19:00:44
cellsは全セル対象でおｋ。
指定範囲は、
Range("A1:C10").Find(What:="パソコン").Activate
こんな感じ。
マッチした後の処理が書いてないから、マッチしたセルをactive。
457:デフォルトの名無しさん
08/07/17 19:27:38
>>456
なるほど。
What;= が必用だったのか・・
ありがとう。
458:デフォルトの名無しさん
08/07/17 23:24:35
>>457
セミコロン(;)じゃなくて、コロン(:)だよ
あと、「What:=」見たいに使うのを名前付き引数といって
指定()内に記述する順番がばらばらでも大丈夫な引数指定の事
省略した場合はFindの場合(What:=, LookIn:=, LookAt:= …)の順に引数を指定したとみなされる
459:デフォルトの名無しさん
08/07/18 00:30:09
かなりなスレ違いお許し下さい
過去の株価をVBAで検証したいのですがスキル不足です。
検証の内容は、ごく単純なもので恐らく数十分ほどで組めるのではないかと思われます。
（検証条件＝システムは、恥ずかしい位、幼稚なものです。期待なさらないで下さい。
特別な秘密など有したものではありません・・）
どなたか有償でVBAを組んで頂けませんでしょうか。
報酬は、先払い3000円・完成後3000円の合計6000円を考えています。
指定口座に迅速にお振込み致します。
二か月分の株価を載せたエクセルデータと
検証条件を説明したテキストファイルを作りました。
これをメールでお送りします。
請け負って頂けるか否か、報酬は上記金額で良いか
とりあえずお見積もりして頂ける方メール下さい。
どうぞ宜しくお願い致します。
460:デフォルトの名無しさん
08/07/18 01:04:58
>>459
口座無いからタダでやりたい
461:459
08/07/18 01:10:20
>>460
書留ででもお送りしますよ^^
そうゆうのもお嫌でしたら無償でもいいですがｗ
よかったらメール下さい
462:デフォルトの名無しさん
08/07/18 01:13:14
商品コード 数量 商品名 単価 合計
このような列の集まりで、
商品行が増えていくシートで、発注表を作っています。
数量は普段空白で、注文するときに数量を入れて、
数量がない行は削除(上にシフト)して、プリントアウトしています。
最終的に「数量が空白」を全部消してからプリントになります。
で、これをマクロにすると
数量(一番初めの商品は3行目なのでB3セル)が書いていなければ行削除、
数量が書いてあった場合は何もせずに下の行へ。
で、最後に識別文字の「★」であれば、終了ということをやりたいです。
マクロで観てみると
Rows("3:3").Select
Selection.Delete Shift:=xlUp
このように出ました。
3行目を削除して上にシフトしています。
463:462
08/07/18 01:14:20
if(現在のセルが★が入っていなければ)
{
if(現在のセルが空でなければ)
{
その行を選択して
削除(上にシフト)
}else
セルを下に移動
}
プリントアウト
こんな感じで脳内ではできたのですが、コード化は無理ぽですorz
どう書けばいいでしょうか？
464:459
08/07/18 01:23:30
>>461
メール送りました。
とりあえず内容見て考えさせてください。
465:デフォルトの名無しさん
08/07/18 01:26:36
>>462
このスレの410宛てのレスを読め
大体似たような処理で出来る
466:デフォルトの名無しさん
08/07/18 01:33:50
>>463
Sub hoge()
Dim startCell As Range
Set startCell = [C4] ' 商品コードの値が始まるセル
Dim i%
While startCell.Offset(i) <> "★"
With startCell.Offset(i)
If .Offset(, 1) = "" Then
.EntireRow.Delete
Else
i = i + 1
End If
End With
Wend
End Sub
467:459
08/07/18 01:36:30
>>464
ありがとうございました
本メールから今、送信しました
ご検討宜しくお願い致します
468:459
08/07/18 01:37:56
>>467
了解です^o^
今みてます
469:デフォルトの名無しさん
08/07/18 09:05:13
香ばしいこと行われているようですねw
470:デフォルトの名無しさん
08/07/18 16:09:08
worksheetsを追加した際に
そのシートにWorksheet_Activate()
も追加したいのですが、どのように指定すればできるのでしょうか？
471:デフォルトの名無しさん
08/07/18 17:05:33
普通にやればいいじゃん
472:470
08/07/18 17:21:42
今
worksheets.add after:=activesheet
で新しいシートを追加するマクロがあるのですが、worksheets.????みたいな感じでなにかできる方法があるのでしょうか？
マクロで追加したシートにマクロを記述する関数などありましたら教えていただきたいです。
473:デフォルトの名無しさん
08/07/18 17:33:49
だから、「VBAを使ってVBAコードを記述する」方法を普通にやればいいだけだってば
検索すればいくらでも情報は出てくる
474:470
08/07/18 18:28:56
ありがとうございます。
検索したら
With ThisWorkbook.VBProject.VBComponents.Item("Sheet2").CodeModule
.InsertLines 1, "書きたいコード"
End With
でできるみたいですね。
ありがとうございます。
475:デフォルトの名無しさん
08/07/18 20:05:09
本当にやりたい目的と、今とろうとしている手段が乖離している気がするが、まあいいや
476:デフォルトの名無しさん
08/07/18 20:08:16
>>472
hoge = activesheet.index
worksheets.add after:=activesheet
sheets(hoge+1).activate
じゃダメ？
477:デフォルトの名無しさん
08/07/18 20:21:01
>>476
アクティベイトしたいんじゃなくて、ハンドラを入れたいんでしょ。
478:デフォルトの名無しさん
08/07/18 20:54:15
>>470
普通に標準モジュールにコードを書けばいいんじゃねーの？
イベントハンドラが使うならクラスモジュールを使えばいいし
479:デフォルトの名無しさん
08/07/18 23:51:10
ExcelVBAを扱うExcelVBAコードはないのか！
480:463
08/07/19 02:28:06
>>466
| Dim startCell As Range
| Set startCell = [C4] ' 商品コードの値が始まるセル
発注書：日付
商品コード 数量 商品名 単価 合計
001 1 hoge 3,000 3,000
002 hoge 1,500
003 1 hoge 2,000 2,000
004 hoge 4,000
★
こんな感じなので、商品コードはA3になります。
ここをA3に変更して実行したところループになりました。
今回は★は[B7]ですね。
| Dim i%
ここの「％」の意味がわかりませんでした。
先述のAs Rangeはオブジェクトということはわかりました。
| While startCell.Offset(i) <> "★"
[A3]のi行下が★でなければということで、★の位置をA7にしたらループが止まりました。
| With startCell.Offset(i)
| If .Offset(, 1) = "" Then
i行オフセットした右隣が""の場合
| .EntireRow.Delete
その行を削除
| Wend
While ... Wendという使い方、御教示ありがとうございます。
とても勉強になりました。
481:463
08/07/19 02:33:17
すいません、どうしても気になることが・・
| Dim i%
| While startCell.Offset(i) <> "★"
| With startCell.Offset(i)
特に i = 1
と変数に入れていないのですが、なぜiが1を入れたような挙動を
取るのでしょうか？
i% に何かしらそういう意味があるのでしょうか？
482:463
08/07/19 02:47:44
>>466
startCell の数量[B3]に数値があれば、完璧に動作をするのですが、
この数量[B3]に数値がなければ、
・startCell行の数量が空(★ではない)ので、行を削除
してWendからwhile行を実行しようとした瞬間に
実行時エラー:424
オブジェクトが必要です
と出てストップします。
While startCell.Offset(i) <> "★"
ここで止まってしまうのですが、1回目は行削除できるのに、
なぜか2回目の処理で止まってしまうのが、よくわかりません・・・。
483:デフォルトの名無しさん
08/07/19 03:16:19
>>463
>Dim i% ← これは、変数iを整数型で宣言している
％が整数型の型宣言文字
>特に i = 1
>と変数に入れていないのですが、なぜiが1を入れたような挙動を
>取るのでしょうか？
これについては
↓のIfで空白なら行を削除、空白で無いなら i に＋１している
If .Offset(, 1) = "" Then
.EntireRow.Delete
Else
i = i + 1
End If
>実行時エラー:424
>オブジェクトが必要です
>と出てストップします。
これについては
Set startCell = [C4] でstartCellにRangeオブジェクトをセットしているのに
そのセルを削除してしまったので、セットしたRangeオブジェクトがねーよｗｗとExcelが言ってるだけ
基本的に削除するセルを基準にしちゃだめだろ
484:デフォルトの名無しさん
08/07/19 03:55:10
>>463
あとWhile ... Wendという使い方もあるけど
普通はDo～Loopを使うよ
Do～Loopを使う場合はこんな感じ
Sub ★まで削除()
Dim TCell As Range
Dim iX As Integer
Set TCell = Range("B2") ' ★のある列のタイトル部分(商品コードとか数量と書いてあるセル)
iX = 1
Do Until TCell.Offset(iX, 0).Value = "★"
With TCell.Offset(iX, 0)
If .Value = "" Then
.EntireRow.Delete xlShiftUp
Else
iX = iX + 1
End If
End With
Loop
End Sub
485:デフォルトの名無しさん
08/07/19 04:05:48
Do...LoopがあるからWhile ... Wendなんていらね、使った事もない。
While ... Wendなんて使うとコードが汚れるとさえ思える。
486:デフォルトの名無しさん
08/07/19 09:42:09
へー
487:y
08/07/19 10:27:10
>>484
元の質問とは関係ないですが、コードがインデント付きで表示されて
いるのでびっくりしました。しかも、VBAEditorが全角スペースを自動的に
半角スペースに変換してくれることを初めて知りました。
（>>484をそのまま貼り付けるとエラーになると思い込んでた）
これはVBAEditorの仕様でしょうか？
それとも「全角空白は半角に変換する」みたいなオプションが
どこかにあるのですか？