Excel VBA 質問スレ Part32
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
2013/10/07(月) 22:19:55.86★1 質問テンプレ(雛形)は用意しませんが、OSとExcelのバージョンは必ず書きましょう。
★2 ExcelのVBA以外の部分に関する質問はNGです。
但し、VBA無しでも出来ることだが、あえてVBAでやりたいって物に関してはOK。
★3 ExcelのVBE(Visual Basic Editor)を使うとしても、VBAの分野以外に関してはスレ違いです。
VBAとは、『Visual Basic for Applications』の略で
Application
├Workbooks
|└Workbook
| ├Worksheets
| |└Worksheet
というApplication以下のオブジェクトを、VB言語で操作するものを指します。
例えExcel付属のVBE(Visual Basic Editor)を利用しようとも、このApplication以下のブックやシート、
セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので、ここでは聞かないでください。
★4 とりあえず、Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。
★5 レベルはどうあれ、ここはプログラマ用の板スレです。プログラマとは、自分でプログラムを組み、
コードを書く人の事なので、自分でやるきは全く無く、丸投げしようって人はお断りです。
ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
★6 わからなければとりあえず「マクロの記録」(Alt, T, M, R)
前スレ:Excel VBA 質問スレ Part31
http://toro.2ch.net/test/read.cgi/tech/1376371376/
関連スレ:VBAなんでも質問スレ
http://toro.2ch.net/test/read.cgi/tech/1342087380/
0320318
2014/01/04(土) 09:54:05.01教えてくれないんですよ。
空ファイルをつくり拡張子をudlにしてそれを開くと道は開けるみたいな情報を得ましたがそこから先がわかりません。
イントラWebのFormを使ってアクセスしてるDBをVBAで自由に扱うには
どうすればいいですか?
DBのサーバ名を調べればいいんですよね?
それはHTMLのソースのどこかに書いてるんでしょうか?
0322318
2014/01/04(土) 11:00:04.71でもやりたいんですよ。
0323デフォルトの名無しさん
2014/01/04(土) 11:26:36.290324デフォルトの名無しさん
2014/01/04(土) 11:32:17.50DB ? サーバ ? クライアント
こういうふうになっていて
HTMLはサーバとクライアント間のやりとりに使われるものだから
DBのアドレスはHTMLのソースに書かれてないはずよ。
DBに接続するときふつうはDBのアドレスとユーザIDとパスワードが必要。
システム管理者からそれを教えてもらえないのであれば、
システム管理者と一緒にお酒飲みにいって酔わせて聞き出したり、
ノーパンしゃぶしゃぶに接待して聞き出すしか手はないと思うよ。
ノーパンしゃぶしゃぶがおすすめかな。しゃぶしゃぶできるし。
0325318
2014/01/04(土) 11:55:05.29なにが危険ですか?
データを更新しないかぎり大丈夫じゃんと思いますが。
>>324
IDパスワードはそのサイトのログインと同じもので良さそうな気がしてますが。
DBのアドレスかホスト名がHTMLに書かれてなければどこに書かれているの?
黒画面からnetstatみたいなコマンドはダメですか?
しゃぶしゃぶのことは分からんがポン酢だれじゃなきゃイヤだ。ゴマだれは不味い。
0326デフォルトの名無しさん
2014/01/04(土) 12:02:56.72数値らしきものが入っているセルについての質問です。
これはIsnumeric関数ではTrueを返すのはやめてほしいです。
これは文字列なんだから。
このような処理をする必要に駆られたとき
みんなはどうしてますか?
0327326
2014/01/04(土) 12:05:05.32こんな機能は即廃止してほしい。
この機能を切る方法はない?
プログラミングでもvariant型みたいな中途半端な道具は即刻廃止してほしい。
数値らしきものも+や*で計算したら数値扱い、&や文字列とくっつける演算をしたら文字列扱いという機能もうざすぎる。
この機能も切る方法はない?
0328デフォルトの名無しさん
2014/01/04(土) 12:07:02.81文字列と判断させる方法はない?
これもIsnumeric関数ではTrueと返しくさる。
0331デフォルトの名無しさん
2014/01/04(土) 12:23:36.78まともな管理者ならDBの接続IDとサイトのログインIDを同じにするとは思えない。
>>325にDBの情報を教えなかったのならまともな管理者。ゆえにDBのIDとログインのIDは違うもの。
DBの接続に必要な情報はDBにアクセスするサーバ側のプログラムのソースコードに書かれているか、
またはサーバ側のプログラムから参照されてるはずよ。netstatで見えるのはサーバの状態。
DB <-> サーバ <-> クライアント
という形になるんでクライアントがやりとりするのはサーバ。
サーバの向こう側にあるDBはクライアントから見えない。
0332デフォルトの名無しさん
2014/01/04(土) 12:42:08.74年末のバッチ処理が管理外のセッションのロックでこけて大混乱になってクビにされた!!!
おまえらのせいだ!!! ぜったいにゆるさんぞ!!!!
0333デフォルトの名無しさん
2014/01/04(土) 15:04:35.092015年の1月まで、一年間何もしなかった怠慢の結果だろ、クビになって当然。
未来が予想できるなら、対策しろ。
0334デフォルトの名無しさん
2014/01/04(土) 15:10:01.15「こけて」ってなに?
こういうまぎらわしい言葉の使い方はやめなさい。
[正しい使い方] (マラソンで)コケちゃいました。
0335デフォルトの名無しさん
2014/01/04(土) 15:29:14.77別に紛らわしくはないよね。揚げ足どりやめようよ。
0336デフォルトの名無しさん
2014/01/04(土) 15:53:45.27これが正しい用法だ。
http://www.youtube.com/watch?v=z8PbFRV287c
0337デフォルトの名無しさん
2014/01/04(土) 16:12:51.030338デフォルトの名無しさん
2014/01/04(土) 16:53:32.530339デフォルトの名無しさん
2014/01/04(土) 20:24:00.49次の関数を作ってくれ。
・引数は3つ。すべてInteger。仮にx, y, zとする。
・戻り値は配列形式で、整数xから整数yまでの範囲の中の重複しないz個の乱数。
例えばx=10, y=20, z=5なら、返り値は11, 12, 16, 18, 20みたいな感じ。
不可能なx, y, zの組み合わせ(例えばx=10, y=12, z=5)なら返り値なしでMsgBox "アホ"でいい。
さあ時間だ。答えを聞こうる
0340デフォルトの名無しさん
2014/01/04(土) 20:26:43.66アホ
学校の宿題は自分でやれ
0341339
2014/01/04(土) 20:29:53.75アホ。
宿題ではない。
このスレの住人のスキルをためしているんだ。
2分でレスがきたから2分で回答できたのかなと思ったら
アホとはなんだアホ。
0342デフォルトの名無しさん
2014/01/05(日) 01:33:49.04へい
friendpaste.com/ZYnwC5HKmO7uUdrIygMUr
0343デフォルトの名無しさん
2014/01/05(日) 03:37:54.01へい
>>1★1〜1★4
0344デフォルトの名無しさん
2014/01/05(日) 09:56:45.34仕様がアホ
0345デフォルトの名無しさん
2014/01/05(日) 12:20:51.84z個の乱数をx〜yの範囲で発生させ
それらが同一のものが1つもないかどうか調べて (←このアルゴリズムも簡単ではないが)
なければそれで終了、あればまた最初からやりなおし、
という方法はどう?
もっといい方法ある?
0346デフォルトの名無しさん
2014/01/05(日) 12:23:53.870347デフォルトの名無しさん
2014/01/05(日) 13:07:00.55Excelと何の関係がある質問なのかが俺にはわからん
0348デフォルトの名無しさん
2014/01/05(日) 13:16:30.450349デフォルトの名無しさん
2014/01/05(日) 20:43:08.46コードからFormのコントロールを貼り付けたときに
そのコントロールに対してのイベントプロシージャってどこに書けばいいのですか?
例えばコマンドボタンをx個(コードの時点では数は不特定)貼り付けたとき各ボタンを押したときの処理を書きたいとき。
0350デフォルトの名無しさん
2014/01/05(日) 23:16:12.60別に決まりはないんじゃないかな
0351349
2014/01/05(日) 23:23:09.77そのオブジェクト名もまだ決まってないのよ
0352デフォルトの名無しさん
2014/01/06(月) 00:31:50.250353デフォルトの名無しさん
2014/01/06(月) 09:21:30.74クラスモジュールに書けばいいんじゃね?
0354349
2014/01/06(月) 10:49:35.66具体的にはどうすればいいですか?
クラスというのは設計図と聞くけど
それをつかってコントロールを生成するには
どんな呪文をとなえればいいのでしょう?
0355349
2014/01/06(月) 10:50:52.64どんな書き方をすればいいですか?
単にコントロールボタンを置いてそれに1-2行の処理コードを書くだけのシンプルなものでいいのですが。
0356デフォルトの名無しさん
2014/01/06(月) 11:12:25.62同じシートを10枚くらいとなりにコピーしてるだけなのですが。
0357デフォルトの名無しさん
2014/01/06(月) 12:00:36.770358356
2014/01/06(月) 12:12:32.18Sub セシウムさん()
Dim i as Integer
For i=1 to 10
Sheets("ひみつのあっこちゃん.xls").Copy After:=Sheets(Sheets.Count)
Next i
End Sub
0359デフォルトの名無しさん
2014/01/06(月) 12:45:47.60そんなのはここで質問するよりググればいいよ
0360デフォルトの名無しさん
2014/01/06(月) 23:26:08.03ワークシート名がファイル名と一緒なん?
まぁほんとにそのコードで動いてるんなら、単にコピー元のシートが大きいだけじゃね。
どうしようもないなら描画抑制すれば?
0361デフォルトの名無しさん
2014/01/07(火) 02:22:41.82セルに外部参照とかあって再計算が遅いだけじゃないのか
それか単純に使ってるマシンが貧弱か
0362デフォルトの名無しさん
2014/01/07(火) 10:00:26.33インデックスが有効範囲にありませんとエラーになります。
メソッド名も間違ってないし、メソッドはPublicにしてるし、他に何の原因が考えられますか?
0363デフォルトの名無しさん
2014/01/07(火) 12:10:13.78シート名が間違ってる
ワークシートじゃなかった場合、コレクションを片っ端からチェック
0364デフォルトの名無しさん
2014/01/07(火) 12:59:21.42そういう時は現象が発生する最低限のコードで試すんだ
本当に呼んでるメソッドに問題がないなら、引数に問題があるんじゃね
0365デフォルトの名無しさん
2014/01/07(火) 13:22:03.22エラーメッセージは読まない主義?
0366デフォルトの名無しさん
2014/01/07(火) 14:32:56.47今までに見たエラーは忘れる主義?
覚えてたら「インデックスが有効範囲にありません」は正式なエラーメッセージだってわかるじゃん?
http://www.07ch.net/up2/src/lena10519.png
0367デフォルトの名無しさん
2014/01/07(火) 14:59:55.51重複しない整数の乱数をx〜yの範囲でz個出力するにはどうすればいいですか?
0368デフォルトの名無しさん
2014/01/07(火) 15:03:59.54Variantで
Dim a as Variant
Dim a() as Variant
に違うはありますか?
Dim b() as String
の場合、b(1)=・・・、b(2)=・・・と代入しようとするとエラーがでてエラいこっちゃとなります(いま話題の「インデックスが有効範囲にありません」のエラー)。
それなら動的配列の意味ないじゃん?と思いますが。
0369デフォルトの名無しさん
2014/01/07(火) 15:10:39.77これはどのVBAの本を読んでも載っていないんですよね。
他の言語では使われてるらしいけど(ちなみにわたしは他言語は全く知りません)。
0370デフォルトの名無しさん
2014/01/07(火) 16:07:00.18年末〜年始の授業が乱数、教師はここを含めて見てる
ここで教えてもらったの提出しても点数貰えないよ
2012年にも、ネットで得たのを、そのまま提出した生徒がいた
0371367
2014/01/07(火) 16:09:30.50そんなこと言わず早く教えてくれよ。
あしたがしめきりなんだよ!
先生はこんなところ見るような人じゃないんで大丈夫だよ。
0372デフォルトの名無しさん
2014/01/07(火) 16:29:51.49>>369
さすがにggrks
0373368
2014/01/07(火) 18:04:42.24そんなのイヤなこった、パンナコッタ。
0374デフォルトの名無しさん
2014/01/07(火) 18:11:17.83Dim ran() As Integer: Dim x As Integer: Dim y As Integer: Dim z As Integer
Dim n1 As Integer: Dim n2 As Integer: Dim m As Integer: Dim ck As Boolean
x = InputBox("x"): y = InputBox("y"): z = InputBox("z")
ReDim ran(y - x)
For n1 = 0 To z - 1
ck = False
m = Int(Rnd * (y - x + 1))
For n2 = m To y - x
If ran(n2) = 0 Then
ran(n2) = 1
ck = True
Exit For
End If
Next n2
If ck = False Then
For n2 = 0 To m - 1
If ran(n2) = 0 Then
ran(n2) = 1
ck = True
Exit For
End If
Next n2
End If
Next n1
Dim str As String
For n1 = 0 To y - x
If ran(n1) = 1 Then
str = str + CStr(n1 + x) + ","
End If
Next
MsgBox str
0375367
2014/01/07(火) 18:22:42.41ありがとう。
ちょっと動作確認してみます。
あとx〜yの範囲よりzの個数が大きいときに「アホ」と出ずにすべての範囲の数字が表示されるというバグがあるぞ。
0376デフォルトの名無しさん
2014/01/07(火) 18:47:58.46この手法での回答は自分で考えてないと、先公にチクッとく
0377デフォルトの名無しさん
2014/01/07(火) 19:00:29.61簡単なことは自分でやってくれ。
あと19行目のck = Trueは余分だった、消してくれ。
0378デフォルトの名無しさん
2014/01/07(火) 19:10:24.76出番だぞ
0379デフォルトの名無しさん
2014/01/07(火) 20:30:12.180380デフォルトの名無しさん
2014/01/07(火) 20:59:23.370381デフォルトの名無しさん
2014/01/07(火) 21:24:14.13泣き寝入りだろうな
0382デフォルトの名無しさん
2014/01/07(火) 22:20:52.87誰の何の先生なんだろう・・・かかりつけのお医者さんとか?おだいじにどうぞ
0383デフォルトの名無しさん
2014/01/08(水) 20:42:14.12標準モジュールの宣言部分の変数を扱いときは、Me.iTestValueみたいに"Me"は使えないのはなぜですか?
0384デフォルトの名無しさん
2014/01/08(水) 20:50:31.13そのMeは何を指してるのか考えてみれば?
とは言えVBAではインスタンスって概念が解りにくいからなぁ
標準モジュールはインスタンス作成されないからインスタンスをあらわすMeは使えません
0385デフォルトの名無しさん
2014/01/08(水) 21:03:54.67なるほど、さっぱりわかりませんがありがとうございます。
インスタンスならMeが使えるということですか。
0386デフォルトの名無しさん
2014/01/08(水) 21:05:24.61Public iTest as Integer
とし、貼り付けたボタン押せばiTest=iTest+1としてるんですが
標準モジュールで書くiTestは別人となってるようなんです。
これはどういうことでしょうか?
0387デフォルトの名無しさん
2014/01/08(水) 21:15:33.34フォームと標準モジュールでそれぞれiTestを宣言したのか?
そりゃ宣言が二つあるんだからiTestは二つ(以上)あるだろ
0388デフォルトの名無しさん
2014/01/08(水) 21:17:12.77>標準モジュールで書くiTestは別人となってるようなんです。
これはどういうことでしょうか?
つまり、もっと詳しく。標準でDIMとかした人?
あと、ここは学校じゃないので、、、
たぶん今の君の疑問の殆どはインターネットを探せばいくらでも出てくると思うよ
0389386
2014/01/08(水) 21:25:42.19いえ、フォームモジュールだけでiTestを宣言したんですよ
0390デフォルトの名無しさん
2014/01/08(水) 21:26:13.560391デフォルトの名無しさん
2014/01/08(水) 21:26:43.800392デフォルトの名無しさん
2014/01/08(水) 21:29:48.75Option Explicitつけてるか?
つけないで標準モジュールで使ったiTestは、標準モジュールで宣言が省略されてるとみなされてる
0393デフォルトの名無しさん
2014/01/08(水) 21:32:05.400394デフォルトの名無しさん
2014/01/08(水) 21:33:40.51標準モジュールで使えないとおかしくないか?
0395デフォルトの名無しさん
2014/01/08(水) 21:57:07.64違うところで宣言されてる変数を使いたければ、どこの変数かも指定しないとダメ
標準モジュールで宣言されてるなら標準モジュールの名前
クラスやユーザフォームで宣言されてる変数なら、そのインスタンスへの参照
を変数の前に指定して.でつなぐ
インスタンスを意識しなくて標準モジュールで使うなら、たとえば
UserForm1.iTest = 0
みたいな感じ
0396デフォルトの名無しさん
2014/01/08(水) 22:21:49.80そうだったのですか!
ご丁寧な解説ありがとうございます。
各モジュールの中ではいいけどそうでなければ[モジュル名]と.でつなげばいいんですね。
ところで「インスタンスを意識しなくて標準モジュールで使う」の意味がさっぱりわからないけど
なんかこの概念はすごく重要そうな気がするんですが
どういうことなのでしょうか?
VBAでは完全にはオブジェクト指向でないから標準モジュールはもともとインスタンス(??)という意味でしょうか?
0397デフォルトの名無しさん
2014/01/09(木) 00:51:11.25標準モジュールはもともとインスタンス作成したりしない
インスタンスなしで実行できる
クラスは、使うためには自分でインスタンスを作成してそのインスタンスを使う
ユーザフォームはクラスの一種なんで、使うにはホントは自分でインスタンス作成しないとダメなんだが
いろんなしがらみによって自分で作成なくてもインスタンス(とそれへの参照)が用意されている
それが>>395のUserForm1見たいにユーザフォーム名で使えるやつ
これは実はUserForm1というフォーム(の定義、型)じゃなくて、暗黙のうちに作成されたUserForm1のインスタンスへの参照
標準モジュールはもともとインスタンス じゃなくて フォームは勝手にインスタンスが作られてる
が正解
0398396
2014/01/09(木) 01:16:40.59なるほどぉ。
・・・というのはウソで、さっぱり分かりませんわ。
勉強して出直してきます。
0399デフォルトの名無しさん
2014/01/10(金) 19:26:18.39たぶんほとんどの人が知らないでしょう。
普通の関数(VBAじゃない)では、大文字と小文字は区別しないのに
VBAの比較では、大文字と小文字は区別するんですよ。
これ、それぞれで別の方法で比較するにはどうすればいいですか?
0400399
2014/01/10(金) 19:29:17.35VBAで大文字と小文字を区別しない方法って普通はどうしてますか?ということです。
例えば、
If a = a.Offset(0, 1) Then
a.Offset(0, 2) = "O"
Else
a.Offset(0, 2) = "X"
End If
とすると、"ABC"と"aBc"を比べたとき別モノと判断するんですよ。
0401399
2014/01/10(金) 19:31:27.34・関数で全部大文字にしてから比較
という方法だけど、もっと手軽な方法があるかと思って。
0402デフォルトの名無しさん
2014/01/10(金) 19:42:47.150403399
2014/01/10(金) 19:47:23.740404デフォルトの名無しさん
2014/01/10(金) 19:56:04.73VBEで適当なところにoptionと入力してカーソル合わせてF1キー押して調べて教えて
0405デフォルトの名無しさん
2014/01/10(金) 20:19:55.330406デフォルトの名無しさん
2014/01/10(金) 20:46:23.15> たぶんほとんどの人が知らないでしょう。
いや、使ってみればわかるんだから、普通知ってるって
> 普通の関数(VBAじゃない)では、大文字と小文字は区別しないのに
まず「ワークシート関数」という名称を覚えましょう
そして大小文字を区別しないのは、ワークシート関数の仕様ではなく、ワークシート上での比較演算の仕様ね
つまり「=("ABC"="abc")」が、Trueを返すかFalseを返すかという問題
> これ、それぞれで別の方法で比較するにはどうすればいいですか?
ワークシート上の数式で大小文字を区別するならEXACT関数
VBAで大小文字を区別しないならOption Compare TextやStrCompや正規表現のIgnoreCase
0407デフォルトの名無しさん
2014/01/10(金) 20:53:34.650408デフォルトの名無しさん
2014/01/10(金) 21:29:56.07とか、ネタにマジレスするフリしてみるテスト
0409407
2014/01/10(金) 21:43:59.760410デフォルトの名無しさん
2014/01/10(金) 21:49:15.86女性においては塗れ具合
これが正規表現です
勘違いしがちですが露出は関係ありません
0411デフォルトの名無しさん
2014/01/10(金) 21:53:33.60携帯で見てて、3段改行の下に書かれてることに気付いてないとか?
0412デフォルトの名無しさん
2014/01/10(金) 22:00:57.260413デフォルトの名無しさん
2014/01/10(金) 23:48:36.66・Sleep関数
・DoEvents
の違いはなんでしょう?
OSに制御を渡すことと関係あるそうですが
そもそもOSのしくみとは?
OSはいろんなプログラムを順番に高速で実行させることによって見かけのマルチタスクを実現しているんですよね?
0414デフォルトの名無しさん
2014/01/11(土) 00:01:47.750415デフォルトの名無しさん
2014/01/11(土) 00:14:16.330416デフォルトの名無しさん
2014/01/11(土) 00:34:54.62あなたは(1)教えるのが下手か(2)いじわるの人
こんど発言するときは名前欄に(1)か(2)のご記入をお願い。
質問を変えよう。
どういうときにSleepを使って、どういうときにDoEventsを使いますか?
0417デフォルトの名無しさん
2014/01/11(土) 00:36:30.340418デフォルトの名無しさん
2014/01/11(土) 01:25:05.910419デフォルトの名無しさん
2014/01/11(土) 02:30:45.99あいつなら回答しそうだけど最近来ないしね
■ このスレッドは過去ログ倉庫に格納されています