Excel VBA 質問スレ Part14

Excel VBA 質問スレ P ..

2:デフォルトの名無しさん
10/01/06 12:35:43
ExcelのVBAに関する質問スレです

前スレｽﾚﾘﾝｸ(tech板)

★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。

★2 ExcelのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。

★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

3:デフォルトの名無しさん
10/01/06 14:29:46
>>2のテンプレはあくまでも目安です。
このスレはいつもヒマな回答者が監視しているので、
丁寧に頼めば丸投げでもExcelと無関係でも作ってくれる可能性があります。
ただし貧弱なアルゴリズムを力業で押し通すようなコードが多いので使用には注意が必要です。

4:デフォルトの名無しさん
10/01/06 14:31:30
★Excel2007ではマクロの記録が大幅に機能縮小されてしまいましたが、
2010ではまた以前のレベルに戻る予定らしいです。

5:デフォルトの名無しさん
10/01/06 15:01:54
★とにかくヘルプを見ましょう。VBAのことが一番完結にまとまっています。
使用例も出るので、たいていのことはヘルプで間に合うはず。ただし誤植には注意…

★たいていのことはここらのサイトに書いてあります。まずは検索。
URLﾘﾝｸ(www.asahi-net.or.jp)
URLﾘﾝｸ(www.moug.net)
URLﾘﾝｸ(officetanaka.net)

ただし、たまに堂々と嘘が書いてあるので注意が必要。
実際に試してみて(←ここ重要)、どうしてもうまくいかない時は質問。

6:デフォルトの名無しさん
10/01/06 15:08:35
★簡単にはできないこと……祝日を調べる
専用の関数はありません。
祝日は政府が毎年、国会で勝手に作ったり変えたりするので、計算で求める方法も未来の祝日を知る方法もありません。
一覧表を用意してその中から検索するしかありません。

ネットで検索すると祝日を求める方法や関数を発表しているサイトがいくつもありますが、
それらが確実に使えるのは、その方法が発表された日までです。未来は誰にもわかりません。

7:デフォルトの名無しさん
10/01/06 15:21:26
★簡単にはできないこと(2)……時間を正確に調べる
1ms単位で時間を測定できる精密なタイマーは存在しません。せいぜい13～55msが最小単位になります。

1ms単位で時間を指定できるAPIがありますが、実際の動作は適当に丸められてしまいます。
他のソフトを同時に一切動かさない、などの条件を付ければ多少は精度を上げることはできますが、
どんな環境でも確実に動作するソフトはどこにもありません。

これはWindowsそのものの仕様なので、他のプログラミング言語を使っても条件はまったく同じです。

8:デフォルトの名無しさん
10/01/06 17:34:53
>>6-7はテンプレのつもり？
簡単にできないことなんて山ほどあるので、>>6-7は不要。

9:デフォルトの名無しさん
10/01/06 20:47:45
ａ１セルに書いてるパス付ファイル名を
ｂ１セルに書いてるパス付ファイル名へ
コピーさせる方法ありますか？
ｄｏｓでできるならばそれでお願いしたいです。

前すれでｄｉｒはできるのはわかったのですが
ｃｏｐｙはどうなんでしょ？

10:デフォルトの名無しさん
10/01/06 20:59:51
URLﾘﾝｸ(officetanaka.net)

11:デフォルトの名無しさん
10/01/07 00:48:40
>>8
できないことはいろいろあるけど、そのあたりはとくに素人からの要望が多くてFAQに近い

12:デフォルトの名無しさん
10/01/07 03:17:15
ほほう、では、このスレのPart1～14で、それぞれ何回質問されたか教えてもらおうか

13:デフォルトの名無しさん
10/01/07 05:22:33
そういう風にいちいち突っかかるから頭脳は子供って影で言われちゃうんだよ
大人ならスルー

14:デフォルトの名無しさん
10/01/07 05:32:07
VBA関連のオススメ本のスレとかある？
マニアックな事が載ってるやつがいいんだが。

15:デフォルトの名無しさん
10/01/07 11:54:16
>6-7 乙

>12 ｳｾﾞｰ

16:デフォルトの名無しさん
10/01/07 13:44:44
【1 OSの種類　　　　 .】 Windows98
【2 Excelのバージョン　】 Excel2000
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可
【5 検索キーワード　　】 vba 書き換え
あるフォルダにエクセルファイルが何個か入っています
そのフアイル全てのVBAの一部を一括で置換することは可能でしょうか

コードの内容は、コマンドボタンを押すとプリンタを変更、印刷、プリンタを変更という内容です
(マクロの記録そのままです)
このプリンタの場所がLAN内から自分のPCのUSB接続に変わったので
その部分を書き換えたいのです
Application.ActivePrinter = "\\user001\\epsonAAA on epsonAAA"
を
Application.ActivePrinter = "epsonAAA on USBPRN01"
にしたいのです
プリンタの名前を変えればいけると思ったのですが、LAN上ということを指定していたようでダメでした
PCの名前も変えようかと思いましたがNGでした。

VBAのコードは少しずつ違いますが、このプリンタに関係するところは同じです。
分かるかた教えて下さい。よろしくお願いします。

17:デフォルトの名無しさん
10/01/07 13:45:41
テンプレもう少しまとめないのか
レス多すぎなんだぜ

18:デフォルトの名無しさん
10/01/07 14:03:09
>>16
マクロ自体を外部から変更するのは無理。バイナリ弄るなら別だが・・・
今回は諦めて、どこかを参照するように変更しては？

19:デフォルトの名無しさん
10/01/07 14:42:01
>>18
ありがとうございます
そうですね、テキトーなセルでも設けてそこを参照するようにします
これならいちどに帰られますしね

20:デフォルトの名無しさん
10/01/07 14:47:02
>>18
CodeModule.ReplaceLineでできるんじゃないの？Bookをオープンする必要はあるけど。

