10/01/06 12:34:58
過去スレ
01 ｽﾚﾘﾝｸ(tech板)
02 ｽﾚﾘﾝｸ(tech板)
03 ｽﾚﾘﾝｸ(tech板)
04 ｽﾚﾘﾝｸ(tech板)
05 ｽﾚﾘﾝｸ(tech板)
06 ｽﾚﾘﾝｸ(tech板)
07 ｽﾚﾘﾝｸ(tech板)
08 ｽﾚﾘﾝｸ(tech板)
09 ｽﾚﾘﾝｸ(tech板)
10 ｽﾚﾘﾝｸ(tech板)
11 ｽﾚﾘﾝｸ(tech板)
12 ｽﾚﾘﾝｸ(tech板)
13 ｽﾚﾘﾝｸ(tech板)
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
謝謝、男毛先
174:デフォルトの名無しさん
10/02/04 08:15:25
>>168
データベースの2次元配列構造を使用する時には、
range.row や range.column を多用するぜ。
と言うか、可読性や速度を考えても、遠回りじゃなくて直線的なロジックだよ。
列は固定で行は変動する場合とかね。
for i = 1 to range.row なんかも欠陥プログラムって言われてる？
175:デフォルトの名無しさん
10/02/04 13:05:09
>>174
>>168じゃないが
rangeオブジェクトから行番号や列番号なんてただの数値を取り出して、その数値をもとにどこのブックのどこのシートのCells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
Rangeオブジェクトならどこのブックのどこのシートかなんて内包されてるんだから、それを利用するのが当然だろう
for i = 1 to cells(rows.count,1).end(xlup).row
なんてのは欠陥というより下手くそだね
セレクトするコードと目くそ鼻くそだよ
176:デフォルトの名無しさん
10/02/04 15:32:43
>>175
目くそ様乙であります！！
177:デフォルトの名無しさん
10/02/04 18:08:46
>>175
引用間違ってるよ。
178:デフォルトの名無しさん
10/02/04 22:24:30
使い捨てのマクロでそんなことにこだわる必要はないが
他人にも使わせるツールなら意識して欲しいかな
しかし、>>151の内容はVBAの必要なくね？
ワークシートにVLOOKUPで十分
179:151
10/02/04 22:40:26
>>178
たしかに今考えればいならいような気がします…
180:151
10/02/04 22:48:16
連投すみません。
さっき、いらないような…と言いましたが、番号が見つからない場合に
MsgBoxでエラーを出したかったんです。
それと、VBAで書きかったっていうのがありまして。
181:デフォルトの名無しさん
10/02/04 22:52:53
>>178
他人に使わせるだけのマクロなら汚くてもいいんじゃない？
分る人にソース見られたとき困るだけ。
182:デフォルトの名無しさん
10/02/05 05:12:07
個人的には lookup系は使わずVBA
それ以外はセル操作で出来るのなら極力
VBAを使わないというのが好き
183:デフォルトの名無しさん
10/02/05 06:44:05
>>151にVLOOKUPはないね。
使い捨てブックならかまわないけど。
184:デフォルトの名無さん
10/02/05 11:49:35
下記で右辺のRGBでコンパイル・エラーargument not optionalがでて
進めません。（XP + Excel2000）
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array("235,180,200", "255,110,80", "255,0,0")
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)) 'error
Next i
End Sub
185:デフォルトの名無しさん
10/02/05 13:21:40
>>184
文字列を渡してどうする
186:デフォルトの名無しさん
10/02/05 21:18:11
>Cells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
まじか。
俺はOffsetはその値に達するまで内部でループするから遅いだろうと考えていた。
たとえば、
L = 60000
Offset(L)は６万回ループするが、
Cells(L, 0)なら一発でその場所に移動できるのだと。
187:デフォルトの名無しさん
10/02/05 21:18:21
>>184
もっと良いやり方があるかも知れないけれど
現在のコードを尊重する形で考えてみた
下記ではどうでしょう
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(Array(235, 180, 200), Array(255, 110, 80), Array(255, 0, 0))
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)(0), myIndex(i)(1), myIndex(i)(2))
Next i
End Sub
188:デフォルトの名無さん
10/02/05 23:24:09
>>187,185
ありがとう。こうしました。
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(RGB(235, 180, 200), RGB(255, 110, 80), RGB(255, 0, 0))
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = myIndex(i)
Next i
End Sub
189:デフォルトの名無しさん
10/02/06 01:32:22
selectしなくてもいいじゃん
190:デフォルトの名無しさん
10/02/06 01:43:19
>>186
ひどい勘違いだな
内部でループなんかするわけないじゃん
とにかくCellsを多用するコードは不細工だ
事前バインドの方が楽で簡潔
191:デフォルトの名無しさん
10/02/06 07:54:23
DBをExcelに展開して作業するんだけど、offsetだけじゃ無理。
cells(foundcell.row,1).value
とか普通に使ってtる。
192:デフォルトの名無しさん
10/02/06 08:27:51
参照設定
193:デフォルトの名無しさん
10/02/06 08:34:39
なんだか、アーリーバインディングを勘違いしてる奴が居るな。
難しい言葉を使おうとしなくていいんだよ。
194:デフォルトの名無しさん
10/02/06 09:56:19
Range.CopyFromRecordset
195:デフォルトの名無しさん
10/02/06 10:15:47
>>193
勘違いしてねーよ。
アーリーバインディングの方がコーディング楽だろ？
お前Cells使ってるのか？
196:デフォルトの名無しさん
10/02/06 16:57:38
ログデータから取得したリストがあり、頭に種別を表す連番1～16が振ってあります。
このリストを上からチェックしていき、種別番号が1ならA列から始まる表に、2ならD列から始まる表に
という具合に、種別ごとの表に落とし込みたいと考えています。
それぞれの列に落とし込むことはできたのですが、貼り付ける行が前の列からの続きになってしまい悩んでいます。
具体的には、A1～A10が種別1、D1～D5が種別2、G1～G10が種別3としたいのに、
A1～A10が種別1、D11～D15が種別2、G16～G20が種別3となってしまうのです。
If hantei = 1 Then
Range("A" & i + 100).Formula = (参照式)
197:196
10/02/06 17:04:34
すみません。途中で書き込んでしまいました；
それぞれの種別表の頭を揃えるには、どうしたら良いでしょうか？
今のところ、それぞれの表でソートをするしかないのかと考えていますが、
状況によりログのリストがどれぐらいの長さまで伸びるか読めないため、
かなりの幅を持たせないといけないので、その表の直下を使えなくなってしまうのが難点です。
何か良い方法があれば、よろしくお願いします。
198:デフォルトの名無しさん
10/02/06 17:06:27
今、画像の表示（サムネイル一覧）や変換（BMP→tiffなど）するソフトを
VBAで作ることを考えています。
画像の表示は、ともかく変換をどうすれば良いか検討がつきません。
ｱﾄﾞﾊﾞｲｽ何か頂けないでしょうか？
OS：WindowsXp Excel：2000
199:デフォルトの名無しさん
10/02/06 17:25:22
>>196
Range("A65536").End(xlUp).Select
200:デフォルトの名無しさん
10/02/06 17:59:03
>>199
2007から行数変わったじゃん
201:デフォルトの名無しさん
10/02/06 20:24:51
行数、列数が拡張されたのは2007の時だけじゃないし
Rows.Countでそのシステムの最大行数が求まる
202:デフォルトの名無しさん
10/02/07 02:14:42
フォームに入力された値で数値計算をするプログラムを組んでいます。
’各テキストボックスが空欄だった時の対処
If Me.YJ1.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ2.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ3.Value = "" Then
MsgBox("空欄があります。")
・
・
・
（YJ23まで）
’（空欄対処の続きで）各テキストボックスが数字以外だったときの対処
ElseIf IsNumeric(YJ1) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ2) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ3) Then
MsgBox("半角数字で入力してください。")
・
・
・
（YJ23まで）
Else
sum_t = YJ1*0.15+YJ1+0.79+ …（YJ23まで）
という風なプログラムを現在組んでいます。
空欄の検出はしてくれるんですが、YJ23まで半角数字なのに"半角数字で…"のエラーが出ます。
半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？
203:デフォルトの名無しさん
10/02/07 03:10:19
URLﾘﾝｸ(homepage1.nifty.com)
204:デフォルトの名無しさん
10/02/07 05:20:15
>>203
ありがとうございます！参考にさせてもらいます！
205:デフォルトの名無しさん
10/02/07 06:26:06
>>195
やっぱり勘違いしてるね。
206:デフォルトの名無しさん
10/02/07 07:03:38
しつこいやっちゃなぁ。
実行時バインドのコードばっか書いてる三流プロか？
207:デフォルトの名無しさん
10/02/07 08:07:23
190のcellsは不細工で事前バインドが云々の解説でもしておくか。
配列とかはおいといて、単純に範囲をループする場合の実行時バインドと事前バインドの一例
もっとも不細工(cells(i,1)の形が実行時バインド)
dim i as long
For i = 1 To cells(rows.count,1).end(xlup).row
If cells(i,1).value="foo" then
cells(i,2).hogehoge
end if
Next i
まだまだ不細工(Itemプロパティが実行時バインド)
dim r as range
dim i as long
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for i=1 to r.count
If r.item(i,1).value="foo" then
r.item(i,2).hogehoge
end if
next i
上の二つよりまとも(cは事前バインド)
dim r as range
dim c as range
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for each c in r
if c.value="foo" then
c.offset(,1).hogehoge
end if
next c
208:デフォルトの名無しさん
10/02/07 08:10:50
言っとくけどCellsは事前バインドだが、Cellsの後ろに隠れてるItempプロパティ(実際は_Dedaultプロパティ)が実行時バインドね。
209:デフォルトの名無しさん
10/02/07 08:14:34
Selectionを使うのは実行時バインド？
210:デフォルトの名無しさん
10/02/07 08:17:38
(cは事前バインド)は(cもOffsetも事前バインド）だった。
211:デフォルトの名無しさん
10/02/07 08:23:01
>>209
Selectionをそのまま使えば実行時バインドだよ。
ただしSellectionを任意の変数(たとえばセル範囲ならRange型の変数)に格納してその変数を使えば事前バインド。
212:デフォルトの名無しさん
10/02/07 09:27:36
不細工云々はどうでも良いんだけど、
column固定でrowはfoundcellの場合、どうすりゃいいんだよ。
213:デフォルトの名無しさん
10/02/07 10:58:03
>>212
161じゃないけど、発見した行の4列目ならfound.EntireRow.Cells(4)ってことかな？
しかしまぁ>>151は検索範囲がB列と書いていながら、実際のコードは何故か
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
と全セルになってるな。
214:デフォルトの名無しさん
10/02/07 11:09:02
>>151をよく見ると心配な点がいっぱいあるね。
技術検索番号ってまさか単純な数字じゃないだろうな。
LookAt:=xlWholeを書いてないと1で10とかも引っ掛かるかるしなぁ。
Withも意味なしてないし。
215:151
10/02/07 13:58:07
>>214
技術検索番号は今のところ10001～10165までの数値です。
おっしゃるとおり10でも10001が検索されてしまっていました。今現在は、皆さんの意見を参考にして
Private Sub 技術検索ボタン_Click()
Dim sn As String
'検索番号の設定
sn = 技術検索番号.Value
'検索の処理
With Sheets("全データ")
Set found = Worksheets("全データ").Range("B:B").Find(sn, , LookAt:=xlWhole)
'見つからない場合の処理
If found Is Nothing Then
MsgBox ("技術コードが見つかりません。5桁の数字を正しく入力してください。")
'見つかった場合の処理（フォーム上のtextboxに値を代入）
Else
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)
End If
End With
End Sub
としています。特にエラーは出てないんで、大丈夫そうなのですが…
もし何かありましたら宜しくお願いします。
216:196
10/02/07 14:54:05
>>199
ありがとうございます。
End()を使ったことがなかったので少し手間取りましたが、希望通りの動作をしてくれました。
217:デフォルトの名無しさん
10/02/07 18:48:43
>>215
みなさんの意見って>>161の意見は参考にしてないなｗ
まぁここに限らずよくない方法が採用されるのが掲示板の常なのでしょうがないね。
しかしどうしても行番号使うにしても、５回も同じ行番号を取得しちゃいかんぜよ。
何度も使うものは変数に格納してから使わないと。
参考までに行番号は取得しないで列番号をそのまま使うならこんな方法もある。
Else以下だが
Set found =found.EntireRow.Cells
Me.会社名表示.Value = found(4).Value
Me.処理機郵便番号表示.Value = found(5).Value
Me.処理機住所表示.Value = found.Row(6).Value
Me.電話番号表示.Value = found(10).Value
Me.メールアドレス表示.Value = found(9).Value
Me.事業区分表示.Value = found(11).Value
実行時バインドになるが、Offsetと違って列番号がそのまま使える。
found(4)はfound.Item(4)の略ね。
またSet found =found.EntireRow.Cellsの部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。
気になるなら別の変数にすればいい。
218:デフォルトの名無しさん
10/02/07 18:54:31
おっとfound.Row(6).Valueは間違いね。
219:デフォルトの名無しさん
10/02/07 21:05:40
>>207
お前、オブジェクトとプロパティが良くわかってないだろ
220:デフォルトの名無しさん
10/02/07 21:27:49
またへんなのが出てきたな。↑
例えばCellsはRangeオブジェクトへの参照を返すプロパティーさ。
221:デフォルトの名無しさん
10/02/07 21:30:59
>>219は自分は何でも分ってて、他人は分ってないと思ってる基地外だな。
もういいから引っ込め。
222:デフォルトの名無しさん
10/02/07 21:50:57
取り込み中のところすんませんけど、一つ教えてください
Excel2007
MsgBox "～" ←このメッセージの部分の文字に色を付けて表示したりする事って出来ますか？
223:デフォルトの名無しさん
10/02/07 22:14:11
出来ないと思う。
URLﾘﾝｸ(www.h3.dion.ne.jp)
ここのアドインを試してみたら？
224:デフォルトの名無しさん
10/02/07 22:31:05
>>223
教えていただき、有難うございます！
調べてみます。
225:デフォルトの名無しさん
10/02/07 23:34:38
俺はVBAは結構できると思っていたが実行時バインドとかまったく意識していなかった。
今日は勉強になった。
226:デフォルトの名無しさん
10/02/08 00:36:40
>俺はVBAは結構できると思っていたが
多分激しく勘違いしてるんだと思ふ。
227:デフォルトの名無しさん
10/02/08 06:30:55
俺も仕事でVBAを4年ほど使ってるけど、まだまだ知らない事が多いんだなぁ。
とつくづく感じた。
VBAが馬鹿にされてるんじゃなくて、俺が馬鹿だったんだ。
228:デフォルトの名無しさん
10/02/08 08:19:12
事前バインドは実行時バインドより速いって認識でいいの？
229:デフォルトの名無しさん
10/02/08 09:11:46
>>228
大体そうだが逆もある。
たとえばRange("A1")とCells(1,1)は１個の処理なら実行時バインドの後者が速い。
ただWithでくくって多くの処理を行うのであれば事前バインドの前者が速いけどな。
速い遅いより、事前バインドならピリオド打って頭の数文字を打てばその打った
文字から始まるメンバが出てくるから、そこから選べばいいから長いメンバ名のときは楽だな。
だからWith Selectionとして多くの処理をするより、適合する型の変数にSelectionをセットして
With 変数とした方が楽だよ。
230:デフォルトの名無しさん
10/02/08 09:15:32
上のピリオド云々はVBEのオプションの自動メンバ表示にチェックがついてるときの話ね。
231:デフォルトの名無しさん
10/02/08 09:58:19
いい加減、お前うざいよ
232:デフォルトの名無しさん
10/02/08 10:00:06
同意。
ﾊﾞｲﾝﾄﾞｦﾀ･･･ｲﾗﾈ
233:デフォルトの名無しさん
10/02/08 10:02:22
別にうざくはないが
234:デフォルトの名無しさん
10/02/08 10:04:01
>>220
で、何を何に「バインド」すんの？
235:デフォルトの名無しさん
10/02/08 10:23:30
VB(A)の世界では、Dim a As Rangeなどと、変数宣言時にオブジェクトの型を指定するのが
事前バインディング、Dim a As Objectと総称型で宣言し、Set a = ...と実行時に変数に結びつけるのが
実行時バインディングというのが普通で、上で言われてるような文脈で使われるのは
初めて見た。
あってるのか、間違ってるのか知らんけど。
236:デフォルトの名無しさん
10/02/08 10:27:45
ちなみに、コンパイルする言語では、コンパイル時に呼び出しを決定できるものが事前バインディングで、
実行時にしか決定できないものを実行時バインディングという。
付け加えると、VBAでは一般に事前バインディングの方が速いというのはその通りで、
オブジェクトを変数に代入しておいて使う方が速いというのもその通り。
ただ、「Selectionをそのまま使えば実行時バインドだよ。」という言い方は初めて見た。
このような使い方をするのかどうかは知らない。
237:デフォルトの名無しさん
10/02/08 10:42:24
測ってみればいいのに。基本は実測だよ。
For i = 0 To 100000
' ここにコード
Next
s = Range("A1").Value => 1416ms
s = Cells(1, 1).Value => 670ms
s = r.Cells(1, 1).Value => 858ms '事前にdim r as range, set r = range("A1")を実行
結論：
Cells(x, x)を使わない奴は馬鹿。
238:デフォルトの名無しさん
10/02/08 10:45:58
それやってないけど、r.valueが最速だろ。
239:デフォルトの名無しさん
10/02/08 11:05:58
つーか、>>207で最後のコードが速いのは、事前バインドなんか全然関係なくて、
cells(i,1)でrangeオブジェクトを参照するより、for cell in rangeで参照した方が速いってだけじゃね？
240:デフォルトの名無しさん
10/02/08 11:14:44
古いＰＣだが
11sec: s = Range("A1").Value
05sec: s = Cells(1,1).Value
04sec: s = r.Value
241:151
10/02/08 12:22:11
横からすみません。分かりにくい点が多数あると思いますがお願いします。
A B C D E l F
1 名前 りんご バナナ みかん ブドウ l 余り
2 たけし １ ０ ０ ４ l 0
3 ともこ ０ ２ ０ ４ l 0.25
4 とおる １ ２ ３ ０ l 0.73
5 さちこ １ ２ ０ ０ l 0
6 たける ０ ０ ０ ４ l 0.84
・
・
・
というような表を作っています。
フォームでりんごを選択し検索すると、りんごを食べれる【たけし・とおる・さちこ】
を検索（B2:E6から１を検索）し、与えます。
余りがあればさっき与えた人以外のところに持っていき、与えます。
それを繰り返して、条件付き組み合わせのような形で検索したいと思っています。
この場合ですと、リンゴを100個持っているとすると、 ※（）内は残個数
・たけし（0）
・とおる（73）→たけし（0）
・とおる（73）→さちこ（0）
・さちこ（0）
の４パターンが検索されます。
各パターンで残個数が0になれば検索終了です。
このようなシステムは可能でしょうか？
また、可能ならヒントを頂けると嬉しいです。宜しくお願いします。
242:151
10/02/08 12:40:38
ちなみに、
りんご＝１
バナナ＝２… という関連付けはすでにしています。
243:デフォルトの名無しさん
10/02/08 12:48:45
>>239
>>207で速さのことなんか何にも書いてないじゃん。
不細工かどうかだろ？
244:デフォルトの名無しさん
10/02/08 13:57:49
>>241
他人に上手く説明できないことは、自分でも理解していないことである
245:デフォルトの名無しさん
10/02/08 14:20:57
エスパーの出番だな
246:デフォルトの名無しさん
10/02/08 15:11:09
概してExcelに検索処理をさせることが間違いのもと
247:デフォルトの名無しさん
10/02/08 23:12:59
>>241
ようするにナップザック問題の亜種だろ
リンゴが99個で最初にとおるを選んだとき、残りの個数は割り切れない数になるけど、そういう時はどうすんの？
248:デフォルトの名無しさん
10/02/08 23:47:16
>>247
ここではリンゴとしましたが、実際はトン（ｔ）で計算します。
小数点以下も考えるので、99×0.73＝72.27（ｔ）が次の人へ…となります。
説明不足でした。申し訳ありません。
ナップザック問題というヒントを参考にさせてもらいます。
249:デフォルトの名無さん
10/02/09 00:19:12
下記test1で「あ」を図の真ん中に表示したい。
test2では文字をとりだせない。
Sub test1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50).Select
With Selection
.Characters.Text = "あ"
End With
Range("a1").Select
End Sub
Sub test2()
MsgBox ActiveSheet.Shapes(1).Characters.Text
End Sub
250:デフォルトの名無しさん
10/02/09 03:10:36
>>249
Sub test1()
With ActiveSheet.Rectangles.Add(10, 10, 50, 50)
.Text = "あ"
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
End Sub
Excel任せだと少しずれてしまうのは仕様。
ぴったり中央に文字を出したいときは、背景が透明のテキストボックスを
図形の上に重ねて、座標を自分で計算するしかない。
Sub test2()
MsgBox ActiveSheet.Shapes(1).TextFrame.Characters.Text
End Sub
あと、質問するときはもうちょっと文章を丁寧に書け。
「やりたい」「できない」だけじゃ質問になってない。
テンプレも使うこと。
251:デフォルトの名無しさん
10/02/09 11:55:15
>>250
ここにテンプレあったか？
252:デフォルトの名無しさん
10/02/09 12:20:13
>>251
>>2
253:デフォルトの名無さん
10/02/09 12:20:50
>>250
ありがとうございます。
気をつけます。
254:デフォルトの名無しさん
10/02/10 00:29:32
tes
255:デフォルトの名無しさん
10/02/10 00:36:42
ＶＢＡ初心者ですが、実行時バインドってなんですか？
また、エクセルで「現在アクティブなブックの一つ前に
アクティブだったブックのname」を取得するコードを教えてください。
256:255
10/02/10 01:20:39
Excel2003 windows xpです。
今まで勘違いして
activewindow.activatepreviousで取得していたんですが、
複数ブックが開いているときはだめな時がありました。
257:デフォルトの名無しさん
10/02/10 12:36:16
ひとつ前のブックをアクティブにしたときに名前取得すればいいんじゃないの？
258:デフォルトの名無さん
10/02/10 13:42:42
下記(1)で mainをぬけてプログラムを中断したいのですが・・・
Sub main()
Call ChkShtName
MsgBox Now
End Sub
Sub ChkShtName()
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
Exit Sub '(1) ここで本当はmainを抜けたい
End If
End Sub
end sub
259:デフォルトの名無しさん
10/02/10 14:12:17
>>258
発想がスパゲッティだなｗ
フラグ持ってけ。
260:デフォルトの名無しさん
10/02/10 15:01:51
For~Next文で、
For i1=…
’ここにi1の処理（※）
For i2=…
’ここにi2の処理（※）
For i3=…
’ここにi3の処理
Next i3
Next i2
Next i1
と階層化されている場合、各段階で条件によって終了し、i1に戻って再度処理を続けるにはどうしたらいいですか？
（i2,i3である値が０になったときなど）
※のところに
If a = 0 Then
Next i1
ではだめでした。
コード自体が長いのでこのような質問になり申し訳ありません。
よろしくお願いします。
261:デフォルトの名無しさん
10/02/10 15:41:51
goto
もしくは関数ごとつくる
262:デフォルトの名無しさん
10/02/10 16:16:38
i1に戻ったときの、i1,i2,i3の値が気になるが
Dim f as boolean
f = True
For i1=…
’ここにi1の処理（※）
For i2=…
If f Then
’ここにi2の処理（※）
For i3=…
’ここにi3の処理
If （i2,i3である値が０になったとき） Then
f = False
End If
Next i3
End If
Next i2
Next i1
どこかでf = Trueをいれないといけないけどね
263:デフォルトの名無しさん
10/02/10 16:49:44
>>261
>>262
ありがとうございます。ちなみに>>241で質問した者です。
'果物番号
fruit = Worksheets("sheet1").Range("E10")
aRow = 1
aCount = 0
'=================================================
For i1 = 2 To 6 '検索する行を指定
'果物番号の検索
With Worksheets("sheet1")
Set found1 = Worksheets("sheet1").Range(.Cells(i1, 2), .Cells(i1, 5)).Find(fruit, , LookAt:=xlWhole)
End With
If found1 Is Nothing Then
Else
'最初の人の余り（率）を取得して書き込み
s1 = Worksheets("sheet1").Cells(found1.Row, "A") ’s1は最初に食べる人
out_rate1 = Worksheets("sheet1").Cells(found1.Row, "G")
aRow = aRow + 1
Worksheets("sheet2").Cells(aRow, 1) = s1
'排出物
out1 = Worksheets("sheet1").Cells(i1, 8)
'=================================================
For i2 = 2 To 6 （以降続く）
というプログラムで、i1ではout_rate1=0となれば最初に戻って次のパターンを検索、
i2ではout_rate2=0となれば最初に…
という流れを目指して書いたものです。
分かりにく過ぎて申し訳ないです。エスパーさんいらっしゃいましたら宜しくお願いしますw
264:デフォルトの名無しさん
10/02/11 00:47:06
>>258
元のプログラム構造を尊重した一例。
本当はMsgBoxはどちらか一カ所にすべき。
Sub main()
If ChkShtName Then
MsgBox Now
End If
End Sub
Function ChkShtName() As Boolean
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
ChkShtName = False '(1) ここで本当はmainを抜けたい
Else
ChkShtName = True
End If
End Function
265:255
10/02/11 01:36:07
>>257
例えば、現在アクティブなbook2（マクロを登録してあるファイル）の
中のマクロで、ひとつ前にアクティブであった
book1（いろいろなファイル）に対して操作を行う時に、
nameが固定されていないbook1をアクティブにする方法です。
それが分からないのでnameも取得できませんでしたが、一応自己解決しました。
丸一日かかってやっと思いついたのが、
「現在アクティブなブックのウインドウを最小化する
とひとつ前のブックが自動的にアクティブになる」
というエクセルの動作を利用してみました。
266:255
10/02/11 01:49:31
もうひとつ質問なのですが、
メニューバーへボタンを作って
そのボタンからマクロを実行するアドインを
作って実装させているんですが、
計１０台くらいの仲間に実装したのに、
何日かしたら数台のＰＣでボタンが消えていました。
ツール → アドインで調べてもアドインファイルにチェックは
ついたままになっているんです。
ちなみにチェックを外してＯＫボタンを押すとエラーになりました。
アドインのメニューボタンだけが消えてしまった状態なんですが
ボタンをdeleteするプログラムを含むプログラムを
実行していないとしたら、
ほかにどんな原因が考えられるのでしょうか？
267:デフォルトの名無しさん
10/02/11 03:05:32
>>265
それはbook3もあって一つ前にアクティブだったかわからないという事か？
↓コピペだけど
Sub マクロブックでない方のファイル名を取得する()
Dim オブジェクト As Workbook
For Each オブジェクト In Workbooks
If オブジェクト.Name <> ThisWorkbook.Name Then
MsgBox オブジェクト.Name
End If
Next
End Sub
もし２つしかbook開いていないなら上記で
2つ以上でもアクティブなBOOK名を絶えず取得して置けばいいと思ったけど
マクロ書いたbookを最後に開いたら駄目だね
268:255
10/02/11 15:25:13
>>267
book3,book4,book.......と複数ブックが
開いている状態でbook2(マクロを登録したファイル）をアクティブ
にしてその中のマクロを実行するときに
ひとつ前にアクティブだった任意のブック(book1 or book3 or ......)
をアクティブにする方法です。
activewindow.activatepreviousではウインドウが開いた順番をもとに
ひとつ前の番号のウインドウをアクティブにするだけなので、
ひとつ前の番号のウインドウ ＝ ひとつ前にアクティブだったブック
とは限らないケースがあり、マクロ実行時に思惑通りの動作を
してくれなかったのです。
269:デフォルトの名無しさん
10/02/11 15:45:48
>>268
VBA単独でやるなら、すべてのブックにマクロを仕込んで、それぞれ自分がアクティブになったら
名前をどこかに記録しておく、みたいな方法かなあ。
俺ならウィンドウメッセージをフックして、アクティブになったウィンドウを記録するような常駐ソフトを作る。
270:デフォルトの名無しさん
10/02/11 15:55:08
そもそも仕様が腐っとる。
271:デフォルトの名無しさん
10/02/11 16:06:54
パソコン環境が貧弱な頃から積み上げた成果でしょ
272:デフォルトの名無しさん
10/02/11 20:36:35
>>267
自分ならクラスモジュールを使ってブックイベント拾ってやるかな
下記では このマクロを含むブックを開く前に
アクティブだったものは取得できないけどひとつのやりかたとして掲載してみる
(ネーミングは適当なので勘弁してね)
★標準モジュール
Private GetOldBook As New Class1 '←クラスモジュール名を指定する
Sub TEST()
Debug.Print "一つ前にアクティブだったブック:"; GetOldBook.Name
End Sub
★クラスモジュール(モジュール名:Class1)
Private WithEvents App As Application
Private OldBook As String
Private Sub Class_Initialize()
Set App = Application
End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Excel.Workbook)
OldBook = Wb.Name
End Sub
Public Property Get Name() As String
Name = OldBook
End Property
273:272
10/02/11 20:42:19
アンカーみすった
>>268
だったです すみません
274:デフォルトの名無しさん
10/02/11 21:59:02
初歩的な質問ですが､
A1に1､A2に2､B1に3､B2に4と入力されていて
A1からB2を選択した状態で下記のコードを実行した場合､
bufは要素数が1から始まる配列になるということで
よろしいのでしょうか？
配列なのに何故0から始まらないんですか？？？
Sub test()
Dim buf As Range
Set buf = Selection
MsgBox buf(2)
End Sub
275:274
10/02/11 22:08:13
IsArray(buf)はTrueを返すんですけど、
LBound(buf)とUBound(buf)は“配列がありません”と
コンパイルエラーになってしまいます。
276:デフォルトの名無しさん
10/02/11 22:13:54
自分でrangeって宣言してるんだから
配列じゃなくて、rangeでしょ
277:デフォルトの名無しさん
10/02/11 22:16:14
Sub test()
Dim buf
buf = Selection
Debug.Print UBound(buf), LBound(buf)
End Sub
278:274
10/02/11 22:23:24
>>277
これ、エラーになりますよね？
279:274
10/02/11 22:25:36
あ、失礼しました！Variantだと配列ってことでしょうか？
でも、Rangeで宣言してIsArrayでTrueを返すのは
どういうことなんでしょう？
すみません・・・すごく初心者な質問ばかりで・・・orz
280:デフォルトの名無しさん
10/02/11 22:29:55
>>279
あやまる気があるなら自分で調べろ。
281:258
10/02/11 22:47:10
>>264
ありがとうございます。
282:274
10/02/11 22:54:26
URLﾘﾝｸ(www012.upp.so-net.ne.jp)
似たようなもの見つけました。
やはり配列で、最小インデックスは1ということのようですね。
試験でbuf(1)の値は何か？という問題が出て、
配列なら0から始まると思い込んでて間違えたものですから・・・。
お騒がせしました。
283:デフォルトの名無しさん
10/02/12 10:49:13
配列とは思って無かったItemを省略した書き方って感じで
下の場合はobj.item(2)と同じ
Public Sub ItemTest()
Dim obj As Range
Set obj = Range("B2:C3, D5")
MsgBox (obj(2).Address)
End Sub
だから最小インデックスは1なのかなと思う
284:デフォルトの名無しさん
10/02/12 23:59:10
VBAのメソッドやクラスのドキュメントてMSDNにないの？
全網羅してるやつ。。
285:デフォルトの名無しさん
10/02/13 02:15:15
ある
286:デフォルトの名無しさん
10/02/13 18:31:15
IEのフォームにセルの値を次々に入力して検索結果を別セルに転記する、というマクロ作っています。
入力内容によっては「Windows Internet Explorer」というタイトルの警告ウィンドウ（ボタンはOKボタンのみ）が
出てしまいます。
このウィンドウを閉じれば次のセルの値は問題なく入力、検索できるのですが、
このウィンドウを閉じるにはどうすればいいでしょうか？
287:286
10/02/13 18:46:50
警告ウィンドウが出てるかどうかの判断の仕方もあわせて教えてください。
288:デフォルトの名無しさん
10/02/13 19:34:29
逆に質問ですけど、JavaスクリプトでExcelに書き出してるの？
289:デフォルトの名無しさん
10/02/13 19:35:42
質問取消します
読間違えました
290:デフォルトの名無しさん
10/02/13 23:44:55
宜しくお願い致します。EXCEL2000です。
「サンプル写真」という名前のフォルダの中にある、
セルA1に書かれている数字のjpgファイルを開く。
というマクロを何とか作りました↓。
Sub テスト()
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\a\デスクトップ\サンプル写真\" & Range("A1") & ".jpg"
End Sub
一応動くのですが、実行するとインターネットエクスプローラで開いてしまいます。
拡張子の関連付けでは、他のソフトで開くようにしいるので、
そのソフトで開けるようにしたいのです。
開くjogファイルを開くプログラムを指定するにはどうすればよいでしょうか？
宜しくお願い致します。
291:デフォルトの名無しさん
10/02/14 00:30:30
>>290
URLﾘﾝｸ(homepage1.nifty.com)
292:290
10/02/17 10:04:46
>>291
遅レスすいません。アク菌にまきこまれ返信できませんでした。
解決しました。
本当にありがとうございます。
感謝
293:デフォルトの名無しさん
10/02/17 11:11:06
csvファイルをインポートではなくダブルクリックで開いた場合、
例えば「12-11」というデータは「11月12日（中身は40494）」に変換されてしまいますが、
これをマクロで12-11に戻してやる場合にはどういう方法がいいんでしょうか？
ちなみにその列は「数値-数値」の形ではない文字列も含まれていますので、
書式の取得からやらなければいけないと思います…
その処理を入れようとしているのは行数分回すfor文の中です。
よろしくお願いいたします。
294:デフォルトの名無しさん
10/02/17 11:38:10
>戻してやる場合にはどういう方法がいいんでしょうか？
考え方が違う。
EXCELに展開するときに処理することを考えるべし。
295:デフォルトの名無しさん
10/02/17 11:45:05
>>293
その場合、元のデータが「12-11」だったのか「12/11」だったのか「12月11日」だったのか
判断する方法はないので元に戻すこともできない。
あとから修正するんじゃなくて、最初から別の方法で読み込むこと。
296:デフォルトの名無しさん
10/02/17 12:08:17
>>293
発想が腐っとる。
297:デフォルトの名無しさん
10/02/17 12:19:07
>>295
住所のカラムなので日付が入ることはないんです
>>296
腐敗しとります
298:デフォルトの名無しさん
10/02/17 12:30:10
ああ、.textに"月"と"日"が含まれてたらそれぞれの前の数値を抽出して並び替えればいいのか
お騒がせしました。ちなみに俺は「取り込むときに処理しないとまずい」とちゃんと提言しましたよ？
腐敗してるんですよ
299:デフォルトの名無しさん
10/02/17 12:38:35
>>297
そういう重要な条件を後出しするんじゃねえボケ
300:デフォルトの名無しさん
10/02/17 13:06:53
>>299
そうですね、ごめんなさい
しかし、もし"月"と"日"が含まれている住所が存在するなら
>>298の方法には完全に穴がありますね
ところで、
'もし住所２が日付形式に変換されていたら
Address2 = Cells(i, 8).Text
Cells(i, 8).NumberFormat = "@"
If InStr(Address2, "月") + InStr(Address2, "日") <> 0 Then
Cells(i, 8).Value = Address2
ここまでは作ったんですが、この後"月"や"日"をReplaceでいじろうとしても
うまくいかない…>>123の問題とかぶってるのかな？
具体的に言うと、"月"を"-"、"日"を""にReplaceしてやるとまた日付形式に
戻っちゃうんです。なんなんだ…泣きそうｗ
301:デフォルトの名無しさん
10/02/17 13:29:18
ああ、
If InStr(Address2, "月") + InStr(Address2, "日") <> 0
ではなくて
If InStr(Address2, "月") <> 0 And InStr(Address2, "日") <> 0 Then
じゃないとまずいですね。NORが無いのは残念だ
302:デフォルトの名無しさん
10/02/17 13:34:24
こうやって糞シートが出来上がっていくんですねｗ
303:デフォルトの名無しさん
10/02/17 13:35:32
>>302
ベストな解答頼む
304:デフォルトの名無しさん
10/02/17 13:48:11
結局どうせごり押しなら
Cells(i, 8).NumberFormat = "m-d"
で通しちゃうことに決めました
これだと日付形式じゃないものはそのままですし
>>302
俺からもお願いします
305:デフォルトの名無しさん
10/02/17 14:52:16
Excelは青色申告用ソフトであって住所録じゃないんだからそういう使い方自体が間違ってる
306:302
10/02/17 15:40:13
>303-304
つ>294-295
307:デフォルトの名無しさん
10/02/17 15:45:56
それがベストな解答？
308:デフォルトの名無しさん
10/02/17 17:45:54
Excelって青色申告用ソフトだったのか。長年使ってて初めて知った。そういう用途には一度も使った事ねーや w
309:デフォルトの名無しさん
10/02/17 21:02:37
webクエリで勝手に保存されてしまうアドレス群の中で、不要な物が多すぎるので消したいんだけど何か方法ないですか？
ＶＢＡ使うやり方でも使わないやり方でもなんでもいいです。
310:デフォルトの名無しさん
10/02/17 22:08:49
マクロを実行して
途中でエラーになった場合
VBAの画面が開かれるのですが
これを開かずに実行に失敗した事だけを伝えるのってどうすればいいのでしょうか？
311:デフォルトの名無しさん
10/02/17 22:20:11
On Error Resume Next とか
312:デフォルトの名無しさん
10/02/17 22:49:24
>>308
まあExcelは違うわな
パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから
313:デフォルトの名無しさん
10/02/17 22:50:47
>>309
必要か不要かを機械的に判断するロジックがあれば可能
人間が見ないとわからない物は手作業で消すしかない
314:デフォルトの名無しさん
10/02/18 00:27:32
VBはマイクロソフトが開発したわけではなく
他社が開発したものをマイクロソフトが買収したもの
315:デフォルトの名無しさん
10/02/18 08:58:22
>>313
レスありがとう、手作業での消し方すらわからんとです。
316:293
10/02/18 09:00:40
>>305
住所録として使っているわけではありません
csvにマクロを適用させるアプリとして使っているのです
>>306
だからその案は却下されたんですって言ってるじゃないですか
なんだ、がっかりです
317:デフォルトの名無しさん
10/02/18 09:14:05
>316
>だからその案は却下されたんですって言ってるじゃないですか
そうやって例外が例外を産み、糞シートが出来上がっていくのだよ。
>294-296がベストな回答だと思うがな。
318:デフォルトの名無しさん
10/02/18 10:09:40
>>317
自覚のない素人に何を言っても無駄
仕事でこんなことやってるってのにはﾋﾞｯｸﾘした
319:デフォルトの名無しさん
10/02/18 10:13:05
だめだこいつｗ
293は限定された条件の中でのベストな回答を訊いてるんだろうに。
その条件自体に文句つけてどうする。
サッカーやるのに「手を使えないのがおかしい！」って言ってるのと一緒だ。
320:デフォルトの名無しさん
10/02/18 10:27:11
>318
そういうくだらないことやってる会社って結構あるけどなｗ
321:デフォルトの名無しさん
10/02/18 10:34:38
文字列データを「"」でかこってないCSVをダブルクリックでまともに開きたいってだけでしょ
開いた後で自動なり手動なりでマクロから読み込み直しさせればいいだけじゃないの？
322:デフォルトの名無しさん
10/02/18 11:08:39
>>312
> >>308
> まあExcelは違うわな
> パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから
都合のいいところでお前のパソコンの歴史が始まったらしいな。
そんな話聞いたこと無いぞ。
323:デフォルトの名無しさん
10/02/18 12:22:22
パソコンは戦争目的じゃなかったか？
弾道計算か何かだと思う
表計算ソフトは
URLﾘﾝｸ(ja.wikipedia.org)
だとさ。金融がどーとかで税金かどうかまでは分からないが、
まあ似たようなものといえなくも無いが間違ってるとも言える
ってかどっちでもいい
324:293
10/02/18 13:10:45
なんかちょっとだけ盛り上がってますね。すみません
>>321
ああ、それがベストですね！
ルールを変えろ、って言ってる人は意味がわかりません
変えられない前提だって言ってるのになあ
325:デフォルトの名無しさん
10/02/18 13:33:05
サッカーボールを手で運べ！
326:デフォルトの名無しさん
10/02/18 13:36:52
ラグビーの発祥です
327:デフォルトの名無しさん
10/02/18 13:57:47
なるほど
328:デフォルトの名無しさん
10/02/18 14:13:01
どんな書類でもエクセルで作りそうｗ
329:デフォルトの名無しさん
10/02/18 14:16:17
フローチャートをエクセルで作るウチの会社のことだな
俺は個人的なチャートならイラレで作ってるｗ
330:デフォルトの名無しさん
10/02/18 14:30:58
アプリなんてどんな使い方してもいいよ
本来の目的からずれてようが、便利なら使えばいい
331:デフォルトの名無しさん
10/02/18 14:38:19
webページから一部分だけエクセルに取り込むコード作りたいんだけど、webクエリだと大きく取り込んでしまうので困ってます。
具体的には、ヤフーファイナンスからコードと社名と業種だけ(他はいらないです)欲しいんだけど、そういうピンポイントで取り出すみたいな事出来ますか？
また、そういうデータ取り込み系統の技術を得るための参考書籍とかあったら紹介して下さい。
332:デフォルトの名無しさん
10/02/18 14:59:06
>>331
Webクエリなら特定のテーブルだけを取り込むこともできるけど、
ヤフーファイナンスはページ全体が大きなテーブルになってるから一部を取り出すことはできない。
こういう時はページのソースを文字列変数に読み込んで、
タグなどを調べながら必要な部分だけをセルに入れることになる。
あと、やりたいことがピンポイントで決まってるなら書籍よりGoogleで検索した方が早い。
サンプルも必要な部分をコピペするだけだし。
333:デフォルトの名無しさん
10/02/18 15:05:25
レスありがとう。
自分が目指してるのは、多分こういう感じのを応用させるんだろうなとは思ってるんだけど(下、動画のアドレス)
URLﾘﾝｸ(www.youtube.com)
だんねんながらＶＢＡスタンダード程度のレベルでは意味不明でしたｗ
334:デフォルトの名無しさん
10/02/18 15:20:59
>>333
その動画サイトからソース置いてあるページにリンク貼ってあるし
ダウンロードして改造して使えばいいじゃん。
そのビデオ見てわかんないんだったら、ここで同じこと説明しても
やっぱりわかんないんじゃないの？
企業コードが知りたいだけなら、そういう一覧表がきっとどこかにあるはず。
検索してみたら？
335:デフォルトの名無しさん
10/02/18 16:45:51
>>331
新・ExcelVBAで極めるシステムトレード ～最強パワーアップ編
正規表現による取得方法を書いてる
336:デフォルトの名無しさん
10/02/18 18:44:01
>>331
Sub test()
Dim URL As String
Dim WebTbl As String
URL = "URL;URLﾘﾝｸ(quote.yahoo.co.jp)"
' 読み込むテーブルNoを指定する
WebTbl = "4"
With ActiveSheet.QueryTables.Add(Connection:=URL _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.WebTables = WebTbl
.Refresh
End With
End Sub
ちょっと違うかな？
337:デフォルトの名無しさん
10/02/18 19:00:35
>>331
ごめんorz
ちょっとどころか全然違ったねｗ
338:デフォルトの名無しさん
10/02/18 22:19:02
VBAでJavaにおけるExceptionみたいなものってあるのでしょうか？
つまり何らかのエラーがおこった時点でどのメソッドに強制的に移動するみたいな感じで
339:デフォルトの名無しさん
10/02/18 22:40:22
色々レスありがとう。
エクセル入ってるのが2ndＰＣなので後でコードコピーして試してみる。
あと、オススメ本は明日本屋で探してみます。
コレで勉強してたんだけど、少し不足を感じてたので助かったわ。ちなみに誤字脱字も多いしあんましオススメしない。
URLﾘﾝｸ(www.tradersshop.com)
URLﾘﾝｸ(www.tradersshop.com)
340:デフォルトの名無しさん
10/02/19 02:24:55
～ Range("K" & Rows.count).End(xlUp)
みたいにK列を固定させているのですが
こう書いた場合Excelのシートを列削除したり追加したりするたびに
書き変えなきゃいけないのですが
列を追加したりすると自動的に変更って出来るのでしょうか？
341:デフォルトの名無しさん
10/02/19 07:40:16
>>340
目的の列を探すコードを追加すればいいんでない？