ただ、一回限りの修正なら手でやった方が速いし、将来にわたって何度も修正する
可能性があるなら、マクロを直接変更するんじゃなくて、別の方法にした方がいいと思うけどね。

21:デフォルトの名無しさん
10/01/10 12:51:10

ワークシートをアクティブにするには
ワークシート.Activate

で良いけど、現在アクティブなシートは何かってどうやったら判別出来るんでしょうか？

22:デフォルトの名無しさん
10/01/10 12:53:46
>>21
ActiveSheet.Nameとか

23:デフォルトの名無しさん
10/01/10 12:58:59
>>22
即レスありがとです

24:デフォルトの名無しさん
10/01/10 21:46:17
宜しくお願い致します。
ifの条件文で、

同じ時は =
同じでないときは <>

の記号を使いますが、

含まれているとき、という記号はあるのでしょうか？
例えば、セルA1に、ZZZという文字が含まれているとき、
という場合、
Range("A1").Value　α　"ZZZ"
という、αに該当する記号を探しています。
宜しくお願い致します。

25:デフォルトの名無しさん
10/01/10 21:56:14
>>24
Like 演算子じゃダメかな

IF Range("A1").Value　Like　"*ZZZ*" Then

とか

26:デフォルトの名無しさん
10/01/10 22:03:43
Instr関数てのもあるよ

27:デフォルトの名無しさん
10/01/10 23:16:12
Excel2003です。
VBA作成で困ったので、質問させてください。

Worksheetが、とある名前だったら
そのシートを削除してしまうという処理を行いたいのですが
うまくいきません。
現在は以下のように書いています。

Dim WST As Worksheet
For Each WST In Worksheets
If WST.Name = "SheetA" Or "SheetB" Then
WST.Delete
End If
Next

28:デフォルトの名無しさん
10/01/10 23:17:57
>>27
If (WST.Name = "SheetA") Or (WST.Name = "SheetB") Then

29:デフォルトの名無しさん
10/01/10 23:37:05
>>28
ありがとうございました。
おかげでうまくいきました。

Dim WST As Worksheet
Dim xlAPP As Application

xlAPP.DisplayAlerts = False
For Each WST In Worksheets
If WST.Name = "Sheet2" Or _
WST.Name = "Sheet3" Then
WST.Delete
End If
Next
xlAPP.DisplayAlerts = False

30:デフォルトの名無しさん
10/01/11 00:10:31
>>29
重箱を突っつくが、条件判定式は括弧で括った方が良い。
それと、最後のアラート設定は無駄かと。アラートOFF->OFF設定だが。

31:デフォルトの名無しさん
10/01/11 01:51:59
24です。
>>25 >>26さん有難うございます。
お陰さまで解決しました。
使わせていただきます！

32:デフォルトの名無しさん
10/01/11 04:35:16
>>30
アドバイスありがとうございます。

xlAPP.DisplayAlerts = True
すいません。最後のアラートはTrueでした。

条件判定式は、ミスを減らすためにも今後は括弧で括りたいと思います。

33:デフォルトの名無しさん
10/01/11 12:24:13
逆にカッコつけた方が、見やすくないかな?

If WST.Name = "Sheet2" Or WST.Name = "Sheet3" Then

If (WST.Name = "Sheet2") Or (WST.Name = "Sheet3") Then

計算順序に不安になるくらいなら、
「カッコつけずにカッコを付けよ。カッコは最強」と先輩に教えられた。

それ以降、計算順序の優劣は気にしたことがない。バッチリだよ。

34:デフォルトの名無しさん
10/01/11 13:11:15
ネトウヨｗｗｗ
（ ´∀｀）⊃URLﾘﾝｸ(livedoor.blogimg.jp)
URLﾘﾝｸ(livedoor.blogimg.jp)
URLﾘﾝｸ(livedoor.blogimg.jp)
URLﾘﾝｸ(livedoor.blogimg.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)

リアルネトウヨｗｗｗ
（ ´∀｀）⊃URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(image.blog.livedoor.jp)
URLﾘﾝｸ(www.geocities.jp)

ネトウヨ絵馬ｗｗｗ
（ ´∀｀）⊃ URLﾘﾝｸ(lh6.ggpht.com)
URLﾘﾝｸ(lh3.ggpht.com)
URLﾘﾝｸ(lh4.ggpht.com)
URLﾘﾝｸ(lh4.ggpht.com)

35:デフォルトの名無しさん
10/01/11 16:53:10
>>33
「Or演算子より=演算子が優先されるから括弧はつける必要なし」
とかカッコいいこと言いたいけど、やっぱ括弧つけたほうが見やすいし
優先順位とか面倒なこと考えなくていいから俺も括弧つける派だな

＞「カッコつけずにカッコを付けよ。カッコは最強」
激しく同意、すばらしい先輩だね

36:デフォルトの名無しさん
10/01/11 18:02:38
今度は教えてください。

Excel 2000 , Win XPです。
ボタンを作って、そこにVB書いて、いろいろと便利に使っていますが、
ボタンはマウスで行う必要があります。これをキーボードでやりたいのですが、
方法はありますでしょうか?　具体的には、
「S」で「開始ボタン」をクリックと同じ効果、
「T」で「停止ボタン」をクリックと同じ効果、とかです。
あるいは、複合でCTRL+Sとか、ALT+Uとかでも良いです。

マウス操作だと、ボタンの上にポインタを持っていく→ボタン狙う→クリックする。となります。
「うわぉ、緊急停止だ!」と言うときでも、まがマウスを探して、握って、ボタンに重ねて、クリック。
ちょっと面倒なのですが。

宜しくお願いします。

>>35
経験者(というか苦労してきた人)は、言うことが違いますよね。
ありがとうございました。

37:sage
10/01/11 18:49:30
application.OnKey

38:デフォルトの名無しさん
10/01/11 21:30:11
エクセルでゲーム作ったんで感想お願いします

URLﾘﾝｸ(www42.atwiki.jp)

39:デフォルトの名無しさん
10/01/11 23:31:40
下記で、(2)がx(1)しか表示しないのはナゼ？（XP + Excel2000）

Sub test()
Dim x(1 To 5) As Integer
For i = 1 To 5
x(i) = 2 * i
Next i
Range("a1:e1").FormulaArray = x '(1)○
Range("g1:g5").FormulaArray = x '(2)×
End Sub

40:デフォルトの名無しさん
10/01/12 00:32:45
Range("g1:g5").FormulaArray = x '(2)×

Range("g1:h6").FormulaArray = x 'ってすると

41:デフォルトの名無しさん
10/01/12 01:00:51
>>38
匿名掲示板ののパス付マクロなんぞ怖くて開けんｗ
感想欲しいなら、パス解除 or どこかのHP掲載しないと誰も見ないと思うよ
変なことしないか確認できんしｗｗｗ

42:38
10/01/12 05:36:31
変なことはしないっす
一応パスはfukunyuu
標準モジュールが一個とブックとフォームにイベントが一個ずつ

43:デフォルトの名無しさん
10/01/12 08:20:32
>>42

ｳｻﾞｲ
よそでﾔﾚ

44:デフォルトの名無しさん
10/01/12 08:21:39
なぜ副乳

45:MS HELPDESK
10/01/12 13:46:05
>> 39,40

Sub ArrayDump2() 'For a two dimensional vertical array
'Declares an array ten rows by one column
Dim x(1 To 10, 1 To 1) As Double
'Calculates random values
For j = 1 To 10
x(j, 1) = j * j
Next j

'Transfers array contents to a vertical area
Range(Cells(1, 1), Cells(10, 1)).FormulaArray = x
End Sub

46:デフォルトの名無しさん
10/01/12 23:08:59
>>39
Range("g1:g5").FormulaArray = _
Application.WorksheetFunction.Transpose(x)

47:デフォルトの名無しさん
10/01/14 15:46:47
Excel2007
VBAでWorksheetFunction.Averageを実行しようとすると、
WorksheetFunctionクラスのAveraegプロパティを取得できません
というエラーが下のCells(i, 8) = の部分で発生します。

For i = idou_array(0) + 4 To last_row
Cells(i, 8) = Application.WorksheetFunction.Average(Range("H" & i - idou_array(0) + 1, "H" & i))
Next

idou_array(0)には5という数字が入っています。
ツールからアドインで分析ツール、分析ツール(VBA)は入れてあります。
どうすれば計算できるようになるのでしょうか？

48:デフォルトの名無しさん
10/01/14 19:08:40
>>47
Application.WorksheetFunction.Average(Range())

指定したRange()に不具合があるとエラーがでる
例えば、データがないとか

49:47
10/01/14 19:20:40
>>48
もう一度データの見直しから始めます orz

50:47
10/01/14 19:38:35
見たら平均のデータを書きこもうとしている行とデータが有る行をごっちゃにしていました。^^;
スレ汚しすいませんでした m(_ _)m

51:デフォルトの名無しさん
10/01/15 15:16:42
ヘルプを見ても分からなかったので教えてください
Line Input #iFile, strLine
で読み進めてしまったファイルを先頭に戻す方法ってありますか？

52:デフォルトの名無しさん
10/01/15 16:16:16
2007使用
ScreenUpdatingについてなんですが
全シートの保護を解除するマクロを作って
その中でScreenUpdatingを使って更新を停止しているんだけど
エクセルファイルを開いた直後に上記動作を行って
どこか空いているセルに文字を入力すると
他のシートの内容が上書き描画されてしまいます。

ScreenUpdatingを使用しなければ発生しないし
ファイルを開いた直後以外（なにか他の作業をした後）
でもまったく問題なく動きます。

情報が少なくて申し訳ないですが
どなたか原因わかりますか？

53:52
10/01/15 17:16:26
自己解決しました
URLﾘﾝｸ(support.microsoft.com)
エクセルの問題だったとか時間がもったいなかった・・・

54:デフォルトの名無しさん
10/01/16 13:48:32
Outlookと連携させて、
特定の期間（例えば、2010/1/1～2010/1/8）のメールだけ、
エクセルに自動的に転機させたいんだけど、どんな感じにすればいい？

とりあえず、軽くググってみて以下ならできるとはわかった。
(1)フォルダ内にある全てのメールを一旦取り出す。
(2)取り出したメールを、受信日時でbetweenする。

ただ、これだと(1)で全部のメールを一旦取り出すのに処理時間がかかりすぎてしょうがない。
取り出しの時点で、betweenしたいんだけど、どうすればいいですか？

55:デフォルトの名無しさん
10/01/16 16:01:57
すみません、質問させてください。

ファイルAを開き、マクロで新規ブックを作成します。
ここまでは良いのですが、新規ブックに任意のマクロを
最初から入れたいのですが、可能でしょうか？

56:54
10/01/16 16:23:54
とりあえずいまのとこ考えてるソースはこんな感じです。

Sub COPY()

Dim oApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim searchDate As Date '転記を始める日付

searchDate = InputBox("いつからのメール？(YYYY/MM/DDで入力)")

Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.Folders("個人用フォルダ").Folders("aaa") 'aaaフォルダを指定
myFolder.Display

57:デフォルトの名無しさん
10/01/16 16:25:24
'メールの中身を取り出し
Dim objMAILITEM As Object 'メールアイテム
Dim n As Integer '添字

For n = 1 To myFolder.Items.Count 'aaaフォルダのアイテム数分ループ
'メールを１通取り出し、変数にセットする
Set objMAILITEM = myFolder.Items(n)

If objMAILITEM.CreationTime > searchDate Then 'ダイアログで入力させた日付より後に受信したメールだけ
Cells(n , "A") = objMAILITEM.Body '本文転記
End If
Next n

End Sub

For n = 1 To myFolder.Items.Count 'aaaフォルダのアイテム数分ループ
↑
ここを、フォルダのアイテム数分ループじゃなくて、
ダイアログで入力した日付よりあとにきたメールのアイテム数分だけ、ループさせたいです

58:デフォルトの名無しさん
10/01/16 16:52:05
>>55
可能。VBComponents.Importでぐぐれ。

59:デフォルトの名無しさん
10/01/16 17:35:59
>>51
Seek

あと Close --> Openという方法もある(笑)

60:デフォルトの名無しさん
10/01/16 18:29:26
>>51
いっぺん読み込んだデータは配列にでも保存しとけ

61:デフォルトの名無しさん
10/01/17 23:09:24
データベースのAPIを使ってEXCELのデータから検索をかけているのですが、
検索に引っかからなかった場合、空の配列を返してきます。
その空の配列かどうかを認識するにはどうしたらいいですか？

62:デフォルトの名無しさん
10/01/18 00:55:27
要素を数えるんじゃだめなの？

63:デフォルトの名無しさん
10/01/18 08:40:26
おまいら、2010βのヘルプ使える？
ヘルプ開こうとすると落ちるんだが。

64:デフォルトの名無しさん
10/01/18 13:45:30
皆さんに質問があります。Excel2003+VBAです。

シート上に配置したリストボックスに、AddItemで項目を追加しました。
そして、Excelを保存して閉じた後に再度開くと、先ほど追加したアイテムが
消えてしまいます。これを、保存する事は可能でしょうか。

ご教授の程、宜しくお願いします。

65:デフォルトの名無しさん
10/01/18 13:59:58
開いたときに動作するイベントが幾つかあるから
そこに書けばいい

66:64
10/01/18 14:27:11
確かにそうなのですが、一度追加した物を再度追加する手間を
省ければと思っているのです。

Excel自体を保存すれば、コントロールの内容も保存されるのでは？と
思っていたのですが、そうでは無いのでしょうか？

67:デフォルトの名無しさん
10/01/18 14:37:37
プロパティでアイテムの項目に書けば
というか>>65で駄目な理由がよくわからない

68:64
10/01/18 14:51:52
>67
Excelを開いた後に、テキストデータを読み込んで、そのデータを元に
リストボックスの選択項目を生成しているのです。

さらに、そのデータは既に読込済となる為、Excelセル内にも残っています。
にも関わらず、一旦Excelを閉じてまた開くと、セル内のデータは残っているのに
リストボックス内の選択項目だけ消えてしまっているのです。

セル内のデータと同じ用に、残す事が出来ればな、と考えているのです。
表現がうまくなくてすみません。伝わりますでしょうか・・・。

69:デフォルトの名無しさん
10/01/18 15:44:57
>>68
それなら出来ないよ
セルに残す
テキストに残す
したものを毎回起動時にリストに設定する
それが普通だよ

70:64
10/01/18 15:54:05
やっぱりそういう仕様になっているんですね…。
了解致しました。何とか保存する形にしてみます。

皆さん、ご回答ありがとうございました。

71:デフォルトの名無しさん
10/01/19 00:21:49
カスタムXMLにかけばいいんじゃないかな

72:デフォルトの名無しさん
10/01/19 21:35:31
このコードで使われている変数の型がわかりません。
どなたか教えていただけませんか？

pnir = CreateOLEObj("Sleipnir.API")

docID = pnir.NewWindow("URLﾘﾝｸ(www.hangame.co.jp)", true)
While pnir.IsBusy(docID); SLEEP(1); WEND

Doc = Nothing
REPEAT
SLEEP(1)
Doc = pnir.GetDocumentObject(DocID)
UNTIL Doc <> Nothing

SLEEP(1)

ifb Doc.getElementsByName("loginform").length > 0
Doc.getElementById("strmemberid").value = USER_ID
Doc.getElementById("strpassword").value = PASSWORD

imgs = Doc.getElementsByTagName("img")
for i = 0 to imgs.length - 1
img = imgs.item(i)
ifb POS("btn_login.png", img.src) > 0
img.click
break
endif
next
endif

73:デフォルトの名無しさん
10/01/20 00:02:31
どう見てもUWSC
スレ違い

74:デフォルトの名無しさん
10/01/20 11:48:05
ある列に同じ文字列を入れたい場合、RangeでFormulaR1C1を使って一括で代入するのと、
For文でCells().Value = Cells().Valueで代入していくのと、どちらが早いのでしょうか？

よろしくお願いします

75:デフォルトの名無しさん
10/01/20 11:49:54
これからVBA勉強始めようと思うんですが、
プロのエンジニアでもプログラマでもなく、
JAVAの入門書を一冊読んでいる程度の者です。
テンプレにあるExcelのインスタンスの意味を教えてもらえないでしょうか？
一応、クラス、オブジェクト、インスタンスというのは知っているつもりです。

76:デフォルトの名無しさん
10/01/20 11:55:58
>>74
100万回ぐらいまわして自分で計測してはどうでしょう
一括の方が早いと思う
>>75
エクセルのbookオブジェクト、もしくはアプリケーションのことじゃないか
要するにvbだけでできることはvbスレいけってことですね

77:デフォルトの名無しさん
10/01/20 14:13:43
エクセル上に、画像ファイルとテキストファイルを読み込むボタンをそれぞれ
配置して、ファイル読み込みダイアログを出して選択されたファイルを
エクセル上に表示させたいんだけど、誰か分かる人いる？

78:デフォルトの名無しさん
10/01/20 14:19:19
いる

79:デフォルトの名無しさん
10/01/20 14:19:39
皆んな分かる

80:77
10/01/20 14:27:36
自己解決しからいいや。

81:デフォルトの名無しさん
10/01/20 19:09:19
せっかく答えてもらって無礼な奴

82:デフォルトの名無しさん
10/01/20 19:21:02
>>74
一括がもちろん速いが、FormulaR1C1は同じ結果になるが意味的に違うぞ。
Valueを使いなさい。

83:デフォルトの名無しさん
10/01/20 22:54:15
テキストファイルを読み込んでエクセル上のラベルに表示させたいのですが
どうしたらいでしょう

84:デフォルトの名無しさん
10/01/21 12:22:51
api関数を使用しています。

Declareで宣言する時に、引数をbyvalで指定してるのに、結果が
引数に代入されてくるのはなぜですか？

本来であれば、byrefで指定するべきではないのでしょうか？

85:デフォルトの名無しさん
10/01/21 16:06:07
2010βのマクロの実行速度って2007より遅くなってる？
mougにそのように書いてあったが、俺んとこは2010βが速い。
おまいらどうよ。

86:デフォルトの名無しさん
10/01/21 16:22:10
>>83
URLﾘﾝｸ(officetanaka.net)

87:デフォルトの名無しさん
10/01/21 20:53:47
2000、XPです。VBAさわりだして数日です。
任意のサイコロの出目の和の組み合わせ数を全てシート上に書き出すマクロを組みたいと思ってます。
例えば6面ダイスを3回振る(3d6)　だったら
1 0
2 0
3 1
4 3
5 6
6 10
…のような結果になるようにしたいのです。
ただループの組み方をいくら考えてもそれらしきものが思いつきませんorz
どなたか考え方のヒントいただけませんか；

88:デフォルトの名無しさん
10/01/21 22:02:59
>>87
一番簡単なのは
全ての組み合わせをループで行って(この場合３重ループになる)
それぞれの合計値によって"組み合わせ数を表示する"セルへ
カウントアップしていく
(セルB1の値 = セルB1の値 + 1　って感じでね)

処理速度だしたいなら
同じ事を配列変数で行って　最後にセルへ書き出す

89:デフォルトの名無しさん
10/01/21 22:16:18
サイコロの目で0って何で？

90:88
10/01/21 22:32:06
>>89
自分はこう解釈した

1 0
は　出目の和が 1になる組み合わせが　0ではないかと(当然だけど)
3 1
は　出目の和が 3になる組み合わせは出目が "1", "1" ,"1"の　1組しかないので 1

91:デフォルトの名無しさん
10/01/21 22:34:55
Sub 数学わからんからシラミ潰し()
Dim a, b(100), c(100), d, e, f
a = InputBox("サイコロの数を入れてね")
f = InputBox("目の数を入れてね")
Do
e = a
For d = 1 To a
e = e + c(d)
Next
b(e) = b(e) + 1
c(1) = c(1) + 1
If c(1) = f Then
c(1) = 0
For d = 2 To a
If c(d) = f - 1 Then
c(d) = 0
Else
c(d) = c(d) + 1
Exit For
End If
Next
If d = a + 1 Then Exit Do
End If
Loop
For d = 1 To 100
Cells(d, 1) = b(d)
Next
End Sub

92:デフォルトの名無しさん
10/01/21 22:39:16
>>90
成る程
流石だ

93:デフォルトの名無しさん
10/01/21 22:47:20
スマンエラー出るな
２行目の最後 f as byte にしてくれ
大量にサイコロ使う時は100のとこを好きな数に増やしてくれ

94:デフォルトの名無しさん
10/01/22 00:04:57
再帰で書いてみた。

Private diceNum As Long
Private face As Long '目の数
Private result(100) As Long

Sub 数学わからんからシラミ潰し2()
diceNum = InputBox("サイコロの数を入れてね")
face = InputBox("目の数を入れてね")
Call Count(0, 0)
For i = 1 To 100
Cells(i, 1) = result(i)
Next i
End Sub

Sub Count(Sum As Long, nTimes As Long)
If nTimes = diceNum Then
result(Sum) = result(Sum) + 1
Exit Sub
End If
For i = 1 To face
Call Count(Sum + i, nTimes + 1)
Next i
End Sub

95:87
10/01/22 00:30:50
ありがとうございます、考えていた通りの結果に計算してくれます！
完成されたものをいただけるとは；

イルカとグーグル先生に尋ねつつ一文一文調べてみます。

96:デフォルトの名無しさん
10/01/22 02:33:51
2003,xpです。
あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？宜しくお願いします。

97:デフォルトの名無しさん
10/01/22 06:15:42
シェイプにはbottomrightcellプロパティ
topleftcellプロパティが有るから
それ使えばいい

98:デフォルトの名無しさん
10/01/22 09:54:06
>>96
Shapes.Count

99:デフォルトの名無しさん
10/01/22 10:23:12
>>96
参考に
URLﾘﾝｸ(oshiete.gogaku-ryugaku.net)

100:デフォルトの名無しさん
10/01/23 12:32:06
ある文字から何番目の行になるか出すIF文はあるのでしょうか

「見出し項目」
製品A
製品B
　・
製品X
「小計」
のような並びになっている時に、小計から、見出し項目までの行を数えて、
何個の製品名があるかを出したいのですが、よく分かりませんでした。
よろしくお願いします。

101:100
10/01/23 12:36:32
説明が抜けていました。

「見出し項目」
・・
「小計」
で対になる並びは、複数ありますので、
小計から、直近の見出し項目までの行数を出したのですが、
そのようなやり方があれば、お願いします。

102:デフォルトの名無しさん
10/01/23 12:42:27
>>101
If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。

103:デフォルトの名無しさん
10/01/23 12:43:09
97,98,99
ありがとう、解決しました

104:デフォルトの名無しさん
10/01/23 14:43:05
キーボードから１０個数字を入力し、その数字の中から最大値を｢最大値｣という文字とともに
メッセージボックスで表示するのはどう書けば良いんでしょうか。
恐らくMaxSearch()を使えば良いという事は分かるのですが、書き方が分かりません・・・。
どなたかご教授願います。

105:デフォルトの名無しさん
10/01/23 15:06:41
excel vba maxsearch
で検索してみれ

106:104
10/01/23 15:45:29
>>105
検索もしてみたのですがアドウェア関係ばかり出てしまい、肝心のVBAは全然出ないのです
ひとつそれらしき物がありましたが、どうにも私には理解できず・・・

107:デフォルトの名無しさん
10/01/23 16:40:44
=Max(Search("<70 And >=50",A1:A10))
じゃ、vbaの本でも立ち読みしてくれば

108:デフォルトの名無しさん
10/01/23 19:53:51
VBAのプロファイラ、みたいなのどーやったらいいの？

マクロや自作関数を組み込みすぎて重たくなりすぎた

109:デフォルトの名無しさん
10/01/23 22:04:09
>>108
全くのプログラム無知なんですが
面倒だけど
メッセージボックスそれぞれに書いとくのは駄目ですかね

110:デフォルトの名無しさん
10/01/23 23:43:08
オートフィルターで質問です。

オートフィルターを解除したいのですが、
その方法自体は問題ないのですが、フィルターがかかっていないときに
それをやるとエラーになるので、フィルターがかかっているいないの
判定ができる方法か、エラーがでない方法は無いでしょうか？

111:デフォルトの名無しさん
10/01/24 05:24:03
MsgBox Worksheets("Sheet1").AutoFilterMode

112:デフォルトの名無しさん
10/01/24 11:45:01
On Error Gotoでエラーを無視するという方法もある。
バカっぽいのでおすすめしないが、ちゃんとした方法をいちいち調べるのが面倒な時はたまに使う。

113:デフォルトの名無しさん
10/01/24 12:07:11
On Error Resume Next じゃねーの？

114:デフォルトの名無しさん
10/01/24 17:22:43
バカっぽいので無視する

115:デフォルトの名無しさん
10/01/24 21:37:20
無条件で一度、オートフィルターを解除するとか

116:デフォルトの名無しさん
10/01/25 01:17:38
Excel2007でフォーム上にシートを表示（スプレッドシート？）
できない様なのですが、同じような機能ってありますか？

シートは閲覧のみでも大丈夫です。
どなたかご指導よろしくお願いします。

117:デフォルトの名無しさん
10/01/25 19:16:10
ロダにあげる→開く　でブラウザからシート表示できる

118:デフォルトの名無しさん
10/01/25 20:06:43
横からすみません。
いま、得点の集計シートを作っているのですが、
1位のセルを赤の太枠で囲むということをやろうとしています。
で、
If Target.Column <> 4 Then Exit Sub '4列目(D列)以外の変更は考慮しない。

i = Target.Row
If Cells(i, 7).Value = "1" Then
'1行x3列の範囲を選択する
Range(Cells(i, 1), Cells(i, 6)).Select
'太い赤枠で囲む
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
というところまではできたのですが、初めの「4列目の1行目から12行目までに数値が入力され、
その中で最大の数の場合に実行する」という条件がどうしてもわからず・・・
お知恵を貸していただければ助かります。

119:デフォルトの名無しさん
10/01/25 23:01:34
>>117
回答感謝します。
それはフォーム上全て操作できるものなのでしょうか？
なんとか調べて試してみます。ありがとうございました。

120:デフォルトの名無しさん
10/01/25 23:47:42
>>118
ワークシート関数　MAX

121:デフォルトの名無しさん
10/01/26 00:00:12
>>110
オートフィルターでソートしてるときだけ解除

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

122:デフォルトの名無しさん
10/01/27 10:19:27
ActiveCellの上と下の空白セルを選択したいです。

A1 あああ
A2 (空白)
A3 (空白)
A4 [ActiveCell]
A5 (空白)
A6 いいい

のとき実行すると、A2～A5が選択された状態になる、を期待しています。
よろしくお願いいたします。

123:デフォルトの名無しさん
10/01/27 12:45:02
With Selection
.NumgerFormat = "@"
.Replace What:="hogehoge", Replacement:="01"
End With

このようなコードを書いたのですが、実行して見てみるとセルの書式自体は
文字列型になっているのにも関わらず表示は"1"となってしまっています

"01"と表示させたいのですが、何故こんなことになってしまうのでしょうか？
また、解決策も教えていただきたいです

よろしくお願いします！

124:デフォルトの名無しさん
10/01/27 12:47:08
>>122
1） ActiveCell.Rowで行番号取得。
2） 1行目かを判定し、違えば1)の行番号-1から1までForでまわして非空白チェック。
3）非空白がヒットしたらその行番号＋1を変数に保持してExit For　ヒットしなければ1を変数を保持。
4） ActiveCellが最終行かを判定し、違えば1）の行番号+1からCells.Rows.CountまでForでまわしてチェック。
5）非空白ヒットすれば行番号-1を変数に保持してExit。（しなければCells.Rows.Count）
6） 3）と5）の変数を使って目的範囲をSelect

125:デフォルトの名無しさん
10/01/27 21:33:26
>>122
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select

126:デフォルトの名無しさん
10/01/28 12:31:46
どなたか>>123わかる方、よろしくお願いします。何卒…

127:デフォルトの名無しさん
10/01/28 13:26:32
>126
Ａ列ずらっと　hogehoge　とか　00hogehoge　10hogehoge　などいくつか入れてみて、
Ａ列まとめてセルの表示形式を文字列にしておいて、
[Ctrl]＋[Ｈ]で　hogehoge　を　01　に置換してみるとわかります。
hogehoge、00hogehoge　→　1
10hogehoge　→　1001
というように、手作業での置換も同じ結果です。

selectionのvalueを変数に転記してから
.value = replace(変数,"hogehoge","01")
みたいにしたらどうですか？

128:デフォルトの名無しさん
10/01/28 13:47:17
>>127
試してみます！
もし詰まっちゃったらまた質問させてください
ありがとうございました！

129:デフォルトの名無しさん
10/01/28 16:18:28
>>123
これ、なんでできないんだろうな。ちゃんと文字列型にした後に値入れてんのに

130:デフォルトの名無しさん
10/01/28 17:35:15
手動でやるとこんなコードになる

Selection.NumberFormatLocal = "@"
ActiveCell.FormulaR1C1 = "01"

131:デフォルトの名無しさん
10/01/28 17:40:43
すまそ、Replaceの問題なのか

ならば、いったん文字を取り込んで書き直すんじゃないの

132:デフォルトの名無しさん
10/01/29 03:26:32
Replaceしてから書式設定したらどうなるんだ？

133:デフォルトの名無しさん
10/01/29 10:52:38
>>132
そりゃ"1"になるに決まってるよ

134:デフォルトの名無しさん
10/01/29 14:40:22
結局文字形式で数字を
セルに入れたいときは
FOR～で回すしか手がないんか

135:sage
10/01/30 00:50:08
2003,xpです

ある列"A"にオートシェイブで1行目から"○"が各行のセルに表示されていて、
"○"が表示されなくなったら"○"を次の行のセルに表示させようとしています。
　bottomrightcell,topleftcellなど使ってみましたがうまくいきません。

　どのようなプログラムにしたらよいでしょうか？どなたか宜しくお願いします。

136:デフォルトの名無しさん
10/01/30 09:13:46
セルの左上の座標
(x, y) = (Cells(R, C).Left, Cells(R, C).Top)
セルの右下の座標
(x, y) = (Cells(R, C).Left + Cells(R, C).Width, Cells(R, C).Top + Cells(R, C).Heigth)

137:デフォルトの名無しさん
10/01/30 15:02:59
社内ＬＡＮを組んでいます
ブックＡのマクロでブックＢを編集し、保存するマクロがあります
他人がブックＢを編集していると読み取り専用でブックＢを開いてしまい保存する段階でエラーとなります
他人がブックＢを編集中であるかどうか判定するにはどうすればよいでしょうか？

138:デフォルトの名無しさん
10/01/30 15:06:44
URLﾘﾝｸ(sanryu.net)

139:デフォルトの名無しさん
10/01/30 15:16:46
>>138
解決しました
ありがとうございました

140:デフォルトの名無しさん
10/01/30 17:53:56
16進数を扱うデータリストを作っています

E0～E9の段(224～233)がExcelの仕様で勝手に指数関数と見なされて「0.00E+00」などという表記をされてしまいます
それは16進数のE0であって10進数の224の事なんですと…
同様のことが16進数のEが挟まる度に頻繁に生じます

VBAのマクロで文字列矯正をすることで対処できそうですがどんなコードで対処できますか？
御指南くださいませ

141:デフォルトの名無しさん
10/01/30 18:00:45
>>140
セルの書式を文字列にしておく

142:デフォルトの名無しさん
10/01/30 18:05:17
>>141
扱う量と試行回数が今後も継続的に多くなるからその案は駄目です
指数を無効にさせることが目的なので

URLﾘﾝｸ(soudan1.biglobe.ne.jp)
ググったらこんなようなのが見つかったんだけど上手く作動できてない
コード合ってるのかな？
csv開く時に指数無効で文字列で読んでくれないと困るぅぅぅ

143:デフォルトの名無しさん
10/01/30 18:37:26
テキストで読み込み、カンマでスプリットする

144:デフォルトの名無しさん
10/01/30 18:41:41
URLﾘﾝｸ(www.f3.dion.ne.jp)
こんな現象が起きてると予想

145:デフォルトの名無しさん
10/01/30 19:46:14
csvを読み込んで、
セルの書式を文字列にしてセルに再書き込みでは？

146:kaimiyu
10/01/31 07:13:11
マクロ、VBA超初心者ですが、仕事で必要とされているのでがんばります。
さて、質問ですが、
現在、エクセルからリンクをはって、テキストコマンド(バーコードプリンタに印字させるコマンド)
を開き、そこからプリンタを選択して印字しておりますが、それだと手間なので、マクロやVBAで
エクセル上にボタンを作成し、そのボタンを一回押すだけで、印字までできますか？

補足ですが、テキストコマンドは、エクセルシートとは別のテキストファイルです。
よろしくお願いします。

147:デフォルトの名無しさん
10/01/31 07:43:36
★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

148:kaimiyu
10/01/31 08:13:37
147
どうもありがとうございます。
マクロでもやってみたのですが、別ファイルを開くまででとまってしまい、
それから、印刷→プリンタ指定→印刷実行は手動で行っています。
それをエクセルのボタンから一発でやりたいのですが。。。可能ですか？

149:デフォルトの名無しさん
10/01/31 10:24:10
可能だし
マクロの記録みて

150:デフォルトの名無しさん
10/01/31 14:56:13
印刷専用アプリ起動してそれを操作したいんだろ。だとしたらマクロの記録だけじゃどうやってもだめ。
お手軽なところではSendKeysとか使ってコントロールする方法があるけど、そのままでは動作があまり安定しない。

こういう時はuwscというフリーウェアおすすめ。
ウィンドウやボタンを指定して操作できるからうっかりマウスをさわったり、常駐ソフトがポップアップ出してきても大丈夫。

151:デフォルトの名無しさん
10/01/31 18:15:01
どなたかお願い致します。
フォーム上で、textbox(技術検索番号)に入力した番号をシート（全データ）のB列から検索し、シート内の番号と
同じ行の各種データをフォーム上の対応したtextboxに返すというプログラムを作成しています。
以下のプログラムは書いてみたんですが、実行すると既に選択されているセルの情報ばかり返ってきます。
番号と一致したセルをアクティブにすればいいかなと思ったんですが…いまいち分かりません。
宜しくお願い致します。

Private Sub 技術検索ボタン_Click()
Dim sn As String
Dim sa As Range
'検索番号とエリアの設定
sn = 技術検索番号.Value
Set sa = Sheets("全データ").Range("B4").End(xlDown)
'検索の処理
With Sheets("全データ")
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
'見つからない場合の処理
If found Is Nothing Then
MsgBox ("技術コードが見つかりません。")
'見つかった場合の処理
Else
Me.会社名表示.Value = Cells(ActiveCell.Row, 4)
Me.処理機郵便番号表示.Value = Cells(ActiveCell.Row, 5)
Me.処理機住所表示.Value = Cells(ActiveCell.Row, 6)
Me.電話番号表示.Value = Cells(ActiveCell.Row, 10)
Me.メールアドレス表示.Value = Cells(ActiveCell.Row, 9)
Me.事業区分表示.Value = Cells(ActiveCell.Row, 11)
End If
End With
End Sub

152:デフォルトの名無しさん
10/01/31 18:39:31
>>151
ActiveCell.Row　を　found.Row へ変更

153:デフォルトの名無しさん
10/01/31 18:39:40
>>151
動作確認してないけど、こうじゃないかな

Me.会社名表示.Value = Cells(found.Row, 4)
Me.処理機郵便番号表示.Value = Cells(found.Row, 5)
Me.処理機住所表示.Value = Cells(found.Row, 6)
Me.電話番号表示.Value = Cells(found.Row, 10)
Me.メールアドレス表示.Value = Cells(found.Row, 9)
Me.事業区分表示.Value = Cells(found.Row, 11)

154:デフォルトの名無しさん
10/01/31 19:01:32
>>152
>>153
お二人ともありがとうございます！
実行してみたところ、正常に動きました。
ちょっと感動しました。

違うシートがアクティブ（実際"全シート"は隠します）な時にも検索
できるようにしたいしたいので、ちょっと模索してきます。
わからなかったらまた質問させてください。
ありがとうございました。

155:デフォルトの名無しさん
10/01/31 19:22:10
>>154
今のままで、できるんじゃないかい？

156:デフォルトの名無しさん
10/01/31 20:06:09
>>155
他のシート（セルも）がアクティブになっていた場合なんですが、
なぜかtextboxに値が出てきませんでした。

’見つからない場合の処理’は出来てたんですが…

なので確実にするためにシートを定義してActivateしました。
ご指摘ありがとうございます。

157:デフォルトの名無しさん
10/01/31 20:16:26
>>156
With Sheets("全データ")
があるんだからそれを活用して

Me.会社名表示.Value = .Cells(found.Row, 4)
のように

Cellsの前に　ドットをつける

158:デフォルトの名無しさん
10/01/31 20:36:15
>>157
さっき自分でやった方法と違い、フォームの後ろで
シートが切り替わらなくても検索できました！
感謝します。

と同時にもう少し勉強が必要だと痛感しました…

159:デフォルトの名無しさん
10/02/01 03:47:36
エクセル2007.ＸＰ．
質問です。よろしくお願いします。詳しい方ぜひ教えてください。

VBAによるあるサイトの自動ログインについてです。

よさげなサイトを発見してためしてみたのですがよくわかりませんでした。

URLﾘﾝｸ(kikky.net)

このプログラムの途中にかいてある下記の意味がわかりません。
'form.id部分はサイトのソースに合わせる
'form.password部分はサイトのソースに合わせる
'form部分はサイトのソースに合わせる

解る方いたらおしえてください。よろしくおねがいします。

また、使用例としてyahooでの自動ログインのやり方を少しおしえていただきたいのです、
すみませんがよろしくお願いします。

160:デフォルトの名無しさん
10/02/01 06:10:06
URLﾘﾝｸ(www.ken3.org)

161:デフォルトの名無しさん
10/02/01 10:34:29
>>156
foundはRangeオブジェクトなんだから、わざわざ行番号を取得する必要はない。
行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。
Me.会社名表示.Value = .Cells(ActiveCell.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

162:デフォルトの名無しさん
10/02/01 10:36:09
間違った。
Me.会社名表示.Value = .Cells(founfl.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

163:デフォルトの名無しさん
10/02/01 18:34:00
>>162
offsetも一度検討してたんですが、その時もActiveCellで考えてました。
ありがとうございます。

＞行番号を取得するプログラムのほとんどは回り道の欠陥プログラムだ。
大変参考になりました！頭に叩き込んどきます

164:デフォルトの名無しさん
10/02/01 22:50:34
ログインが必要なファイルサーバにファイルをコピーしたいのですが
ファイルサーバへの接続が上手くいきません。

どなたかアドバイスお願いします。

165:デフォルトの名無しさん
10/02/01 23:00:24
URLﾘﾝｸ(www.moug.net)

166:デフォルトの名無しさん
10/02/02 19:34:59
>>163
欠陥プログラムなんて事は無いから真に受けない方が良いよ。

167:デフォルトの名無しさん
10/02/02 20:12:59
自分も　回り道であるかもしれないけれど
欠陥プログラムは言い過ぎだとおもう
さぞかし >>161 は、綺麗なコードを書いているのだろうね
プロ(笑)なプログラマの言う事は理解できん

168:デフォルトの名無しさん
10/02/03 01:10:19
>>167
別に俺はプロじゃねーし。
まぁプロが行番号なんか使ってたら俺ら素人に笑われるわな。

169:デフォルトの名無さん
10/02/03 15:39:54
html 用の色指定　#FF00FF　とか　#EE82EE　を

VBA用にRGB(250,0,250)の形式に変換したいが、

どんな関数をつかえばいいの？

170:デフォルトの名無しさん
10/02/03 15:44:56
えっ

171:デフォルトの名無しさん
10/02/03 18:35:01
何をしたいのかわからないけど
16進数を10進数にする

172:デフォルトの名無しさん
10/02/03 20:57:32
CLng("&H" & Value)

173:デフォルトの名無さん
10/02/03 22:52:54
>172
謝謝、男毛先

次ページ