Excel VBA 質問スレ Part14

過去スレ
01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/

ExcelのVBAに関する質問スレです

前スレ http://pc12.2ch.net/test/read.cgi/tech/1254281104/

★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）

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

★Excel2007ではマクロの記録が大幅に機能縮小されてしまいましたが、
2010ではまた以前のレベルに戻る予定らしいです。

★とにかくヘルプを見ましょう。VBAのことが一番完結にまとまっています。
使用例も出るので、たいていのことはヘルプで間に合うはず。ただし誤植には注意…

★たいていのことはここらのサイトに書いてあります。まずは検索。
ttp://www.asahi-net.or.jp/~ef2o-inue/menu/menu04.html
ttp://www.moug.net/tech/exvba/
ttp://officetanaka.net/excel/vba/tips/index.htm

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

★簡単にはできないこと……祝日を調べる
専用の関数はありません。
祝日は政府が毎年、国会で勝手に作ったり変えたりするので、計算で求める方法も未来の祝日を知る方法もありません。
一覧表を用意してその中から検索するしかありません。

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

★簡単にはできないこと(2)……時間を正確に調べる
1ms単位で時間を測定できる精密なタイマーは存在しません。せいぜい13〜55msが最小単位になります。

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

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

>>6-7はテンプレのつもり？
簡単にできないことなんて山ほどあるので、>>6-7は不要。

ａ１セルに書いてるパス付ファイル名を
ｂ１セルに書いてるパス付ファイル名へ
コピーさせる方法ありますか？
ｄｏｓでできるならばそれでお願いしたいです。

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

ttp://officetanaka.net/excel/vba/tips/tips91.htm

>>8
できないことはいろいろあるけど、そのあたりはとくに素人からの要望が多くてFAQに近い

ほほう、では、このスレのPart1〜14で、それぞれ何回質問されたか教えてもらおうか

そういう風にいちいち突っかかるから頭脳は子供って影で言われちゃうんだよ
大人ならスルー

VBA関連のオススメ本のスレとかある？
マニアックな事が載ってるやつがいいんだが。

>6-7 乙

>12 ｳｾﾞｰ

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

テンプレもう少しまとめないのか
レス多すぎなんだぜ

>>16
マクロ自体を外部から変更するのは無理。バイナリ弄るなら別だが・・・
今回は諦めて、どこかを参照するように変更しては？

>>18
ありがとうございます
そうですね、テキトーなセルでも設けてそこを参照するようにします
これならいちどに帰られますしね

>>18
CodeModule.ReplaceLineでできるんじゃないの？Bookをオープンする必要はあるけど。

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

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

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

>>21
ActiveSheet.Nameとか

>>22
即レスありがとです

宜しくお願い致します。
ifの条件文で、

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

の記号を使いますが、

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

>>24
Like 演算子じゃダメかな

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

とか

Instr関数てのもあるよ

Excel2003です。
VBA作成で困ったので、質問させてください。

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


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

>>27
If (WST.Name = "SheetA") Or (WST.Name = "SheetB") Then

>>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

>>29
重箱を突っつくが、条件判定式は括弧で括った方が良い。
それと、最後のアラート設定は無駄かと。アラートOFF->OFF設定だが。

24です。
>>25>>26さん有難うございます。
お陰さまで解決しました。
使わせていただきます！

>>30
アドバイスありがとうございます。

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

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

逆にカッコつけた方が、見やすくないかな?

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

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

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

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

ネトウヨｗｗｗ
（ ´∀｀）⊃http://livedoor.blogimg.jp/gekisha-krw/imgs/1/c/1c21ac8b.jpg
http://livedoor.blogimg.jp/gekisha-krw/imgs/3/c/3c96435c.jpg
http://livedoor.blogimg.jp/gekisha-krw/imgs/7/c/7c810d55.jpg
http://livedoor.blogimg.jp/gekisha-krw/imgs/7/6/7685930e.jpg
http://image.blog.livedoor.jp/insidears/imgs/6/c/6c39db7d.jpg
http://image.blog.livedoor.jp/insidears/imgs/7/3/73d62d94.jpg

リアルネトウヨｗｗｗ
（ ´∀｀）⊃http://image.blog.livedoor.jp/nankai2000/imgs/1/d/1d4780bb.jpg
http://image.blog.livedoor.jp/modela/imgs/4/8/480f891c.jpg
http://image.blog.livedoor.jp/modela/imgs/9/8/98645eb2.jpg
http://www.geocities.jp/gakuen_kova17/6463868e739a.jpg

ネトウヨ絵馬ｗｗｗ
（ ´∀｀）⊃ http://lh6.ggpht.com/_iobkCWer7BA/SofHLI5OEXI/AAAAAAAAA9k/Lb83dzBTb7A/s640/IMG_1644.JPG
http://lh3.ggpht.com/_iobkCWer7BA/SofHLV_WH6I/AAAAAAAAA9s/g_7GS7pJkNk/s640/IMG_1645.JPG
http://lh4.ggpht.com/_iobkCWer7BA/SofHLyy5V_I/AAAAAAAAA90/qfSq8h0vzeE/s640/IMG_1648.JPG
http://lh4.ggpht.com/_iobkCWer7BA/SofHNXSfp7I/AAAAAAAAA-I/d9-LGGNyIyM/s640/IMG_1653.JPG

>>33
「Or演算子より=演算子が優先されるから括弧はつける必要なし」
とかカッコいいこと言いたいけど、やっぱ括弧つけたほうが見やすいし
優先順位とか面倒なこと考えなくていいから俺も括弧つける派だな

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

今度は教えてください。

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

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

宜しくお願いします。

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

application.OnKey

エクセルでゲーム作ったんで感想お願いします

http://www42.atwiki.jp/syugyou?cmd=upload&act=open&pageid=236&file=ttt.zip

下記で、(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

Range("g1:g5").FormulaArray = x '(2)×


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

>>38
匿名掲示板ののパス付マクロなんぞ怖くて開けんｗ
感想欲しいなら、パス解除 or どこかのHP掲載しないと誰も見ないと思うよ
変なことしないか確認できんしｗｗｗ

変なことはしないっす
一応パスはfukunyuu
標準モジュールが一個とブックとフォームにイベントが一個ずつ

>>42

ｳｻﾞｲ
よそでﾔﾚ

なぜ副乳

>> 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

>>39
Range("g1:g5").FormulaArray = _
Application.WorksheetFunction.Transpose(x)

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)は入れてあります。
どうすれば計算できるようになるのでしょうか？

>>47
Application.WorksheetFunction.Average(Range())

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

>>48
もう一度データの見直しから始めます orz

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

ヘルプを見ても分からなかったので教えてください
Line Input #iFile, strLine
で読み進めてしまったファイルを先頭に戻す方法ってありますか？

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

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

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

自己解決しました
http://support.microsoft.com/kb/978089/ja
エクセルの問題だったとか時間がもったいなかった・・・

Outlookと連携させて、
特定の期間（例えば、2010/1/1〜2010/1/8）のメールだけ、
エクセルに自動的に転機させたいんだけど、どんな感じにすればいい？

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

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

すみません、質問させてください。

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

とりあえずいまのとこ考えてるソースはこんな感じです。

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

'メールの中身を取り出し
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フォルダのアイテム数分ループ
↑
ここを、フォルダのアイテム数分ループじゃなくて、
ダイアログで入力した日付よりあとにきたメールのアイテム数分だけ、ループさせたいです

>>55
可能。VBComponents.Importでぐぐれ。

>>51
Seek

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

>>51
いっぺん読み込んだデータは配列にでも保存しとけ

データベースのAPIを使ってEXCELのデータから検索をかけているのですが、
検索に引っかからなかった場合、空の配列を返してきます。
その空の配列かどうかを認識するにはどうしたらいいですか？

要素を数えるんじゃだめなの？

おまいら、2010βのヘルプ使える？
ヘルプ開こうとすると落ちるんだが。

皆さんに質問があります。Excel2003+VBAです。

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

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

開いたときに動作するイベントが幾つかあるから
そこに書けばいい

確かにそうなのですが、一度追加した物を再度追加する手間を
省ければと思っているのです。

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

プロパティでアイテムの項目に書けば
というか>>65で駄目な理由がよくわからない

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

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

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

>>68
それなら出来ないよ
セルに残す
テキストに残す
したものを毎回起動時にリストに設定する
それが普通だよ

やっぱりそういう仕様になっているんですね…。
了解致しました。何とか保存する形にしてみます。

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

カスタムXMLにかけばいいんじゃないかな

このコードで使われている変数の型がわかりません。
どなたか教えていただけませんか？

pnir = CreateOLEObj("Sleipnir.API")

docID = pnir.NewWindow("http://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

どう見てもUWSC
スレ違い

ある列に同じ文字列を入れたい場合、RangeでFormulaR1C1を使って一括で代入するのと、
For文でCells().Value = Cells().Valueで代入していくのと、どちらが早いのでしょうか？

よろしくお願いします

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

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

エクセル上に、画像ファイルとテキストファイルを読み込むボタンをそれぞれ
配置して、ファイル読み込みダイアログを出して選択されたファイルを
エクセル上に表示させたいんだけど、誰か分かる人いる？

いる

皆んな分かる

自己解決しからいいや。

せっかく答えてもらって無礼な奴

>>74
一括がもちろん速いが、FormulaR1C1は同じ結果になるが意味的に違うぞ。
Valueを使いなさい。

テキストファイルを読み込んでエクセル上のラベルに表示させたいのですが
どうしたらいでしょう

api関数を使用しています。

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

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

2010βのマクロの実行速度って2007より遅くなってる？
mougにそのように書いてあったが、俺んとこは2010βが速い。
おまいらどうよ。

>>83
ttp://officetanaka.net/excel/vba/file/file08.htm

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

>>87
一番簡単なのは
全ての組み合わせをループで行って(この場合３重ループになる)
それぞれの合計値によって"組み合わせ数を表示する"セルへ
カウントアップしていく
(セルB1の値 = セルB1の値 + 1　って感じでね)

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

サイコロの目で0って何で？

>>89
自分はこう解釈した

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

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

>>90
成る程
流石だ

スマン エラー出るな
２行目の最後 f as byte にしてくれ
大量にサイコロ使う時は100のとこを好きな数に増やしてくれ

再帰で書いてみた。

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

ありがとうございます、考えていた通りの結果に計算してくれます！
完成されたものをいただけるとは；

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

2003,xpです。
あるセルにオートシェイブで図形が書かれているか判定したいのですが、どのようにすれば判定できますか？ 宜しくお願いします。

シェイプにはbottomrightcellプロパティ
topleftcellプロパティが有るから
それ使えばいい

>>96
Shapes.Count

>>96
参考に
http://oshiete.gogaku-ryugaku.net/qa3634541.html

ある文字から何番目の行になるか出すIF文はあるのでしょうか

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

説明が抜けていました。

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

>>101
If文だけじゃ無理。不可能じゃないけど効率が悪すぎる。普通はWhile文を使う。

97,98,99
ありがとう、解決しました

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

excel vba maxsearch
で検索してみれ

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

=Max(Search("<70 And >=50",A1:A10))
じゃ、vbaの本でも立ち読みしてくれば

VBAのプロファイラ、みたいなのどーやったらいいの？

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

>>108
全くのプログラム無知なんですが
面倒だけど
メッセージボックスそれぞれに書いとくのは駄目ですかね

オートフィルターで質問です。

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

MsgBox Worksheets("Sheet1").AutoFilterMode

On Error Gotoでエラーを無視するという方法もある。
バカっぽいのでおすすめしないが、ちゃんとした方法をいちいち調べるのが面倒な時はたまに使う。

On Error Resume Next じゃねーの？

バカっぽいので無視する

無条件で一度、オートフィルターを解除するとか

Excel2007でフォーム上にシートを表示（スプレッドシート？）
できない様なのですが、同じような機能ってありますか？

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

ロダにあげる→開く　でブラウザからシート表示できる

横からすみません。
いま、得点の集計シートを作っているのですが、
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行目までに数値が入力され、
その中で最大の数の場合に実行する」という条件がどうしてもわからず・・・
お知恵を貸していただければ助かります。

>>117
回答感謝します。
それはフォーム上全て操作できるものなのでしょうか？
なんとか調べて試してみます。ありがとうございました。

>>118
ワークシート関数　MAX

>>110
オートフィルターでソートしてるときだけ解除

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

ActiveCellの上と下の空白セルを選択したいです。

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

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

With Selection
.NumgerFormat = "@"
.Replace What:="hogehoge", Replacement:="01"
End With

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

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

よろしくお願いします！

>>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

>>122
Range(ActiveCell.End(xlUp), ActiveCell.End(xlDown)).SpecialCells(xlCellTypeBlanks).Select

どなたか>>123わかる方、よろしくお願いします。何卒…

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

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

>>127
試してみます！
もし詰まっちゃったらまた質問させてください
ありがとうございました！

>>123
これ、なんでできないんだろうな。ちゃんと文字列型にした後に値入れてんのに

手動でやるとこんなコードになる

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

すまそ、Replaceの問題なのか

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

Replaceしてから書式設定したらどうなるんだ？

>>132
そりゃ"1"になるに決まってるよ

結局文字形式で数字を
セルに入れたいときは
FOR〜で回すしか手がないんか

2003,xpです

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

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

セルの左上の座標
(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)

社内ＬＡＮを組んでいます
ブックＡのマクロでブックＢを編集し、保存するマクロがあります
他人がブックＢを編集していると読み取り専用でブックＢを開いてしまい保存する段階でエラーとなります
他人がブックＢを編集中であるかどうか判定するにはどうすればよいでしょうか？

ttp://sanryu.net/acc/tips/tips261.htm

>>138
解決しました
ありがとうございました

16進数を扱うデータリストを作っています

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

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

>>140
セルの書式を文字列にしておく

>>141
扱う量と試行回数が今後も継続的に多くなるからその案は駄目です
指数を無効にさせることが目的なので

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

テキストで読み込み、カンマでスプリットする

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsCSV001.html
こんな現象が起きてると予想

csvを読み込んで、
セルの書式を文字列にしてセルに再書き込みでは？

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

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

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

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

可能だし
マクロの記録みて

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

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

どなたかお願い致します。
フォーム上で、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

>>151
ActiveCell.Row　を　found.Row へ変更

>>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)

>>152
>>153
お二人ともありがとうございます！
実行してみたところ、正常に動きました。
ちょっと感動しました。

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

>>154
今のままで、できるんじゃないかい？

>>155
他のシート（セルも）がアクティブになっていた場合なんですが、
なぜかtextboxに値が出てきませんでした。

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

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

>>156
With Sheets("全データ")
があるんだからそれを活用して

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

Cellsの前に　ドットをつける

>>157
さっき自分でやった方法と違い、フォームの後ろで
シートが切り替わらなくても検索できました！
感謝します。

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

エクセル2007.ＸＰ．
質問です。よろしくお願いします。詳しい方ぜひ教えてください。

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

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

ttp://kikky.net/pc/vba_autologin.html

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

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

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

ttp://www.ken3.org/cgi-bin/group/vba_ie.asp

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

間違った。
Me.会社名表示.Value = .Cells(founfl.Row, 4)
なんてしないで
Me.会社名表示.Value = found.Offset(,2).Value
とすればよい。

>>162
offsetも一度検討してたんですが、その時もActiveCellで考えてました。
ありがとうございます。

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

ログインが必要なファイルサーバにファイルをコピーしたいのですが
ファイルサーバへの接続が上手くいきません。

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

ttp://www.moug.net/faq/viewtopic.php?t=46965&sid=35bd0a78b60e9ce710a0ff9baaf11ef4

>>163
欠陥プログラムなんて事は無いから真に受けない方が良いよ。

自分も　回り道であるかもしれないけれど
欠陥プログラムは言い過ぎだとおもう
さぞかし >>161 は、綺麗なコードを書いているのだろうね
プロ(笑)なプログラマの言う事は理解できん

>>167
別に俺はプロじゃねーし。
まぁプロが行番号なんか使ってたら俺ら素人に笑われるわな。

html 用の色指定　#FF00FF　とか　#EE82EE　を

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

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

えっ

何をしたいのかわからないけど
16進数を10進数にする

CLng("&H" & Value)

>172
謝謝、男毛先

>>168
データベースの2次元配列構造を使用する時には、
range.row や range.column を多用するぜ。
と言うか、可読性や速度を考えても、遠回りじゃなくて直線的なロジックだよ。
列は固定で行は変動する場合とかね。

for i = 1 to range.row なんかも欠陥プログラムって言われてる？

>>174
>>168じゃないが
rangeオブジェクトから行番号や列番号なんてただの数値を取り出して、その数値をもとにどこのブックのどこのシートのCells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
Rangeオブジェクトならどこのブックのどこのシートかなんて内包されてるんだから、それを利用するのが当然だろう
for i = 1 to cells(rows.count,1).end(xlup).row
なんてのは欠陥というより下手くそだね
セレクトするコードと目くそ鼻くそだよ

>>175
目くそ様乙であります！！

>>175
引用間違ってるよ。

使い捨てのマクロでそんなことにこだわる必要はないが
他人にも使わせるツールなら意識して欲しいかな

しかし、>>151の内容はVBAの必要なくね？
ワークシートにVLOOKUPで十分

>>178
たしかに今考えればいならいような気がします…

連投すみません。
さっき、いらないような…と言いましたが、番号が見つからない場合に
MsgBoxでエラーを出したかったんです。
それと、VBAで書きかったっていうのがありまして。

>>178
他人に使わせるだけのマクロなら汚くてもいいんじゃない？
分る人にソース見られたとき困るだけ。

個人的には lookup系は使わずVBA
それ以外はセル操作で出来るのなら極力
VBAを使わないというのが好き

>>151にVLOOKUPはないね。
使い捨てブックならかまわないけど。

下記で右辺の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

>>184
文字列を渡してどうする

>Cells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
まじか。
俺はOffsetはその値に達するまで内部でループするから遅いだろうと考えていた。
たとえば、
L = 60000
Offset(L)は６万回ループするが、
Cells(L, 0)なら一発でその場所に移動できるのだと。

>>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

>>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

selectしなくてもいいじゃん

>>186
ひどい勘違いだな
内部でループなんかするわけないじゃん
とにかくCellsを多用するコードは不細工だ
事前バインドの方が楽で簡潔

DBをExcelに展開して作業するんだけど、offsetだけじゃ無理。
cells(foundcell.row,1).value
とか普通に使ってtる。

参照設定

なんだか、アーリーバインディングを勘違いしてる奴が居るな。
難しい言葉を使おうとしなくていいんだよ。

Range.CopyFromRecordset

>>193
勘違いしてねーよ。
アーリーバインディングの方がコーディング楽だろ？
お前Cells使ってるのか？

ログデータから取得したリストがあり、頭に種別を表す連番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 = (参照式)

すみません。途中で書き込んでしまいました；

それぞれの種別表の頭を揃えるには、どうしたら良いでしょうか？
今のところ、それぞれの表でソートをするしかないのかと考えていますが、
状況によりログのリストがどれぐらいの長さまで伸びるか読めないため、
かなりの幅を持たせないといけないので、その表の直下を使えなくなってしまうのが難点です。
何か良い方法があれば、よろしくお願いします。

今、画像の表示（サムネイル一覧）や変換（BMP→tiffなど）するソフトを
VBAで作ることを考えています。

画像の表示は、ともかく変換をどうすれば良いか検討がつきません。
ｱﾄﾞﾊﾞｲｽ何か頂けないでしょうか？

OS：WindowsXp Excel：2000

>>196

Range("A65536").End(xlUp).Select

>>199
2007から行数変わったじゃん

行数、列数が拡張されたのは2007の時だけじゃないし
Rows.Countでそのシステムの最大行数が求まる

フォームに入力された値で数値計算をするプログラムを組んでいます。

’各テキストボックスが空欄だった時の対処
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まで半角数字なのに"半角数字で…"のエラーが出ます。
半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？

ttp://homepage1.nifty.com/rucio/main/technique/InputChk2.htm

>>203
ありがとうございます！参考にさせてもらいます！

>>195
やっぱり勘違いしてるね。

しつこいやっちゃなぁ。
実行時バインドのコードばっか書いてる三流プロか？

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

言っとくけどCellsは事前バインドだが、Cellsの後ろに隠れてるItempプロパティ(実際は_Dedaultプロパティ)が実行時バインドね。

Selectionを使うのは実行時バインド？

(cは事前バインド)は(cもOffsetも事前バインド）だった。

>>209
Selectionをそのまま使えば実行時バインドだよ。
ただしSellectionを任意の変数(たとえばセル範囲ならRange型の変数)に格納してその変数を使えば事前バインド。

不細工云々はどうでも良いんだけど、
column固定でrowはfoundcellの場合、どうすりゃいいんだよ。

>>212
161じゃないけど、発見した行の4列目ならfound.EntireRow.Cells(4)ってことかな？
しかしまぁ>>151は検索範囲がB列と書いていながら、実際のコードは何故か
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
と全セルになってるな。

>>151をよく見ると心配な点がいっぱいあるね。
技術検索番号ってまさか単純な数字じゃないだろうな。
LookAt:=xlWholeを書いてないと1で10とかも引っ掛かるかるしなぁ。
Withも意味なしてないし。

>>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

としています。特にエラーは出てないんで、大丈夫そうなのですが…
もし何かありましたら宜しくお願いします。

>>199
ありがとうございます。
End()を使ったことがなかったので少し手間取りましたが、希望通りの動作をしてくれました。

>>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の部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。
気になるなら別の変数にすればいい。

おっとfound.Row(6).Valueは間違いね。

>>207
お前、オブジェクトとプロパティが良くわかってないだろ

またへんなのが出てきたな。↑
例えばCellsはRangeオブジェクトへの参照を返すプロパティーさ。

>>219は自分は何でも分ってて、他人は分ってないと思ってる基地外だな。
もういいから引っ込め。

取り込み中のところすんませんけど、一つ教えてください

Excel2007
MsgBox "〜" ←このメッセージの部分の文字に色を付けて表示したりする事って出来ますか？

出来ないと思う。

http://www.h3.dion.ne.jp/~sakatsu/ktMsgBox_Syntax.htm

ここのアドインを試してみたら？

>>223
教えていただき、有難うございます！
調べてみます。

俺はVBAは結構できると思っていたが実行時バインドとかまったく意識していなかった。
今日は勉強になった。

>俺はVBAは結構できると思っていたが

多分激しく勘違いしてるんだと思ふ。

俺も仕事でVBAを4年ほど使ってるけど、まだまだ知らない事が多いんだなぁ。
とつくづく感じた。
VBAが馬鹿にされてるんじゃなくて、俺が馬鹿だったんだ。

事前バインドは実行時バインドより速いって認識でいいの？

>>228
大体そうだが逆もある。
たとえばRange("A1")とCells(1,1)は１個の処理なら実行時バインドの後者が速い。
ただWithでくくって多くの処理を行うのであれば事前バインドの前者が速いけどな。
速い遅いより、事前バインドならピリオド打って頭の数文字を打てばその打った
文字から始まるメンバが出てくるから、そこから選べばいいから長いメンバ名のときは楽だな。
だからWith Selectionとして多くの処理をするより、適合する型の変数にSelectionをセットして
With 変数とした方が楽だよ。

上のピリオド云々はVBEのオプションの自動メンバ表示にチェックがついてるときの話ね。

いい加減、お前うざいよ

同意。

ﾊﾞｲﾝﾄﾞｦﾀ･･･ｲﾗﾈ

別にうざくはないが

>>220
で、何を何に「バインド」すんの？

VB(A)の世界では、Dim a As Rangeなどと、変数宣言時にオブジェクトの型を指定するのが
事前バインディング、Dim a As Objectと総称型で宣言し、Set a = ...と実行時に変数に結びつけるのが
実行時バインディングというのが普通で、上で言われてるような文脈で使われるのは
初めて見た。
あってるのか、間違ってるのか知らんけど。

ちなみに、コンパイルする言語では、コンパイル時に呼び出しを決定できるものが事前バインディングで、
実行時にしか決定できないものを実行時バインディングという。

付け加えると、VBAでは一般に事前バインディングの方が速いというのはその通りで、
オブジェクトを変数に代入しておいて使う方が速いというのもその通り。

ただ、「Selectionをそのまま使えば実行時バインドだよ。」という言い方は初めて見た。
このような使い方をするのかどうかは知らない。

測ってみればいいのに。基本は実測だよ。

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)を使わない奴は馬鹿。

それやってないけど、r.valueが最速だろ。

つーか、>>207で最後のコードが速いのは、事前バインドなんか全然関係なくて、
cells(i,1)でrangeオブジェクトを参照するより、for cell in rangeで参照した方が速いってだけじゃね？

古いＰＣだが

11sec: s = Range("A1").Value
05sec: s = Cells(1,1).Value
04sec: s = r.Value

横からすみません。分かりにくい点が多数あると思いますがお願いします。

　　　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になれば検索終了です。

このようなシステムは可能でしょうか？
また、可能ならヒントを頂けると嬉しいです。宜しくお願いします。

ちなみに、
りんご＝１
バナナ＝２…　という関連付けはすでにしています。

>>239
>>207で速さのことなんか何にも書いてないじゃん。
不細工かどうかだろ？

>>241
他人に上手く説明できないことは、自分でも理解していないことである

エスパーの出番だな

概してExcelに検索処理をさせることが間違いのもと

>>241
ようするにナップザック問題の亜種だろ
リンゴが99個で最初にとおるを選んだとき、残りの個数は割り切れない数になるけど、そういう時はどうすんの？

>>247
ここではリンゴとしましたが、実際はトン（ｔ）で計算します。
小数点以下も考えるので、99×0.73＝72.27（ｔ）が次の人へ…となります。

説明不足でした。申し訳ありません。
ナップザック問題というヒントを参考にさせてもらいます。

下記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

>>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

あと、質問するときはもうちょっと文章を丁寧に書け。
「やりたい」「できない」だけじゃ質問になってない。
テンプレも使うこと。

>>250
ここにテンプレあったか？

>>251
>>2

>>250
ありがとうございます。
気をつけます。

tes

ＶＢＡ初心者ですが、実行時バインドってなんですか？

また、エクセルで「現在アクティブなブックの一つ前に
アクティブだったブックのname」を取得するコードを教えてください。

Excel2003 windows xpです。
今まで勘違いして
activewindow.activatepreviousで取得していたんですが、
複数ブックが開いているときはだめな時がありました。

ひとつ前のブックをアクティブにしたときに名前取得すればいいんじゃないの？

下記(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

>>258

発想がスパゲッティだなｗ
フラグ持ってけ。

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
ではだめでした。
コード自体が長いのでこのような質問になり申し訳ありません。
よろしくお願いします。

goto
もしくは関数ごとつくる

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をいれないといけないけどね

>>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

>>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

>>257

例えば、現在アクティブなbook2（マクロを登録してあるファイル）の
中のマクロで、ひとつ前にアクティブであった
book1（いろいろなファイル）に対して操作を行う時に、
nameが固定されていないbook1をアクティブにする方法です。

それが分からないのでnameも取得できませんでしたが、一応自己解決しました。
丸一日かかってやっと思いついたのが、
「現在アクティブなブックのウインドウを最小化する
とひとつ前のブックが自動的にアクティブになる」
というエクセルの動作を利用してみました。

もうひとつ質問なのですが、
メニューバーへボタンを作って
そのボタンからマクロを実行するアドインを
作って実装させているんですが、
計１０台くらいの仲間に実装したのに、
何日かしたら数台のＰＣでボタンが消えていました。

ツール　→　アドインで調べてもアドインファイルにチェックは
ついたままになっているんです。


ちなみにチェックを外してＯＫボタンを押すとエラーになりました。
アドインのメニューボタンだけが消えてしまった状態なんですが

ボタンをdeleteするプログラムを含むプログラムを
実行していないとしたら、
ほかにどんな原因が考えられるのでしょうか？

>>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を最後に開いたら駄目だね

>>267
book3,book4,book.......と複数ブックが
開いている状態でbook2(マクロを登録したファイル）をアクティブ
にしてその中のマクロを実行するときに
ひとつ前にアクティブだった任意のブック(book1 or book3 or ......)
をアクティブにする方法です。
activewindow.activatepreviousではウインドウが開いた順番をもとに
ひとつ前の番号のウインドウをアクティブにするだけなので、

ひとつ前の番号のウインドウ　＝　ひとつ前にアクティブだったブック

とは限らないケースがあり、マクロ実行時に思惑通りの動作を
してくれなかったのです。

>>268
VBA単独でやるなら、すべてのブックにマクロを仕込んで、それぞれ自分がアクティブになったら
名前をどこかに記録しておく、みたいな方法かなあ。
俺ならウィンドウメッセージをフックして、アクティブになったウィンドウを記録するような常駐ソフトを作る。

そもそも仕様が腐っとる。

パソコン環境が貧弱な頃から積み上げた成果でしょ

>>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

アンカーみすった
>>268
だったです すみません

初歩的な質問ですが､
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

IsArray(buf)はTrueを返すんですけど、
LBound(buf)とUBound(buf)は“配列がありません”と
コンパイルエラーになってしまいます。

自分でrangeって宣言してるんだから
配列じゃなくて、rangeでしょ

Sub test()
Dim buf
buf = Selection
Debug.Print UBound(buf), LBound(buf)
End Sub

>>277
これ、エラーになりますよね？

あ、失礼しました！Variantだと配列ってことでしょうか？
でも、Rangeで宣言してIsArrayでTrueを返すのは
どういうことなんでしょう？
すみません・・・すごく初心者な質問ばかりで・・・orz

>>279

あやまる気があるなら自分で調べろ。

>>264
ありがとうございます。

http://www012.upp.so-net.ne.jp/scotchegg/ExcelVBA/Range/Value.htm
似たようなもの見つけました。
やはり配列で、最小インデックスは1ということのようですね。
試験でbuf(1)の値は何か？という問題が出て、
配列なら0から始まると思い込んでて間違えたものですから・・・。
お騒がせしました。

配列とは思って無かったItemを省略した書き方って感じで
下の場合はobj.item(2)と同じ
Public Sub ItemTest()
Dim obj As Range
Set obj = Range("B2:C3, D5")
MsgBox (obj(2).Address)
End Sub
だから最小インデックスは1なのかなと思う

VBAのメソッドやクラスのドキュメントてMSDNにないの？
全網羅してるやつ。。

ある

IEのフォームにセルの値を次々に入力して検索結果を別セルに転記する、というマクロ作っています。
入力内容によっては「Windows Internet Explorer」というタイトルの警告ウィンドウ（ボタンはOKボタンのみ）が
出てしまいます。
このウィンドウを閉じれば次のセルの値は問題なく入力、検索できるのですが、
このウィンドウを閉じるにはどうすればいいでしょうか？

警告ウィンドウが出てるかどうかの判断の仕方もあわせて教えてください。

逆に質問ですけど、JavaスクリプトでExcelに書き出してるの？

質問取消します
読間違えました

宜しくお願い致します。EXCEL2000です。

「サンプル写真」という名前のフォルダの中にある、
セルA1に書かれている数字のjpgファイルを開く。

というマクロを何とか作りました↓。

Sub テスト()

ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\a\デスクトップ\サンプル写真\" & Range("A1") & ".jpg"

End Sub

一応動くのですが、実行するとインターネットエクスプローラで開いてしまいます。
拡張子の関連付けでは、他のソフトで開くようにしいるので、
そのソフトで開けるようにしたいのです。

開くjogファイルを開くプログラムを指定するにはどうすればよいでしょうか？
宜しくお願い致します。

>>290
http://homepage1.nifty.com/MADIA/vb/API/ShellExecute.htm

>>291
遅レスすいません。アク菌にまきこまれ返信できませんでした。
解決しました。
本当にありがとうございます。
感謝

csvファイルをインポートではなくダブルクリックで開いた場合、
例えば「12-11」というデータは「11月12日（中身は40494）」に変換されてしまいますが、
これをマクロで12-11に戻してやる場合にはどういう方法がいいんでしょうか？

ちなみにその列は「数値-数値」の形ではない文字列も含まれていますので、
書式の取得からやらなければいけないと思います…

その処理を入れようとしているのは行数分回すfor文の中です。
よろしくお願いいたします。

>戻してやる場合にはどういう方法がいいんでしょうか？

考え方が違う。
EXCELに展開するときに処理することを考えるべし。

>>293
その場合、元のデータが「12-11」だったのか「12/11」だったのか「12月11日」だったのか
判断する方法はないので元に戻すこともできない。
あとから修正するんじゃなくて、最初から別の方法で読み込むこと。

>>293

発想が腐っとる。

>>295
住所のカラムなので日付が入ることはないんです

>>296
腐敗しとります

ああ、.textに"月"と"日"が含まれてたらそれぞれの前の数値を抽出して並び替えればいいのか

お騒がせしました。ちなみに俺は「取り込むときに処理しないとまずい」とちゃんと提言しましたよ？
腐敗してるんですよ

>>297
そういう重要な条件を後出しするんじゃねえボケ

>>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してやるとまた日付形式に
戻っちゃうんです。なんなんだ…泣きそうｗ

ああ、
If InStr(Address2, "月") + InStr(Address2, "日") <> 0
ではなくて
If InStr(Address2, "月") <> 0 And InStr(Address2, "日") <> 0 Then
じゃないとまずいですね。NORが無いのは残念だ

こうやって糞シートが出来上がっていくんですねｗ

>>302
ベストな解答頼む

結局どうせごり押しなら
Cells(i, 8).NumberFormat = "m-d"
で通しちゃうことに決めました
これだと日付形式じゃないものはそのままですし

>>302
俺からもお願いします

Excelは青色申告用ソフトであって住所録じゃないんだからそういう使い方自体が間違ってる

>303-304

つ>294-295

それがベストな解答？

Excelって青色申告用ソフトだったのか。長年使ってて初めて知った。そういう用途には一度も使った事ねーや w

webクエリで勝手に保存されてしまうアドレス群の中で、不要な物が多すぎるので消したいんだけど何か方法ないですか？
ＶＢＡ使うやり方でも使わないやり方でもなんでもいいです。

マクロを実行して
途中でエラーになった場合
VBAの画面が開かれるのですが
これを開かずに実行に失敗した事だけを伝えるのってどうすればいいのでしょうか？

On Error Resume Next とか

>>308
まあExcelは違うわな
パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから

>>309
必要か不要かを機械的に判断するロジックがあれば可能
人間が見ないとわからない物は手作業で消すしかない

VBはマイクロソフトが開発したわけではなく
他社が開発したものをマイクロソフトが買収したもの

>>313
レスありがとう、手作業での消し方すらわからんとです。

>>305
住所録として使っているわけではありません
csvにマクロを適用させるアプリとして使っているのです

>>306
だからその案は却下されたんですって言ってるじゃないですか
なんだ、がっかりです

>316
>だからその案は却下されたんですって言ってるじゃないですか

そうやって例外が例外を産み、糞シートが出来上がっていくのだよ。
>294-296がベストな回答だと思うがな。

>>317
自覚のない素人に何を言っても無駄

仕事でこんなことやってるってのにはﾋﾞｯｸﾘした

だめだこいつｗ
293は限定された条件の中でのベストな回答を訊いてるんだろうに。
その条件自体に文句つけてどうする。
サッカーやるのに「手を使えないのがおかしい！」って言ってるのと一緒だ。

>318

そういうくだらないことやってる会社って結構あるけどなｗ

文字列データを「"」でかこってないCSVをダブルクリックでまともに開きたいってだけでしょ
開いた後で自動なり手動なりでマクロから読み込み直しさせればいいだけじゃないの？

>>312
> >>308
> まあExcelは違うわな
> パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから

都合のいいところでお前のパソコンの歴史が始まったらしいな。
そんな話聞いたこと無いぞ。

パソコンは戦争目的じゃなかったか？
弾道計算か何かだと思う
表計算ソフトは
ttp://ja.wikipedia.org/wiki/VisiCalc
だとさ。金融がどーとかで税金かどうかまでは分からないが、
まあ似たようなものといえなくも無いが間違ってるとも言える
ってかどっちでもいい

なんかちょっとだけ盛り上がってますね。すみません

>>321
ああ、それがベストですね！
ルールを変えろ、って言ってる人は意味がわかりません
変えられない前提だって言ってるのになあ

サッカーボールを手で運べ！

ラグビーの発祥です

なるほど

どんな書類でもエクセルで作りそうｗ

フローチャートをエクセルで作るウチの会社のことだな
俺は個人的なチャートならイラレで作ってるｗ

アプリなんてどんな使い方してもいいよ
本来の目的からずれてようが、便利なら使えばいい

webページから一部分だけエクセルに取り込むコード作りたいんだけど、webクエリだと大きく取り込んでしまうので困ってます。
具体的には、ヤフーファイナンスからコードと社名と業種だけ(他はいらないです)欲しいんだけど、そういうピンポイントで取り出すみたいな事出来ますか？

また、そういうデータ取り込み系統の技術を得るための参考書籍とかあったら紹介して下さい。

>>331
Webクエリなら特定のテーブルだけを取り込むこともできるけど、
ヤフーファイナンスはページ全体が大きなテーブルになってるから一部を取り出すことはできない。
こういう時はページのソースを文字列変数に読み込んで、
タグなどを調べながら必要な部分だけをセルに入れることになる。

あと、やりたいことがピンポイントで決まってるなら書籍よりGoogleで検索した方が早い。
サンプルも必要な部分をコピペするだけだし。

レスありがとう。
自分が目指してるのは、多分こういう感じのを応用させるんだろうなとは思ってるんだけど(下、動画のアドレス)
ttp://www.youtube.com/watch?v=MVsh1XnfYOw

だんねんながらＶＢＡスタンダード程度のレベルでは意味不明でしたｗ

>>333
その動画サイトからソース置いてあるページにリンク貼ってあるし
ダウンロードして改造して使えばいいじゃん。
そのビデオ見てわかんないんだったら、ここで同じこと説明しても
やっぱりわかんないんじゃないの？

企業コードが知りたいだけなら、そういう一覧表がきっとどこかにあるはず。
検索してみたら？

>>331
新・ExcelVBAで極めるシステムトレード 〜最強パワーアップ編

正規表現による取得方法を書いてる

>>331
Sub test()
Dim URL As String
Dim WebTbl As String

URL = "URL;http://quote.yahoo.co.jp/m3?u"

' 読み込むテーブルNoを指定する
WebTbl = "4"
With ActiveSheet.QueryTables.Add(Connection:=URL _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.WebTables = WebTbl
.Refresh
End With
End Sub

ちょっと違うかな？

>>331
ごめんorz
ちょっとどころか全然違ったねｗ

VBAでJavaにおけるExceptionみたいなものってあるのでしょうか？
つまり何らかのエラーがおこった時点でどのメソッドに強制的に移動するみたいな感じで

色々レスありがとう。
エクセル入ってるのが2ndＰＣなので後でコードコピーして試してみる。
あと、オススメ本は明日本屋で探してみます。

コレで勉強してたんだけど、少し不足を感じてたので助かったわ。ちなみに誤字脱字も多いしあんましオススメしない。
ttp://www.tradersshop.com/bin/showprod?c=9784775990391
ttp://www.tradersshop.com/bin/showprod?c=9784775990513

〜　Range("K" & Rows.count).End(xlUp)
みたいにK列を固定させているのですが
こう書いた場合Excelのシートを列削除したり追加したりするたびに
書き変えなきゃいけないのですが
列を追加したりすると自動的に変更って出来るのでしょうか？

>>340
目的の列を探すコードを追加すればいいんでない？

>>340
下記どうでしょう？

案１
Range("K1").End(xlUp).Offset(r, c).Value
r, c に増減した行・列の数を代入すると、
移動した先のセルでValueなどRangeの機能を使えます。

案２
ターゲットのセルがsheet1のD1であるとする。
sheet2のセルA1に式"=Sheet1!D1"を記入する。
VBAからは、常にsheet2のセルA1を読む。

例えば、列Bを削除してセルD1がC1に移動した場合、
sheet2のセルA1に記入してある式は、
自動的に"=Sheet1!D1"から"=Sheet1!C1"に変わって追いかけてくれる。

初心者質問でごめんなさい

for i = 1 to 33
良くある構文ですけど、iの値を16進法で返す事って出来ますか
9の次は10でなくてＡで返したいんですけど。

Hex(i)
ってするってこと？

質問させてください。
Excel2000でSortメソッドを使うVBAコードを走らせているとき、
そのExcelウィンドウをバックグラウンドにすると、Sortメソッドの部分だけが滅茶苦茶遅くなります。
（計測するとフォアグラウンドの時と比べて１０倍くらい時間が掛かる）
フォアグラウンドに切り替えると高速に動作します。

環境はXPpro、Excel2000で、Core2Duo・Corei7 いずれのＰＣでも再現します。
パフォーマンスオプションはバックグラウンドサービスに設定しています。

これって仕様なんですかね。Excel2003や2007だと改善されていますか？

>>344
ありがとうございます。恥ずかしながらHexという関数を始めて知りました。
出来ればストレートに大文字で返して欲しいですけど、これでかなり楽になりました。

>>340
K列またはK列の一番後ろのセルに名前をつければいいんじゃね？

>>340
>>341もいいね。
行追加がないものとして、列見出しが"日付"だったら
Set target = Rows(1).Find("日付").EntireColumn.Cells
MsgBox target(target.Count).End(xlUp).Address
とか
行追加があるならRows(1)をCellsにでもすればいいだろう

セルの計算式を下記のようにして

=TEST()

標準モジュール関数TESTを呼出した場合、関数側で
呼出し元のセルの位置を取得するにはどうしたらいいですか？
アクティブセルの位置ではなく、関数呼出しの計算式が
書かれているセルを知りたいです。

Windows7、Office2007です。
よろしくお願いします。

>>349

関数の引数にRow,Column

ttp://www.ne.jp/asahi/hishidama/home/tech/excel/workfunc.html#Application.Caller

>>350>>351
ありがとうございます。

Application.Caller　と　Application.Volatile　を使い
それらしい動きにはなったのですがセルの再計算時の挙動に
癖がありますね。
別シートをいじってからシートを切り替えると#VALUE!になって
しまい、元のシートで再計算しなおしてやらないといけません。

関数を諦めて計算式で全部やる方向も検討してみます。

C

A
B
D
F

ソートの話が出たので便乗するんだが、
結局、どのソートが一番速く安定性があるのか。。

エクセルのVBA限定の話で、
項目数が100程度の場合、項目数が100,000の場合、ほぼ並んでいる場合、まったくのランダム。
状況によっていろいろあるんだろうが、とりあえずこのソートをよく使うっていうのを教えてくれ。

エクセルのVBA限定の話ならエクセルのソートをまんま使っちゃう
中身がなんなのかは知らんｗだれか知ってる？

クイックソート

一般機能優秀じゃない？
わざわざコードを組むより、一般機能や関数を使った方が早い場合が多い



・・・とどっかに書いてあったｗ

>>345のような現象は自分だけなのかな？
仕様ならばSortメソッドを使わずにソートするしかない

Sortメソッドの場合、常にエクセルをアクティブにしていれば問題ないけど、
エクセルを複数起動して同じコードを並列処理させる場合、
アクティブなエクセルでは問題ないけど
他の非アクティブなエクセルは極端に遅くなってしまう。

先月自作のエロ画像処理ツールでクイックソートを使ったよ。
理由は使ったことが無かったから。
ソートのプログラムを書いたのは後にも先にもこれだけ。
DBのorder byとかエクセルの並べ替え機能さえ使えればプログラムで書くことはまず無い。

>>358
自動計算や画面更新を止めてもおそい？

構造体の配列例えば、生徒（学籍番号、名前、身長、体重）を体重で並べ替える場合って
学籍番号や名前や身長も全部入れ替えるの？

入れ替えないとデータが壊れるでしょ

>>362
別の配列に学籍番号だけを取り出して
ソートしてもとの配列と紐付けるとかはあり？

学籍番号、名前、身長だけなら入れ替えてもいいけど
他の項目が100個とかあったら大変じゃね？

>>360
もともと自動計算も画面更新も止めてます。
Sortメソッドを含むVBAコードがアクティブなエクセル上で高速に動作してる最中に、
デスクトップをクリックしてエクセルを非アクティブにすると、途端に実行速度が十分の一ほどになる。
再度エクセルをアクティブにすると高速に動作する。という状態です。

XPでExcelは2003を使用しています。
VBA（マクロ）を触りだして3日程です。

ブックA（1日の記録）　ブックB（数ヶ月のデータ・縦に日付、横に種類や個数等）
ブックAの日付入力箇所に、日にちを打ち込みます（マクロでは無く手打ち）
ブックAのデータ入力箇所に、ブックBのデータを引用する為に
ブックAを開いた状態で、「マクロを記録する」で
ブックBを開き、ブックAに戻り手打ちした日付のセルをコピーして
ブックBに移動して、ctrl+Fでコピーした日付を貼り付けて検索
検索した右側に、必要なデータがあるので、キーボードで右側を押して
目的のデータ（種類や個数等）をブックBからブックAにコピーしてペーストを繰り返す
（繰り返す理由は、必要なデータが飛び飛びな為と、横に並んでいるのを縦に並べる為）
コピペ終わると、ブックBを閉じる。

というマクロを作ってみたのですが
日付を変えて実行してみたり、VBA？を見てみると問題点が沢山ありまして
問題点1、Aで日付をコピーして、Bで検索時にペーストして検索する所で
2010/1/1をコピーして、マクロを作った為か
日付を2010/1/2に変更してマクロを実行しても
2010/1/1で検索した、データを引用してしまう

問題点2、検索した日付の横のデータをキーボードで右側に移動してコピーの部分で
VBA？で見てみたところ、単純にあるセルをコピー　となっているようなので
日付の問題が解決しても、検索した日付の右側ではなく
あるセルをコピーしてしまう為、日付とは関係の無い特定のセルをコピーしてしまう

色々試したり、VBAで見たところ
問題点1は、検索時にコピペした日付では無く、マクロを記録した2010/1/1で検索しているので
日付を変更しても意味が無い？若しくは、検索自体がマクロで出来ない？
問題点2は、キーボードの右等の操作は記録されない
検索ではなく、オートフィルタを使い、特定の日付を1行だけにすることにより
行移動を無くせば解決？

自分がしたい事を簡単にまとめると
ブックAに日付を入力後、マクロ実行
ブックAに入力した日付に対するデータを
ブックBから引用

日付等は、=today()　で入力したいのですが
ブックBのデータを引き出す為の、日付の部分が
2010年1月1日が、20100101　となっているので
オートフィルタでデータを絞る為にも、20100101　というデータが必要なので
日付は手入力という手段しか無いと思いました

後は、ブックBをオートフィルタで絞りこんだとして
データをAに入力したら、ブックBを閉じたいのですが
オートフィルタを実行した後だと、「変更を保存しますか？」と
窓が出てくるので、出てこない様にするにはどうしたらいいのでしょうか

長くなって申し訳ないですが、よろしくお願いします

少しは自分で書く努力しようぜ

year関数、month関数、day関数
オートフィルタは2種類
アプリケーションアラートの停止

>>368
その辺りを、調べてみますありがとうございました。

テキストボックスにInteger型のデータと文字列を結合して表示させたいのですがどう打ち込めばいいでしょうか？


イメージ的には


textbox1.text = integer型のデータ + "文字列"


としたいのですが

>>370
integer型のデータ & "文字列"
じゃ駄目か？

>>371
出来ました
ありがとう

ソートの話の続きなんだけど、
一次配列100個の右４文字を昇順でソートするっていう場合は記述するしかないんじゃない？

>>373
セルに入れたくないならそうだろうね
でもエクセルを使ってるからには
どのみちセルにぶち込むデーターなんだろうし
右４文字を取り出した列を作ってやればいいんでない？

なぁ、EXCEL2000から2007に最近環境を変えなきゃならんオレに
表示とか環境設定みたいなのどうしてるか教えろ。

取り敢えず立ち上がったところから気に喰わないし自作DLLは変な文字吐くし泣けるんだわ。
他のスレで聞いてもいいんだけどVBA使ってる人に聞いてみたいんだ。
デフォルトのに慣れろってんならそうする。

>>375
2003と同じツールバーを出すサードパーティーのアドインがあったよ
即効で使わないといけないならとりあえずこれ
最近チェックしてないのでなくなってたらゴメン


2007に移行した人に聞いてみたら慣れたら2007のほうが使いやすいって言ってたので
時間的余裕があるなら耐えて使うかなｗ

うちもまだ２００３でふんばってまふ

Office 2007にOffice 2003互換メニューを追加する
ttp://www.atmarkit.co.jp/fwin2k/win2ktips/1173oldmenu/oldmenu.html

↑を入れてるw

まあ、2010も同じ形式なので、諦めて慣れた方がいいような気もするけどね

とっくの昔に2007になれた。
2007のほうが使いやすいんだが、周りの全員がオレに聞いてくるのでうっとうしい。

>>376-378
サンクス
フリーのアドイン見てみたけど、MSは基本このまま使えって言ってるって事みたいだね。
最初見たときマジでOOoに乗り換えようかと思ったわ。
XPの頃のPCがそろそろ更新のサイクルに来てると思うんだけど乗り換える人もある程度出てくるんじゃね?

まああ、VBA関連のコードも書き換え(1から作り直し？)無きゃならんしオレがUIに慣れる方向でやってみて、
同僚の反応とか聞きながらこの先の事は考えてみるわ。

>>379
そらそうだろ。知ってるやつ居るならオレも聞きたいわｗｗｗ
てか、どのくらいで慣れるのか聞きたいわ。

あと、DLLのインタフェースにXML使うの実装しといたの思い出したらなんとかなった。
とにかくサンクス。

2003と2007の両方入れてる
常用は2007なんだけどマクロの記録がタコなんでどうしても2003は消せない
UIは慣れるしかない

>>364
アクティブでないアプリケーションの処理が遅くなるのはWindowsが
そういう風にCPU処理を配分してるからでしょ。システムのプロパティで
裏のプログラムも同等に処理するように設定したら？

その代わりアプリが表側に来てるときの処理速度は落ちるけど
PCの性能が無限でない以上仕方ない。

>>383
デュアルコアだと快適になるかな？

ダブルクリックで複数立ち上げるとエクセル本体は一つしか立ち上がらないので
マルチCPUでも一つのコアしか使ってくんない

スタートメニューからエクセルを必要数起動しエクセルからシートを読み込んでやると
別プロセスで動くので各コアに分担させることが可能
割り振りはたすくマネージャから手動で変更可

これでどれだけ快適になるかはやってみなきゃわかんない
よほど処理時間長いものじゃなきゃごちゃごちゃやってる間に終わっちまうしな

指定のzipファイル内にあるcsvファイルを配列に落とすにはどうしたらよいでしょうか
配布の都合上外部DLLは使用出来ません

自己解凍ファイルにするとか

>>386
きっとそのzipファイルは変えられないんでしょ。
XPならzipって標準でライブラリなかったっけ？
外部dllには違いないけど、それ読み込んで解凍させるとか。

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

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

OS:windows
Excelバージョン:2003
条件付き書式を設定していくマクロについて質問です．
[問題]
C1:E3の各セルに文字 aもしくはbもしくはcが入力されているとします．
このときA1のセルにa,A2のセルにbが入力されたとき
C1:E3の各セルでaもしくはbが入力されているセルのみ背景を赤にしたいのですが
どうすればよいでしょうか？


[自分なりの解答]
以下のような条件付き書式を各列で設定していくマクロを作ってみたのですが、
$C$1のところが$C$1〜$E$1とすることができず詰まっています．．．


Do Until ActiveCell.Value = ""


Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2,$C$1)>=1"
Selection.FormatConditions(1).Font.ColorIndex = 2
Selection.FormatConditions(1).Interior.ColorIndex = 3
ActiveCell.Offset(1).Select
Loop
End Sub

こういうことか？
Sub test()
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 3 To 5
If Cells(i, j) = Cells(1, 1) Or Cells(i, j) = Cells(2, 1) Then
With Cells(i, j)
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
End With
End If
Next j
Next i
End Sub

>>390
よくわかんないけど
Sub testestes()
Dim myRange As Range, r As Range
Set myRange = Range("c1:e1")
myRange.FormatConditions.Delete
For Each r In myRange
r.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2," & r.Address & ")>=1"
r.FormatConditions(1).Font.ColorIndex = 2
r.FormatConditions(1).Interior.ColorIndex = 3
Next r
End Sub

>>390
条件付き書式を間違ってないか
C1は=COUNTIF(A1:A2,C1)>=1で
E1は=COUNTIF(A1:A2,E1)>=1といれるべきだと思う

>>391-392
レスありがとうございます．
お二人のおかげで作りたいものができました．
勉強になりました．本当にありがとうございます．

>>393
レスありがとうございます．
ご指摘のとおりです．
>>392さんのレスに有る
＞ & r.Address &
のような方法を探してました．

レスくれた方ありがとうございます。
上手く伝わりませんが、>>345で書いた通り、

ＰＣはデュアル又はクアッドコアで、システムのパフォーマンスオプションはバックグラウンドサービスに設定。
エクセルを複数起動して並列処理しており、ウィンドウが表でも裏でも全て高速動作してる。
画面更新や再計算停止等の高速化は実施済み。
ただし、VBAコードの中にSortメソッドが含まれており、かつ非アクティブウィンドウである場合に限り、Sortメソッドの処理が極端に遅くなる。・・・という事です。

>>385の方法をスクリプトで自動化してるので、Core i7でExcel2000を８つ起動して同じコードを走らせると８コア100%までぶん回して高速に演算できてるけど、
Sortメソッドを使うとそこが激しくボトルネックになる。

ちなみに普通にエクセルを１つだけ開いてSortを何万回も繰り返すコードを実行中に、デスクトップをクリックしてエクセルを非アクティブにするだけでも途端に劇遅になる。
これ多分Excel2000の仕様というかバグなんだけど、同じ現象についてはググっても見つからなかったので、これが問題になるほど何時間もぶん廻す使い方がよほど特殊なんだろう。
Sortメソッドを使わない方向で解決する事にします。

すみません教えて欲しいんですが

SET A = Range("B1:E10")
SET X = Range("C5")

のような時に
単一セル X はセル範囲 A の 範囲内にあるかどうかの
判定方法はどうやったらよいのでしょうか？

intersect

>>397
あ！なるほど
ありがとうございました

>>395
何がやりたいのか判らないけどアクセス使ったほうがいいんじゃないか？

それはさておき、こことか。
http://chotosplus.sakura.ne.jp/wordpress/2009/07/16/excel-vba%E3%81%8B%E3%82%89%E5%88%A9%E7%94%A8%E3%81%A7%E3%81%8D%E3%82%8B%E5%90%84%E7%A8%AE%E3%82%BD%E3%83%BC%E3%83%88%E6%96%B9%E6%B3%95%E3%81%AE%E9%80%9F%E5%BA%A6%E6%AF%94%E8%BC%83/

すみません、教えていただけないでしょうか
OS:windows
Excelバージョン:2003
反復型の成績判定で10人分の得点を一人ずつ成績判定を行うプログラムを作りたいのですが、
Sub 反復型の成績判定()
Dim X As Variant
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
Dim hantei As Variant hantei = Array("不可です", "可です", "良です", "優です", "対象外です")
Dim h As Integer
Const n As Integer = 10
Dim i As Integer
Dim tokuten As Integer
For i = 1 To n
tokuten = X(i - 1)
Next
Select Case tokuten
Case Is < 60
Debug.Print Format(tokuten, "#点は ") & Format(hantei(0), "不可です")
Case Is < 70
Debug.Print Format(tokuten, "#点は ") & Format(hantei(1), "可です")
Case Is < 80
Debug.Print Format(tokuten, "#点は ") & Format(hantei(2), "良です")
Case 80 To 100
Debug.Print Format(tokuten, "#点は ") & Format(hantei(3), "優です")
Case Else
Debug.Print Format(tokuten, "#点は ") & Format(hantei(4), "対象外")
End Select
End Sub
これだと68点の成績判定しかされないのですが、どこを直せば良いのでしょうか？

>>400
nextを　end select　の後に移動

>>400
Sub 反復型の成績判定()
Dim X As Variant
Dim element As Variant
Dim hantei1 As Variant
Dim hantei2 As Variant
Dim h As String
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
hantei1 = Array(0, 60, 70, 80, 101)
hantei2 = Array("不可です", "可です", "良です", "優です", "対象外です")
For Each element In X
　　h = WorksheetFunction.Lookup(element, hantei1, hantei2)
　　Debug.Print Format(element, "#点は ") & h
Next
End Sub

え！？hentai？？？と思ってしまった・・・orz

できました！
助かりました。ありがとうございます。

すみません、もうひとつ聞きたいことがあるんですが、
星の表示で1〜ｎ個の＊を順番に表示させるプログラムをつくったんですが、
Sub 星の昇順表示()
'1　〜　ｎ個の”*　”を順番に表示
Dim i As Integer, n As Integer
n = 10
Do
Debug.Print Format(i, "00") & String(i, "*")
i = i + 1
Loop While i < 11
End Sub
これをｎ〜1個の＊を順番に表示させるためにはDo〜Loopを使ってどのように変えればいいのでしょうか？
教えていただけないでしょうか。

>>405
初期値
加算値
終了条件

宿題け？

Dim y As Integer
Dim x As Integer
Dim objTableItem As Object

'.body ‚loop body data
For Each objTAG In objIE.document.body.all
'search for table tag
If objTAG.tagName = "TABLE" Then
'add new sheet
Sheets.Add
y = 0 'row
'loop item in table
For Each objTableItem In objTAG.all
If objTableItem.tagName = "TR" Then
y = y + 1 'row +1
x = 1 'columm=1
End If
If objTableItem.tagName = "TD" Then
'set text data
Cells(y, x) = objTableItem.innerText
x = x + 1 'next columm
End If
Next
End If
Next

このままだと、Excelを使ったIE操作に関する質問です。
website上のテーブルをコピーして、エクセルにペーストしたいのですが、このままではテキストにリンクが貼られていても、
テキストしかコピーできません。
例えば、<a href ="http.....">VBA</a>の場合、テキストのみがペーストされますが、エクセル上でVBAをクリックすると、URLにジャンプできるようにしたいのですが、何かいいアイディアはございますか？

>>406
回答ありがとうございます。
すみません、具体的にはどこをどう変えればいいのでしょうか。
本当に初心者なので、どこをどういうふうに変えたら＊の数が下がるようになるのかわからないんです。

>>407
If objTableItem.All.tags("A").Length > 0 Then
Debug.Print objTableItem.All.tags("A")(0).href
End If
で
http.....
が取得できると思うけど

>405

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

ユーザーフォーム上のテキストボックスに前のデータを表示させたまま下に出力し続けることは可能でしょうか？

>410
仰るとおりです。本当に申し訳ありません。
ただ、時間がなくプログラムもどう変えればいいか全然わからず、丸投げしてしまいました。
厚かましいお願いではありますが、初心者でもわかる範囲でヒントをもらえないでしょうか。
見よう見まねで上のプログラムは組めたんですが、反対に星の数を少なくしていくやり方がどうしてもわかりません。
どうかよろしくお願いします。

>>408
なんかの宿題だろうけど
見よう見まねだとしても
>>405の コードでなぜ星の数が多くなっていくのか
それを理解するのが先だと思う

じゃあ逆に質問
1〜5個の"*"を順番に表示にするには？どう修正する？
実行結果は下ね

01*
02**
03***
04****
05*****

ちなみに下だと失格だよ
00
01*
02**
03***
04****
05*****

>>412
i = 10
i = i - 1
i > 0

Dim i As Integer, j As Integer, n As Integer, s As String
n = 10
For i = 1 To n Step 1
s = Format(i, "00")
For j = 1 To i Step 1
s = s & "*"
Next j
Debug.Print s
Next i
End Sub

そういえば、iとかjとか一文字の変数名はよくないって話はどうなってんの

>414
できました！助かりました!本当にありがとうございます。
>413
i = 1　という条件を付け加えればよかったんですね！
一人じゃ何もわからず、途方にくれていました。本当に助かりました。
ありがとうございました。

>>415
変数名１文字なんてどうでもいい
それよりループ回してs=s&"*"なんて恥ずかしいからやめろ
>>405さえString関数使ってるだろ？

なんで？

01*
02*+
03*+*
04*+*+
05*+*+*

こういうのやる時必要でしょ？

>418

ｦｲｦｲ・・・

For文で変数にiとjを使うのは昔からの慣習なので問題ない

時間がないと言ってるのに>>413はちょっとかわいそうだとｵﾓﾀ

名簿から名前（アルファベット）を拾って
頭文字別の一覧表シートを作成しようとしています。
ソート後に頭文字を
if str[i] == str[i+1]
hoge列に代入
elseif str[i] != str[i+1]
hoge = hoge+1
hoge列に代入
という方法でやろうと思ってるんですが
（if a 〜　if z では長くて面倒ですし・・）
他に方法というかVBA側で用意されてるものってあったりしますか？
リスト構造体的なものがあってそこに文字列ぶちこんで
検索文字抽出→GetNextで抽出文字列を順々に引っ張り出せたりとか・・
そういったものがあったりしないかなぁと思い質問させていただきました。

== → =
!= → <>
に訂正します。
比較演算子がC++になってしまいました・・

>>422
（if a 〜　if z では長くて面倒ですし・・）

の部分が何が言いたいのかよくわからん。
例示されたプログラムのどこにも出てきてないのに、いったい何がやりたいんだ。

>>422

１Byte文字かつアルファベットのばあい。

文字列の先頭１文字の文字コード（アスキーコード）取得して適当に計算して
Ｃｅｌｌ位置に変換してそこにぶち込む。をＬｏｏｐすれば？
カラム方向のカウンタも配列にして。

>>424
if str[i] like "Aa" 〜 if str[i] like "Zz"
ということでした。わかりづらくて申し訳ありませんでした

>>425
やはりLoopで回すのが手っ取り早そうですね。
ありがとうございます。

>>417
別にええやんと思う人間が実はここにもいる。
性能的な違いはある？

>417
>それよりループ回してs=s&"*"なんて恥ずかしいからやめろ

途中の結果も必要なんだから別に恥ずかしいとは思わんが･･･

あ、文字列を作るためだけにループ使うなと言いたいのか。
でもString関数なんて今まで知らなかったよ。

ところで文字を連続させる関数て何に使うんだろうか。

>>429
文字を連続させるために使う。

使いたい人が使いたいときに使う。

例えば*を100個書きたい場合(101個だとダメ９９個でもアウト〜)に
String()を使えば間違わないで書けるとかじゃろ？

worksheetfunction に　rept ってなかったっけ？

だめだ、同じ文字を10個ならべる目的が思いつかない。
固定だったら"**********"とか書くし需要少なそうだ。

まあ、あるものは使った方がいいのは確かだと思う。
String関数の中でループ処理が組んであるんだろう。

バリアント型 (内部処理形式 String の Variant) の値を返します。
指定した文字コード (ASCII またはシフト JIS コード) の示す文字、または文字列の先頭文字を、
指定した文字数だけ並べた文字列を返す文字列処理関数です。

Dim MyString

MyString = String(5, "*") ' "*****" を返します。
MyString = String(5, 42) ' "*****" を返します。
MyString = String(10, "ABC") ' "AAAAAAAAAA" を返します。

ForとString()じゃパフォーマンスが段違いに違う。
String(999999999,"*")は一瞬で処理されるのに対し、ForはExcel自体がフリーズする。

>>433
目的ですか、うちでよく使うのは
その１、ダミーデーター作成（スペースでいい場合はspace()を使うけど）
　　　　1.1、固定でも２００個とか数えるのやだし
　　　　1.2、固定長ﾃﾞｰﾀを扱うときにあまった領域の埋め草を作るのに使う
その２、CUIで棒グラフ

あとは、なんだろうね、なにかあったような気がするが思い出せない

たとえば

あるLoop処理でｃ言語のTableを作るとかの場合に、
タブを何個挿入するのかをブレイスの深さで変えたい場合、
ブレイスの深さをカウンタにしておけば少し便利かも。
タブじゃなくてスペース４個とかでも同じ。

String(i, Chr(9)) & StringBuff & vbLf

ごめん9が1個多かった

なるほど、固定長データを埋めるときという例はすごくよく判ったし
パフォーマンスが全然違うんだね。ありがとう。

生の固定長データを自分で作ったことが多分ないから気づかなかったよ。

だんだん文字列を大きくしていくのはメモリ確保に時間がかかるからやらないのが常識。
サイズが小さいうちは平気だけどね。

それは何nsの話なのか

小さいうちは数ナノ秒でも大きくなると幾何級数的に時間がかかるよな。

excel2003を使用しています。
ファイルを外部から取り込む際に、ダイアログを使用していますが、
この取り込むときのフィルターのかけ方で、特定の文字列を含むファイルのみ表示することは可能でしょうか？



Filter = "エクセルファイル(*.xls)" & Chr(0) & "*.xls" & Chr(0)


現状はこの様になっており、拡張性がエクセルファイルのものだけを表示するようになっています。
これに特定の文字列を持ったファイル名を表示するという条件を追加できませんか？エクセルファイルで、名前が091201を含むなど

>>441
性能問題起こしそう

"09*.xls"

まぁ、スピードが要求されるならC++でDLL書いてVBAから呼べって話になるんですがね

そういう問題じゃねーのまだ分ってねーの
計算量のオーダが２乗ってことだよ

ほら
1+2+3+...+n=n(n+1)/2=n**2+1/2*n

流れを無視してすみません
VBA初心者ですが質問させてください

Userformでの話なのですが
ボタンが押された際に
TextBoxにセルの値を代入し表示
2秒間隔をあけ、その後フォームを閉じる

という処理を行いたいのですがTextBoxに表示される前にフォームが閉じられてしまいます。
フォームが閉じられる前にTextBoxにテキストを表示させるにはどのような方法をとればいいのでしょうか？

サンプルコードは以下のとおりです。

Private sub CommandButton1_Click()

TextBox1.text = sheets("sheet1").range("A1").value

call delay(2) '2秒ディレイするという命令

Unload Me

endsub

分かりづらいコードで申し訳ないですがご指導のほどお願いいたします。

>>445
ありがとうございます！！

どうしてもその自作関数つかうなら
delayのほうに
閉じる動作書けばいんじゃね

>>447
.NET Framework使えよって話だ

>>449 ontime

VBAで指定されたURLに日本語をくっつけてWebを開く事は出来ますが
そうではなくて
開いたWebページのあるテキストボックスに選択されたセルにある文字列を入力して
ボタンを押下する方法とかはあるのでしょうか？

もしあればご教授お願いします

>>454
Sendkeys

>>449
DoEvents を使ってみるといいかも

TextBox1.text = sheets("sheet1").range("A1").value
DoEvents
call delay(2)
Unload Me

テキストファイルA.txtの内容をstrAとし、
テキストファイルB.txtの内容をstrBとし、２つを合体させて
クリップボードにコピーしようとしています。

strA も strB　も、それぞれ読み取れてはいるのですが、
strA & strB　とすると前者の方しかコピーされません。
逆にしても同じです。

&でつなぐことはできないのでしょうか？

>>457
よくわかりませんが、先に

strAB = strA & strB

したり、そこで文字列結合関数を使ってみては？

nul文字混入

Worksheets("225構成銘柄(業種別分類)").Range(Cells(2, 1), Cells(2, 2)) = Worksheets("水産").Cells(3, 3)

これでアプリケーション定義またはオブジェクト定義のエラーです。が出るのは何でだ？
もしかしてシートまたいでのコピーっていちいちactiveにせないかんの？
簡略表記できないの？

>>460
1.
Worksheets("225構成銘柄(業種別分類)").Activate
Range(Cells(2, 1), Cells(2, 2)).value = Worksheets("水産").Cells(3, 3).value

2.
With Worksheets("225構成銘柄(業種別分類)")
.Range(.Cells(2, 1), .Cells(2, 2)).value = Worksheets("水産").Cells(3, 3).value
End With

3.
Worksheets("225構成銘柄(業種別分類)").Cells(2, 1).Resize(1, 2).value = Worksheets("水産").Cells(3, 3).value

お好きなのをどうぞ

なんか納得いかないけどありがとう御座います。
とくに2なんかwithで囲っただけでなんで上手く行くんだ？

>>462
RangeやCellsはシートを指定しないとアクティブシートを対象とする。
そのため460の書き方では、CellsのシートとRangeのシートが一致していない。
461の.Cellsはドッドが付いているため.Rangeと同シートを対象としているので動く。

と正しくないかもしれないけど勝手解釈な説明をしてみた。

>>457
(strA & strB)
としてはどうか

>>463
ふんわりと勉強になった。
知らん事だらけで困惑する。

簡単に言うと、
Cells(2, 1), Cells(2, 2)
ってのが、どこのシートのセルか指定されてないってことね。

現在VBAでエラーが出た場合

On Error GoTo ErrorHandler
ErrorHandler:
MsgBox "エラーが発生しましたので終了します"

のように強制的に終了させていますが
これだとどこでエラーが起こったのかわかりません。
しかしこれをはずすとVBAの画面が出てきてしまうのでそれは何としても避けたいのですが

いわゆる実際の開発現場での作業などで作成される場合、
一般的にデバッグってどうやってされているのでしょうか？

たとえば通過ログを各地にはりつけてこのログが通って、このログが通っていないので
その間で落ちたと言うやり方が思いつくのですが、
あるいはこの部分で落ちたとかがわかるコードなどあるのでしょうか？

>>467
Ｄｅｂｕｇ．Ａｓｓｅｒｔ（条件文）

Err.Description じゃなかったっけ？
それみてエラー箇所が特定出来ないなら関数が大きすぎるんじゃないか？

>>467
とりあえずErrオブジェクトでぐぐれ
エラーの発生した場所を正確に知るにはErl関数を使うという手もあるが
使い方がかなり面倒なのでおすすめはしない

ちがう
Err.LineNumber

>>467
VBEのメニューバーにそのものずばり「デバッグ」てのがあるでしょ
いちいちソースを書き換えなくても、どこまで実行したら一時停止とかできるんだよ

>>471
ErrオブジェクトにLineNumberなんてプロパティある？

Excelにプルダウンを入れていて、いくつか選択肢を入れているのですが
Excelを最初開いた時には空白で
別のシートを選択して、またこのシートに戻ってきた時に表示されます
これの原因ってわかりますでしょうか？
初期化がうまくいっていない気がしますが
どうしても理由が分かりません

ちなみにコードとしては
VBAプロジェクトの同じシートの中に下記の記述を入れています
Private Sub Worksheet_Activate()
With Me.Director_Combo
.Clear
.AddItem ""
.AddItem "あああ"
.AddItem "いいい"
.AddItem "ううう"
.ListIndex = 0
End With
End Sub

>>474
ThisWorkbookのWorkbook_Openイベントに記述する
シートの指定を忘れずに

ある文字列中に.が何個あるか出力したいんですけど、どうすればいいですか？
例えば"1.25.30.2"ならば3を出力したいです。

>>476
単純に思いついたコードなんで間違ってたらすまん

Dim wkArr() As String
wkArr = Split("1.25.30..", ".")
MsgBox UBound(wkArr)

あんまりスマートじゃないな
s = "12.34.56.."
Debug.Print Len(s) - Len(Replace(s, ".", ""))

>>478
なるほど。LenとReplaceを組み合わせるんですね。
どうもありがとうございます。

Sheets(intS).Activate
ActiveSheet.Range("C3:C100").AutoFilter Field:=1, Criteria1:=ANAME
Range("C100").Select
Selection.End(xlUp).Select
If Selection.Value <> "あああ" Then
Range(Selection.Offset(0, -2), "E4").Copy

Sheets(intB).Activate
Range("C100").Select
Selection.End(xlUp).Select
If Selection.Value <> "" Then
ActiveCell.Offset(1, 0).Range("A1").Select
End If
ActiveSheet.Paste　　←
End If
Selection.AutoFilter

矢印の部分でWorkSheet クラスの Paste メソッドが失敗しましたのエラーになってしまいます。

* Microsoft Visual Basic for Applications (VBA) マクロで、Excel 2003 ブックの 1 行全体のコピーと貼り付けを実行している。
* Microsoft VBA マクロで、Excel 2003 ブックの 2,516 以上の行の範囲のコピーと貼り付けを実行している。

のどちらにも当てはまっていないと思うのですが、なぜでしょう。

ごめんなさい書き忘れました。
Windows7　Office2007 です

やってはいけないの見本

>>480
コピー元かコピー先のどちらかでセルが結合されてない？

セルの結合はないです。
PasteSpecialでも同様のエラーが出ます

VBAを利用して

Webページにある複数のテキストボックスに
A1セルに書かれている内容をWeb上のAというテキストボックスに入力
A2セルに書かれている内容をWeb上のBというテキストボックスに入力
するような物を作りたいのですが
やり方とかあるのでしょうか？

あれば教えてください

>>485
IEオブジェクト.Document.フォーム名.テキストボックス名.value = 設定したい内容

フォーム名やコントロール名が無い場合
DocumentオブジェクトのFormsコレクションやItemコレクションを使う

IEオブジェクト.Document.Forms(n).Item(n).Value = 設定したい内容

A〜E列を下記。A,Dを検索キーとしてBをEに移します。
test()では1が拾えず10を拾ってしまいます。(XP, Excel2000)
どう修正すればよいでしょう。
A B C D E
-- -- -- -- --
1 あ __ 1
2 い __ 2
3 う __ 3
9 け __ 9
10 こ __ 10
11 さ __ 11
14 せ __ 14
15 そ __ 1

Sub test()
Set myRngA = Range("A1:A15")
Set myRngD = Range("D1").CurrentRegion
For i = 1 To myRngD.Rows.Count
myKey = myRngD.Cells(i)
Set myCel = myRngA.Find(what:=myKey)
If Not myCel Is Nothing Then
myRngD.Cells(i, 1).Offset(0, 1) = myCel.Offset(0, 1)
End If
Next i
End Sub

>>487
Set myCel = myRngA.Find(what:=mykey, LookAt:=xlWhole)

大量の日付+株価の四本値データ(1まとまりで5列使用)があるのですが、開始日も終了日も全てバラバラ(最長の奴で8192日データ。この8192日の中に全ての期間入ってる)
綺麗に日付の行をそろえて昇順でソートしたいのですが、ＶＢＡで上手いことやるアイデアを下さい。

>>489
ソートするって、四本値ﾃﾞｰﾀが日付順にならんでないというのが不思議だが
同じ日付を同じ行に持ってきたいということかな？
もしそうなら
ビンソートでデータをビンに詰め終わったところで
空きビンに対応する日付データーを入れてやればいいんでないかな

>488

ありがとう。たすかりました。

LookAt:=xlWholeがないと、一行目が無視されるわけですね？

>>491
全然違う。
LookAt=xlWholeは完全一致。
これを書かないと初期状態ではLookAt:=xlPartの部分一致になる。
開始セルのAfter:=***を書かないと範囲の先頭の次から検索するので
部分一致で10がヒットすることになる。

ビンソートという用語初めて知った。情報有難う。

ソート自体は簡単なんだけど、データのスタート位置設定するの難しいわ。
日付が素直に+1日づつなら多少は簡単なんだけど、休場日とかのせいで日付が飛び飛びなのがうっとうしい・・・

後学の為にＶＢＡで処理したいけど、もう手作業でやるか？

SQL使えよ

SQLもビンソートも不明だったので。

�@→一番長い日数入ってる列探して基準にする
�A→各銘柄からデータ取得開始日とって、基準を参考に貼り付け開始行を取得
�B→貼り付け開始行を利用して切り取り貼り付け
�C→�Aから繰り替えす

みたいな普通の力技でなんとかしました。アドバイス貰ったのに全く生かせないでごめんなさい。

オートシェイプの検索アドインを業務の補助として作成中です。
一般的な実装はできましたが、よくばって検索値の前回値を使用できるようにしたい。
このような場合、前回値をどこに保存するのが一般的なのでしょうか？
excelマクロ・xlaならではの保存方法等ないでしょうか？

ないのであれば、別途保存用のシートに保存するか、またテキストファイル等に残します。
（あんまりエレガントじゃないきがして嫌です。）
ご存じの方おりましたらご享受ください。

>>495
ビンソートよりもバケット（バケツ）ソートという名前のほうが一般的かもしれない

内容は
日付のラベルが付いたビンに対応するデーターを放り込んで
詰め終わったら、端から順に取り出す

今回はデータがもともと順並びしてるので、
結果的にあなたがエクセル上でやったことと同じ作業ですね

>>496
Excelはシートに保存するのがエレガントだと思います。

なんらかの関数で引数となるシート名が存在するかチェックしてるんだが
シート数分Forでまわして同名シート見つけた時点でexitしてるんだけど
シート枚数が多くて使用者のPCスペックが低いためか時間が結構かかってきているんだが
なんかアドバイスない？
さしあたって事前にシート名チェックするのやめて
ダメならOn Error GoToで飛ばすようにしといたんだけど
もっといい方法あったら教えてください

シート名チェックってそんなに時間かかる処理だっけ？
何枚くらチェックしてるの？

シートの存在チェックは、何かやってみてon error gotoが一番速い

>>500
50枚くらいなんだけどモバイル用ノートで
CPUがセレロンなんだ・・・

>>501
やはりそうですよね
まず実行してみてだめだったらon error gotoで
具体的エラー内容を探すように変えていきます。

ありがとうございました。

>>502
ん、通じたのかな？例えばIsWorkSheetExist()みたいな関数を作って、その中で
on error goto NotExist
a = worksheet("Sheet1").range("a1").value // (*)
return true

NotExist:
return false

をやれってことで、「何かやって」は(*)の行の内容のこと。
いろんな関数にon error gotoをばらまけってことじゃないよ。

ADOつかってSQL使えば？
別にExcelのシートに対してもSQLで読み書きできるよ

こんばんは。どなたか詳しい方教えてくださいませんか。

エクセルのマクロでCSVファイルを開く→編集→保存(CSV形式)までを自動化しているのですが、

保存時の文字コードをS-JISではなくEUC-JPにして保存したいのです。

色々調べたんですが使えそうなのがなかったので・・。

保存した後で変換ツールに投げるとこまで自動化したらばどうよ

>>505
nkf.dll

ありがとうございます。

nkf.dll

を使ってみようと思います。

詳しい方に質問です。

ExcelVBAでシートに保護をかけて、変更して欲しくないセル（項目名など）
をロックしています。
ただ、シートに保護をかけてしまうと、テキストボックスや線オブジェクト、
図形オブジェクトがdisable？になってしまって使用できなくなります。

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

保護の対象を細かく指定すりゃいいだろ

DrawingObjects:=False

XPで2003を使用しています。
VBA初心者で調べつつ作成しましたが、思った動作になりません。
どうかご教示下さい。

仕入先マスタのシートで仕入先CDを重複しないよう、入力後に
チェックをするようにしました。
（コードは次レスに貼ります）

【問題点】
If Not IsNumeric(Target.Value) Then Exit Sub
を入れると、ターゲットが複数行の場合は動作してくれません。

上記のコードを削除すると、複数行を挿入したり、連続しない複数行を
削除した時に重複したと認識されてしまいます。
（emptyかNullが重複？）

※つづきます

※つづきです

Dim maxRow As Long
Private Sub Worksheet_Change(ByVal Target As Range)
With Workbooks("仕入管理帳.xls").Worksheets("仕入先マスタ")

maxRow = .Cells(Rows.Count, 1).End(xlUp).Row
' If Not IsNumeric(Target.Value) Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Set rngTarget = .Range("A2:A" & Target.Row - 1)
Set rngFind = rngTarget.Find(Target.Value, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
If Target.Row <> rngFind.Row Then
Application.EnableEvents = False
MsgBox ("仕入先CDが重複しています"), vbExclamation
Target.ClearContents
Application.EnableEvents = True
End If

※最後です

Else
Set rngTarget = .Range("A" & Target.Row + 1 & ":A" & maxRow)
Set rngFind = rngTarget.Find(Target.Value, LookAt:=xlWhole)
If Not rngFind Is Nothing Then
If Target.Row <> rngFind.Row Then
Application.EnableEvents = False
MsgBox ("仕入先CDが重複しています"), vbExclamation
Target.ClearContents
Application.EnableEvents = True
End If
End If
End If
End With
End Sub

よろしくお願いします。

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

>>512
Targetに複数のセルが含まれるときは、こうすれば一つずつチェックできる
もちろんセルが1つでもエラーにはならない。Forの中を1回通るだけ
For Each c In Target
　　If Not IsNumeric(c.Value) Then Exit Sub
Next c

>>516
出来ました！ありがとうございます！
1週間もあれこれ悩んでいたので、とても助かりました！！

Excelに
Craete　AAA＿TBL
〜

一行改行されて
Craete　BBB＿TBL
〜

一つのシートにこういうデータがあった場合、
crateAAA＿TBL.sqlファイルを作成して
その中には
Craete　AAA＿TBL
〜

crateBBB＿TBL.sqlファイルを作成して
その中には
Craete　BBB＿TBL
〜

と分割したいのですが
分かりますでしょうか？

わけわからん、なにが起きてるんだ


r=3
c=10
debug.print r , c

if r=3 and c=2 then
........
elseif r=3 and c=4 then
........
elseif r=3 and c=3 then
........
elseif r=3 and c=2 then
.......
elseif r=3 and c=10 then
debug.print r , c
debug.print "ここまで来た"
end if

実行結果

3 10

Sub test()
r = 3
c = 10
If r = 3 And c = 10 Then
Debug.Print r, c
Debug.Print "こないわけないだろ"
End If
End Sub

でも来ねえだもん、くまった

省略せずに丸ごとソースを貼るかエクスポートしてどこかにアップしろ

if r=3 and c=2 then

まったく同じ条件のIfが2つある。どうせほかにもタイプミスとかしてるに決まってる

デバッガでブレークポイント仕掛けてステップ実行しろよ

スマソ、自己解決した
頭のほうの　if　に不等号が入ってた
思い込みがあると目が見てても脳が見てないようだ

無能には良くあること

本当に>>523が正解だったとは

不等号が入ってたのは正解なので
タイプミスではありません
見のがしです
すいません、正確に言っておきたいもので（まげられないおんな風）

ソフトのこと全く知りません。
そんな僕でもがんばればＶＢＡは習得できるでしょうか？

はじめから知ってるやつはいねえからそこは心配ない
あとはセンスしだい

>>530　ありがとうございます。
超入門の本を読んでいるのですが、読み終わったらもう少し専門書を購入し読みながら、
他の人の書いたプログラムを解読しつつ勉強しようと思うのですが、
このやり方でいいのでしょうか？

人が言葉を覚えるとき最初はオウム返しから始まるでしょ
プログラム言語もそれと似たようなもんですよ

書籍のサンプル等をガシガシ打ち込んでけば、身についていきます
コピペではあんまり身につきません、コピペが早くなるだけです
手打ちでがんばってください

人の書いたプログラムの解析は自分で作るよりも大変ですから、
そこから入るのは無理があるように思います

>>531
そういうやり方＆他人のコード解読法で一回挫折したので、その後検定取りの為の勉強したな。(VBAエキスパートスタンダード)
アレは基本的に誰でも受かるように出来てるし、体系だって勉強出来るシステムになってるので基本は身に付くよ。

Excel VBAで、コピーしたセル範囲をペーストする時に列幅を変えずに貼り付ける事は
可能でしょうか。
コピーする内容にセル結合や罫線が含まれています。
どうかご教授下さい。

列をコピー＆ペースト

>>534
まず普通にコピペしたあと、同じ場所にもう一度形式を選択して貼り付け→列幅

B3セルに"私は花子ですわ"、B4セルに"私は太郎ですよ"
があるとき、C3、C4セルにA列の2つの文字列を比較して違う部分を赤色にしたい。文字列の長さは同じとする。
で、次のように作ったんだけど、最後しか赤くならない。なんで？

Sub 文字列比較()
' 文字列比較 Macro
' マクロ記録日 : 2010/3/12 ユーザー名 : xp

Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String

str1 = Range("B3")
str2 = Range("B4")

For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)

If StrComp(buf1, buf2, vbTextCompare) = 0 Then
Range("c3").Value = Range("c3").Value & buf1
Range("c4").Value = Range("c4").Value & buf2
Else
Range("c3").Value = Range("c3").Value & buf1
Range("c4").Value = Range("c4").Value & buf2
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub

初歩的な質問ですがお願いします。

For
If xxx then
�@の処理
Else
�Aの処理
End If
�Bの処理
Next

xxxの場合、�@の処理をした場合には、�Bの処理をせずに
次のfor文へ行きたいのですが、elseの中になにを書けばいいでしょうか？

>>537
マクロの記録でやってそうだからわかりそうなもんだけど、
　Range("c3").Characters(3, 1).Font.ColorIndex = 3 '花
　Range("c3").Characters(4 1).Font.ColorIndex = 3 '子
　Range("c3").Characters(7, 1).Font.ColorIndex = 3 'わ
は続けてやらないとダメだと思う。
　　j = 0
For i = 1 To Len(str1)
If StrComp(Mid(str1, i, 1), Mid(str2, i, 1)) <> 0 Then
j = j + 1
ReDim Preserve s(1 To j)
s(j) = i
End If
Next
こんな感じで位置を先に取得してみては？

連レスすまん。
>>538
�Aの処理の次に�Bを書いちゃダメなの？
For
　If xxx then
　　�@の処理
　Else
　　�Aの処理
　　�Bの処理
　End If
Next
それか、エスパーぎみに答えるとSelect caseを使うとか？？

>>537
これの意味を勘違いしているような
Range("c3").Value = Range("c3").Value & buf1

セルc3の文字列を取出してbuf1の内容と文字列結合 → セルc3に上書き
この処理をすると　これ以前にあった色指定が無効となる

つー事で
>>537を修正すると

Sub 文字列比較()
Dim str1 As String
Dim str2 As String
Dim buf1 As String
Dim buf2 As String

str1 = Range("B3")
str2 = Range("B4")
Range("c3").Value = str1
Range("c4").Value = str2

For i = 1 To Len(str1)
buf1 = Mid(str1, i, 1)
buf2 = Mid(str2, i, 1)

If StrComp(buf1, buf2, vbTextCompare) <> 0 Then
Range("c3").Characters(i, 1).Font.ColorIndex = 3
Range("c4").Characters(i, 1).Font.ColorIndex = 3
End If
Next
End Sub

>>540
ありがとうございます。


顔洗って出直してきます。

For
If xxx then
�@の処理
Else
�Aの処理
�Bの処理
End If
Next

>>538
for x=1 to 100
if xxx _
then
�@の処理
else
�Aの処理
end if
�Bの処理
Next
次のfor分の処理

こう書くと �Bの処理をコメントアウトすればいいんじゃねということがわかるけど
�Aの処理のあと”だけ”に�Bの処理をしたい、と言うこと？それとも
真ならば他の人のいうとおりだけど
�Bの処理は�Aの処理の前にしたいのか、後にしたいのかが不明確ですよ
�Bの処理が�Aの処理と独立ならば順不同だけど

VBAと関係ないね

Webクエリでデータを読み込んで加工するVBAを作成しています
データの込みこみを待ってから次の工程へ行くようにするにはどうすればよいですか？

>>546
Do While IEobject.Busy = True And IEobject.ReadyState <> 4

こみこみ ← なんかｶﾜｲｲ

ありがとうございます

WebクエリとIEObjectの関係が分からないので、
もう少し調べます

Cells.Replace What:="１", Replacement:="1", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

0から9までの全角数字を半角数字に変換したいのですが
上記を10回書くよりも
これをfor文で回したいのですが
全角でというのか実現できません

教えてください

>>550
StrConv

すみません質問です

以下のような数字の置き換えをしたいのですがどのようにすればいいでしょうか？

<a name="1">　　→　　<a href="hoge">
<a name="2">　　→　　<a href="hoge">
<a name="3">　　→　　<a href="hoge">
〜
<a name="9999">　　→　　<a href="hoge">

>>550
全角文字をループで扱うのはけっこう難しい。
文字コードを数値として扱う手もあるが、可読性が悪くなる。
プログラムの見栄えをすっきりさせたいなら、
配列に入れるか、置換のための関数を作るという手がある。
aryWhat = Array("０", "１", "２", ……

>>552
そういう場合は正規表現を使います。桁数の決まっていない数字は[0-9]+と書きます。
<a name=""[0-9]+"">
とすれば、これ1行で1から9999までのすべてが検索の対象になるので、これをhogeに置換します。

>>550
ヒント

Sub d()
　　For i = 0 To 9
　　　　Debug.Print i, StrConv(i, vbWide)
　　Next
End Sub

>>554

ありがとうございます
すごく助かりました

別のエクセルファイルの標準モジュールに書いてある定数を読み込むには、
どうしたらいいでしょうか？

自己解決しました

NO　品名　　価格　数量　金額
１　　りんご　１００　　３　　３００
・・・

という連続したデータを

NO　　１　・・・
品名　りんご
産地　
数量　３　・・・・

というふうに転記させる方法を教えてください。
転記先のフィールドは、元のフィールド名のものがない場合もあり、
逆に元のフィールドに無いものが転記先にあったりします。
また、転記元や転記先のフィールドの順番は、入れ替わる場合があります。
うまいやり方がありましたら教えてください。

>>559
どうかな。

１行目に作業用の空白行を追加する。

転記元の左端から1セルずつ値を読み、右に移動するループ（セルが空白になるまで）
　転記先の上端から1セルずつ値を読み、下に移動するループ
　　if転記元の値と転記先の値が同じならば
　　　作業用の行に転記先のセル位置を記入

（ここまでで転記先のセル位置を取得）
Ａ１　Ａ２　　　　　　　Ａ４
NO　品名　　価格　数量　金額
１　　りんご　１００　　３　　３００

あとは転記元のデータを1行ずつ処理。

>>559
新しいほうのデータの１レコード分の配列を用意する
古いほうのデーターから該当する配列の位置に読み込む
新しいデータへ配列から書き出す
以後レコード分繰り返し

別のシートにセルを一個ずつコピーしていけばいいのでは

おれだったらVLOOKUPでぱぱっと片付ける

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Excel2007
Workbooks.Add
で新規にワークブックを作成する際に
オプション→数式で自動になるように作成することってできませんか？
今の状態は手動になっています。

自己解決？
元のプログラムが入っているブックのオプションが手動になっていたので自動に変えたら
新しくできたブックも自動になってました。

なんか、自分自身をコピーして作ってるみたいな？（よく判りませんが w

WinXP Excel2003

Sub Input_Date(ByVal iDay As String)
ActiveCell.Value = CStr(iYear) _
& "/" & CStr(SpinButton1.Value) & "/" + iDay
ActiveCell.NumberFormatLocal = ComboBox1.Value
End Sub

いまのままだと何処のセルにも入力するようになっています。
指定したセルにのみ入力するよう変更したいのですが、どこを直せば良いでしょうか？

>>567
ActiveCell

VBAで、「どこぞのプロシージャ内で」、「別のプロシージャやイベントを設定・修正」するって出来る？
例えばBook/Formのロード時のイベントプロシージャで、
　btn_test_1
　btn_test_2
　　　…
　btn_test_10
…って感じのボタン10個について、forで回してそれぞれのClickイベントに同一の処理を上書きさせる、とか。
それともクラスモジュール作って〜な やり方しか無いのだろうか？
わかり辛い書き方でごめん。

2003、ＸＰです。
株のシストレの計算をやらせるのに、ブック2枚を頻繁に行ったり来たりさせるようなモジュールはやはり相当遅くなるのでしょうか？

Ａ：計算する元の四本値データだけ入ったブック。(シートが35枚あって、それだけで既に80ＭＢのサイズ)
Ｂ：Ａから計算結果だけを出力させるブック。

一枚に詰め込むべきか、複数枚に分けて管理すべきか・・・

>>570
単にデータを読み書きするだけなら大して遅くはならない。
いちいちSelectとかActivateとかやっちゃうと遅くなるんで、そうしないように注意してプログラムを作ればいい。
あとは、オブジェクト型変数とかWith句をできるだけ活用すること。
計算中は余分なイベントを止めるのもそこそこ効果がある。

>>569
質問の1行目だけ見ると答えはNO。
だけどたぶん、別の方法でできることをわかってないだけの気がする。

VBAでFX自動売買ソフトを作る事って可能でしょうか？

やりたい事

・業者orヤフー等からのレート取得
・発注機能

こんな感じです

可能です

是非作ってみたい
もしくはどなたかに作成していただきたいです

MT4だと業者に対応していないので・・

プログラムもわからんのにそんな事言っててもどうしようもないと思うが
んで、誰がただでやるわけｗｗ？

>>570
株価データの保存はDBに任せて、Excelは計算に専念させた方がスッキリすると思うけどね

Cells(1, 2) = Cells(1, 1)
というマクロを作ったのですが、Cells(1,1)の文字数が多すぎると
#VALUE!
というエラーが出てしまいます。
Cells(1, 1)の値を他のセルにコピーするにはどうすればいいのでしょうか。

まずは仕様書を書いてね
そしたら見積もり出すから

>>578
そのエラーは文字列の長さとは直接は関係ありません。
まずB列の幅を広げて、セルB1の書式を確認してください。

>>578
当方の環境下では
Cells(1, 2) = Cells(1, 1)
だと 半角256文字以上で#VALUE! になるね

Cells(1, 2).Value = Cells(1, 1).Value
だと大丈夫みたい　なぜかしらんけど

つか.Valueを付けるのが本来の使い方なんだけどね

>>570
ADOつかてSQL書けよ

>>581
XP、2003だけど下記コードでエラー出ない。
なんでだろ？

Sub test()
Cells(1, 1) = String(257, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub

↑どっかおかしい？

>>583
これでやったら912文字のところでエラーになった
Sub test()
　　For r = 1 To 1000
　　　　Cells(r, 1) = String(r, "あ")
　　　　Cells(r, 2) = Cells(r, 1)
　　Next
End Sub

>>575
50万くらい出す気あるなら話聞いても良いよ。

>>584
Sub celltest()
Cells(1, 1) = String(910, "あ")
Cells(1, 2) = Cells(1, 1)
End Sub

910文字まではOKってことだな。
>>578と>>581はどういう現象なんだろ？バージョンの問題かな？

いや、911文字までOK。
ていうか、みんなOSとExcelのバージョンぐらい書こうよ。
うちはXPと2003。

ちなみにVBAを使わずにセルに直接入力した場合は1セル32767文字まで入る。
ttp://office.microsoft.com/ja-jp/excel/HP051992911041.aspx

>>587
ん？
>>584だと911行目でエラーが発生してるから
911文字はエラー、910文字まではOKってことじゃないの？
OSとバージョンが同じだから、やっぱりバージョンの問題なんだろうな。

doudemoii

どうでもよくない。
>>578と>>581の状況が再現できないと回答もできないし、
自分が同じトラブルに遭う可能性だってあるわけだから解決できないと気持ちが悪い。

>>589
だんだん話しについていけなくなっちゃったんだろうなｗ

気持ち悪いから>>578早く戻って来い！

>>581で再現できてんじゃん

で、解決方法は？

再現できないとか言ってるから、再現できてると言ったまで。
>>581によれば、Value付ければいいんじゃないの？

>>594
Cells(1, 2) = Cells(1, 1).Valueにすればいい。
Cells(1, 2) = Cells(1, 1)と何が違うのかは知らん。

解決できないから気持ちが悪いんじゃなくて、解決できてるけど仕組みがわからなくて
気持ちが悪いんじゃないの？

初歩的な質問ですんません

セルに直接入力せずに三角形みたいなのをクリック（セルをクリックすると現れる三角形）すると
あらかじめ設定してた項目を取り出せるあの機能はなんて名前でしったけ？
またその設定はどこでやればいいですか？
お願いします。vista使いです

>>598
ひょっとして、これのことか？

Excel講座 > セルをコンボボックスにする
http://www.serpress.co.jp/excel/no004.html

うちだと910文字超えないとエラーにならないのに、
どうして>>581は256文字でエラーになるの？
もうちょっと再現の条件とか手順をkwsk

>>599
そうそうそれそれ
どうもすんません

>>598
セルにコンボボックスを仕込むより入力フォームを作って
ボタンぼんでシートに値がコピーされるように作った方がいいと思うが。

テスト

Excel2007
ブックを新たに作成するときにシートの枚数を3枚とか指定することは出来ないのでしょうか？

テンプレートで

>>604
Application.SheetsInNewWorkbook = 3
こういうこと？

あ？テンプレの話？
2003だと
ツール→オプション→全般→新しいブックのシート数
で設定できる。2007はわからん。

>>606
それです。ありがとう
テンプレートは？状態ですけどw

>>608
とりあえずググれよ。（もう見てないだろうが・・・）

>>600
どうしてExcelのバージョンすら明記しないのか不思議。馬鹿？

>>610
話の流れからすると910文字までいけるのは、XPで2003だって二人が書いてるぞ。
バージョン明記してないのは質問者と>>581の解答者だ。

それはそうと、これだと10000行までいけるなｗ
Sub test()
　For r = 1 To 10000
　　Cells(r, 1).Value = String(r, "あ")
　　Cells(r, 2).Value = Cells(r, 1).Value
　Next
End Sub

おっと、>>611はXPで2003だ。
ちなみに、Win7の2007でも検証してみた。
　・Valueあり→10000行までいけた
　・Valueなし→8203行目でエラー
という結果。2007だとValueなしでもこんなにいけるんだなｗ
ってことは、質問者のバージョンは2002以前とエスパーしてみる。
それにしても、2007のVBEどっから起動するのかわからなくてビビったｗ

>>611-612
>>600の「うち」の環境を書けと言ってるんだ、馬鹿。
じゃなければ、第三者が全体を把握できないだろ。

>>611-612
Value付ければいいって結論が出てるのに、いつまで何やってんの？

>>613
>>600は、910文字超えないとエラーにならないって書いてあるから
流れから2003だってわかると思うが？
流れを読まなくてもわかるように、レス内に明記するのがネチケット（笑）ということなら、
まぁ、そういうことなんだろうｗ

>>614
Valueは単純に“省略可能なもの”と認識してたんだが、
今回のケースで言うと、場合によっては省略してはいけないってことか？
すまん、素人にもわかるように説明してくれ。

>>615
とことんアホだな。

仮にExcel 2003が911文字目からエラーになるということだとしても、
911文字からエラーになるからといってそれがExcel 2003とは限らないだろ。
高卒文系なのか？

何かを明らかにしたくてその話題に参加し、なおかつ相手に再現の手順を求めるのなら、
まず自分の情報を出せっつーこった。

> すまん、素人にもわかるように説明してくれ。

知るかアホ。
このスレは素人の好奇心を満足させるスレじゃねーよ。

>>611
ド素人はこれだから困る。
セルに設定出来る最大文字数はヘルプにちゃんと書かれてる。
ヘルプ見ろ。

エクセルVBAに詳しい人教えてください！
http://yutori.2ch.net/test/read.cgi/morningcoffee/1268888151/

いつまでやってんだよ……

>>616-617
論点がずれてますよ。
人のことを馬鹿とかアホとか高卒文系とかド素人とか言ってるけど、
話の内容を理解できていないのは、あなたの方ですね。
何かを明らかにしたくないなら、あなたはこの話題に参加しなくてもいいと思います。

ずらしてんのはお前の方だ馬鹿。

これになんかコメントしてみろ、アホ。
> 仮にExcel 2003が911文字目からエラーになるということだとしても、
> 911文字からエラーになるからといってそれがExcel 2003とは限らないだろ。
> 高卒文系なのか？

>>618
ソース見てボタンの名前調べればいいんじゃないの？
そんな単純なことじゃなくて？

・Valueを付ければ問題ない
・Excelの仕様上、何文字まで設定出来るかはヘルプに書かれている

これ以上、何を知りたいの？

話の流れからするとｗ、>>600=>>611じゃねーの？
馬鹿と言われて悔しかったのかな？

>>621
http://hideyoshi.2ch.net/test/read.cgi/mental/1266008088/l50
とりあえず筋トレでもしてみたら？

おまいらいつまでやってんだｗｗｗｗｗｗｗｗｗｗｗｗ

>>625
反論不能か、高卒文系のド素人が。
もう黙っとけ。

VBAからGroovyのプログラムを呼びたいんですが、何か方法はありますか？
Groovyに限らず、VBAから他の言語のプログラムを呼んで、返り値を使用する
ことってできるんですかね？

一つのセルには200文字も必要ねーな。
50文字でも十分じゃね？
数式厨には足りないかも知らんけどｗ
超長ーい数式を得意としてるやつもいるからな。

>>621
必死ですね。コメントを求められているのでレスしますね。
その事象が起きるからといって、Excel2003だという証明は私には出来ません。
学歴も聞かれてますね。おっしゃる通り文系ですが大卒です。
これでよろしいでしょうか？

だよな。表計算ソフトなんだから50文字でも多いぐらいだ。

超長〜い数式は勘弁してほしいｗ

超長ーい数式とか配列数式とかSUMPRODUCTのフィルコピーが大好きなやつはほとんどアホばかり。
VBAで言えば変数使わないで何度も同じ値を取得してるようなもんだ罠。
数式でやるならVBAの変数に相当する作業セルを使えってこった。

>>623
もういい加減アホとか言うのやめれ。

ん？俺のことかな
すまん、今度からヴァカと書くことにするわ。

>>630
証明できるかどうかなんて聞いてないんだよ。

>>615
> 流れから2003だってわかると思うが？
わかると思ってるなら、それは馬鹿ゆえだってことだ。

横からノイズ増やしといて、俺の知りたいことだけお前ら教えろとかいう奴はいらないんだよ。
わかった？

ふぁいと！
俺は50文字でも十分すぐるから興味ナス

>>630
お前も必死だよwww

大卒文系って、裏・逆・対偶レベルの論理学も理解できないの？
今はやりのゆとりって奴？

まぁ餅つけ
50文字でも十分ということで糸冬了

まぁ、セルに表示できないような文字数を設定するというのは、基本的な使い方では
ないわけだから、自分がそのような処理を実装しなければならなくなったときに、
ターゲットとなるExcelの仕様上の制限を調べ、テストを十分にやれば良い。

必要条件と十分条件を良くわかってない馬鹿SEのことを思い出した。

CellsのデフォルトプロパティがValueじゃないってことじゃないかと思うけど、
調べるつもり無し。

Cells(2, 1) = Cells(1, 1)
でエラーが発生するとき、
Range("B1") = Range("A1")
でもエラーが発生するね。
何故なのかはそれほど知りたくないけど、RangeのデフォルトプロパティはValueだって
思ってたので、ちょっとキモチワルイ。

やっぱり
Range("B1") = Range("A1").Value
と書くと動く。
まぁ、デフォルトプロパティは使うなってことかな。

スレが伸びてると思ったら一人で暴れてるようだな。
文体でバレバレだｗ

>>644
セルの文字数についてはバージョンによる違いだってわかるけど、
Valueの省略については色々調べてもわからなくて、昨日からずっと気持ち悪い。
納得できる答えをくれる神は降臨しないかと待ってるんだけど
スレ覗く度に荒れる一方で（ry

>>646
納得できる答えが見つかっても、安全側に倒してデフォルトプロパティに頼らない
コードを書くしかないという状況は変わらないよ。

>>645
バレバレｗ

まぁどっちもひといが、この板的にはこれが一番ひどい。

>>611
>それはそうと、これだと10000行までいけるなｗ

例えば

Sub test()
MsgBox TypeName(Range("A1").Value)
MsgBox TypeName(Range("A1"))
End Sub

とやると
Empty
Range
となる

>>650
だから？

>>611にガン擁護された>>600は、どのような登場の仕方をするのであろうか。

>>623
256文字でエラーになるExcelのバージョン

>>653
え！？それかよっ！！ｗｗｗ

>>653
うち Excel2003(XP) と Excel97(Win98)あるんだけど
Excel97(Win98) だと256文字でエラーになる

哲也君がVBAマクロを２昼夜かけて作ったんですよ。



これが本当の「マクロ ２夜連続」なんつって。

>>653
だったら、初めから自分の環境の結果を書いとこうね。
俺は何もしないけど、お前ら俺の知りたいことを教えろパターンですな。
ちなみに俺は、これまで出ていないExcel 2000を持っていて実験もし結果もわかったが教えない。

俺はウチとまったく同じ環境の結果がガイシュツだから書かなかっただけなんだけど、
同じことを何度も書かなきゃいけないの？
役所に出す書類だな、まるで。

それが知りたいんだったら、既出の情報をまとめるなりなんなりしろよ。
餓鬼かよ。

私女だけど、たった1行の実験結果を書かずに言い訳を何行も書く男の人って

まとめなきゃ把握できないほどの情報量か？
数えてないけど3例ぐらいしか出てなかっただろ。

ＸＰ　2003です

ググっても中々みつからないんだけど、
手動で選択したセル範囲の数字を一気に計算(仮に10倍)とかするのってVBAで出来るの？

あとついでに、セル範囲の一番右下の座標も取りたいんだけどやり方教えてください。

>>661
いつまでやってんだ

>>662
前半：できる。rangeを関数の引数に取りfor each
後半：一発でできるかどうかは知らん

>>682
VBAでもちろん出来るが手操作でも出来る。
どっかのセルに10と書いて、コピー、形式を選択して貼り付け、乗算

一個の選択した矩形範囲の右下隅のセルを操作したければ
Selection(Selection.Count).****
Excel2003はこれで大丈夫だが、Excel2007は全セルを選択したとき
CountプロパティがLong型なので入りきれなくてエラーになる。
そこまで考慮するなら
With Selection
　.Item(.Rows.Count*.Columns.Count).****
End With
座標って行番号とか列番号とかアドレスが必要なケースは滅多にないだろう。
全くないというわけではないが。

>>661
ほら、お前もスレを確認しないと状況がわからないだろ。
>>653の知りたかったことなんて誰も知らないんだから、状況をまとめて
あとこのバージョンの動作を教えてくれってやるのが筋。

>>653
Excel 2000では256文字目でエラーになる。

これで全部揃った？揃ったならまとめくらいしてもバチはあたらないよ。

Excel95がまだ出てなーなｗ

だれか知ってる人がいたら教えてくれ。
A1の表示形式がG/標準のとき
Debug.Print Format(Range("a1"), Range("a1").NumberFormat)
とやると"M32032ral"が返るんだが、これって何？

いかん、Valueつけるの忘れたわ

A1の値を書くのも忘れたわ
1の場合ね

>>669
知ってるのか知らないのかわからないが、それ、Formatの第二引数の指定方法が間違ってる。

競艇のネット自動投票プログラム作っています。自動ログインは完成しましたけど、
次の画面の投票する競艇場選択のボタンを押す方法が分かりません。

押したいボタンのHTMLソースは以下
<input value="福　 岡" onclick="jyocd(22)" tabindex="2" type="BUTTON">

ボタンの名前(name)が無いから通常のやり方ではできません。

また、
SendKeys "{TAB 5}"
SendKeys "{ENTER}"

で５番目の競艇場をクリックではできましたが、最終レースが終わると
その競艇場選択ボタンが消えますので、必ずしも××競艇場が５番目とは限らないのです。

検索等で昨日１日中調べてみましたが解決しません。。。助けてください。

データについているハイパーリンクの中の数字を取り出して（〜info.php?chr=25121とあったら568311）、もしAという数字だったら、その列の情報を全て、シートAにコピー
という仕組みを作りたいと思っております。
ハイパーリンクの中の数字を参照するには、どうしたらよろしいのでしょうか？助けていただけると助かります。

>>672
どこが？
まさかNumberFormatLocalってんじゃないだろうね。
もしそう思ってるならそっちが間違ってる。
そんなことはないとは思うけど。

まとめました。扱える文字数はバージョンの違いってわかるんですけど、
何故Valueを省略するとエラーが出るのか、どなたか教えて頂けませんか？

【バージョン不明】
256文字以上でエラー
>>578（質問者）、>>581、>>596

911文字以上でエラー
>>600


【バージョン記述あり】
Win98＆97（256文字以上でエラー）
>>655

OS不明＆2000（256文字以上でエラー）
>>655

XP＆2003（911文字以上でエラー）
>>583（>>588?）、>>584（>>587?）、>>586

Win7＆2007（8203文字以上でエラー）
>>612

訂正ですorz
OS不明＆2000（256文字以上でエラー）は>>667でした。

あぁ分ったわ。
NumberFormatは"General"だから
Gは元号のGで明治だからM
eは和暦の年
nは分
eは和暦の年
ralはGeneralの右3文字だな。
結局Formatじゃ駄目でWorksheetFunction.Textってことか。
俺の間違いだったわ。

>>678
いやいや、ヘルプ見ろよ

>>676
それ多分OS関係ない。

> 何故Valueを省略するとエラーが出るのか、どなたか教えて頂けませんか？
多分、今ここにいる奴は答えられないから、これまでに回答がないんだよ。
モーグにでも行けば？

>>674
> chr=25121とあったら568311

の法則がよくわからない。
Aは数字じゃない。
16進？でもなそさうだし。

>>679
FormatもWorksheetFunction.Textも似たようなもんだろうと思ってた俺が
馬鹿だったが、Formatのヘルプの表示書式指定文字なんて一部しか載ってないね。
とりあえず"s","h","n","g","aaa"などが抜けてる。
"General"はWorksheetFunction.TextにはあるがFormatにはないということだな。

範囲指定していっぺんに10倍はVBAでもできる。
「形式を選択して貼り付け、乗算」をマクロの記録してみ。

Formatのヘルプの最後にある表示書式指定文字だが、あれは一覧じゃなかったか。

>>682
ホントだ。ローカルのヘルプは抜けてるのがある。
オンラインヘルプなら全部出るみたいだけど。

>>682
あと"p"とか"ccc"とか"ooo"とか"ww"とかもあるみたいね。
Format(1,"ww")が53、Format(1,"www")が531になるがなんのこっちゃ。

"p"じゃなくて"q"だったわ。
"ccc"も"c"ね。
Format$(シリアル値,"yyyy/mm/dd")とするところを
Format$(シリアル値,"c")としても同じみたい。

>>685
オンラインのヘルプどこ？
さっきから探してるんだが見つからん。
MSDNかな？

cはcountryのcだと予想して地域オプションをいじくってみたら、案の定
Format$(シリアル値,"c")は必ずしもFormat$(シリアル値,"yyyy/mm/dd")と
同じじゃなかったわ。

>>664-665
回答ありがとうです。本当にたすかりました。
面倒なんで「(どっかのセルに10と書いて)コピー、形式を選択して貼り付け、乗算」をマクロ記録させてそれでやり過ごしました。

Formatの奴うざいよ？
Valueの奴と同じちゃうんかと思われるレベル。

うざくてすまんね。
Value関連は考えすぎだな。
629と633と637は俺だけどな。

というわけど、今後は>>690のハイレベルな回答を期待しましょうねｗ

ヘルプ見ろでFAだろ。
質問者はまだ見れてないようだが。

めんどくさいけど探してやった。
ほれ。
http://msdn.microsoft.com/ja-jp/library/59bz1f0h(VS.80).aspx

それVBAも一緒なの？

ブイバのことは俺に任せろ！

>>693
クソ生意気な奴だなぁ。
ヘルプくらいは真っ先に見てるさ。
俺の見れるヘルプにはcやwwwは見れないんだよ。
お前がそういうなら探せばどっかにあるんだろうけどね。
Formatで検索して出てくる下には書いてない。
Format 関数
ヘルプ > 関数 > D-G
Format 関数の使用例
数値表示書式指定文字 (Format 関数)
文字列表示書式指定文字 (Format 関数)
数値を表すその他の書式 (Format 関数)

もうどうでもいいけどな。

>>694
お、ありがとう。
そこにあったか。
どうでもいいと書いたがこれから見るわ。

>>693=694の俺なんですが・・・

なんというツンデレ！！
おまいら何やってんだよｗｗｗ

>>699
ふーん？
結局お前もまともにヘルプ見てなかったと言うことかｗ
>>694もリンク先見たけど、cやwwwは載ってないわ。
ExcelヘルプでFormatで検索しても出てこなかったが、表示書式指定文字で検索したら出てきたよ。

>>701
日付の書式のヘルプ初めて見たよ。
cとかooooとかwwとか今まで知らんかった。

>>702
同じく。
しかしヘルプでFormatじゃなくFormat関数と最後まで打てば日付関連の書式は出てきたな。
手抜きはいかんな。
またうざいとか言われるからこのへんにしとくよ。

>>703
「Format 日付」でも出てくるよ。
間にスペース入れればAnd検索だな。

>>704
ﾄﾝｸｽ
Formatだけでも2ページめにあったね。
ヘルプはカーソル当ててF1しか普段使わないから、オンラインヘルプの使い方知らなかった。

いつからこのスレは自分が発見したことのメモ帳になったんだ

>>701
で、結局そのヘルプのありかをこのスレにフィードバックするつもりは無いのか。
やっぱValueの奴とレベル一緒だわお前。

>>672でちゃんと使い方が間違ってると教えてもらってるのに、何なのこいつ。

>>672
>>669だが、夜会合ですぐレス書かなくてすまんな。
ヘルプは>>671や>>704のおかげで読めたよ。
俺も実は探せてなかったもんでね。
ヘルプ読めと言いながらVBAのヘルプじゃないものを教えた人もいたみたいだが。

まちがった
>>701や>>704のおかげな

>>707
ヘルプのありかは>>701はフィードバックしてるんじゃね？
表示書式指定文字で検索って書いてあるし。
Excelヘルプをオンラインヘルプに読み替えればいいんじゃね？

ヘルプ見ろで切れまくる奴はいるは、ヘルプ見つけられない奴続出だわ、レベル低すぎ。
お前ら一体今までどうやってプログラミングしてたんだよ？
何でもググってコピペしてたんじゃねーの？

エクセルVBAであるサイトのラジオボタンを自動で選択するマクロを作っているんだけど
その方法が検索で調べた方法じゃできなくて困っています。

HTMLのラジオボタンの部分のソースは
<input name="kumiban1" value="1" onclick="check1(this)" tabindex="3" type="RADIO">

となっています。

"kumiban1"のvalue="1" をクリックしたいのです。

>>713
同じページ内に同じ名前の name="kumiban1" が複数あった場合は objIE.document.all("kumiban1") だとエラーになる。
そういう時は objIE.document.all("kumiban1")(0) 、objIE.document.all("kumiban1")(1) のように番号を付ける。
自分のチェックしたいボタンが何番目かは自分で調べてね。

>>712
まぁまぁ、レベルの高いと思われる>>694でさえ見つけられなったんだから。
俺もF1キーで大体事足りてるしね。
ところで2010では有名なFindメソッドの使用例の間違い、直ってるか誰か知らない？
俺未だにISDNだからベータ落とせない。
前トライしたら途中で切れてばっか。

>>712
コピペでマクロ作って社内で高評価
↓
自分で考えなければできないようなことをさせられる
↓
コピペ技術だけじゃどうにもなんねぇ・・・でもまともに組んだことねぇ
↓
そうだ！聞いて教えてもらう←いまここ
↓
結局できない
↓
評価右肩下がり

>ISDN
マジか！！
まだいるんだなぁ…
テレホ思い出したわ

つうか、ネカフェとか行ってDLしてくりゃいいんじゃねぇの？

かわりにダウンロードしてくれる友達とかいないの？

>>717
そんなものあったらすでに行ってるよ。
こちとらド田舎離島だからね。
今度弟にDLしてもらって郵送してもらうかな？
来年は光が開通するんだが。

>>718
リロードしなかった。
>>719のとおり。

>>714
＞番号を付ける
の記述はどうやるんですか？

>>721
えっ
回答にちゃんと番号付いてるやん

>>715
なんで>>694がレベル高いことになってるんだかさっぱりわからんが、F1で事足りないときの
対処法を言ってるんだが。馬鹿(694)が一人でもいると、自分がマニュアル見ないエクスキューズになるのか？

>>722
いや構文の記述法がよく分からないのです

プログラマー
RTFMは
遠くになりにけり

>>723
レベルが高いをまじにとったか。
昨日Value関連でさんざん罵倒してたのが彼だと思ったからちょい嫌味で書いただけ。
人違いだったらごめんな。

>>724
ブラウザをコントロールする方法はいくつかあるから、
まずは自分のやりたい方法というか、試してだめだったプログラムをここにアップして。
そしたら修正点を書くから。

ってかここカルシムム不足がいるよね。
あーいえばこういうし困ったもんだ。

牛乳飲もう

>>727
いくつか試したんですが例えば↓こんな感じです。

Dim objIE As Object
Dim objITEM As Object
Dim nNO As Integer

Dim strRADIO(0 To 5) As String



strRADIO(0) = "1"
strRADIO(1) = "2"
strRADIO(2) = "3"
strRADIO(3) = "4"
strRADIO(4) = "5"
strRADIO(5) = "6"

nNO1 = 1



On Error Resume Next
For Each objITEM In objIE.Document.all

If objITEM.TAGName = "INPUT" Then
If objITEM.Name = "kumiban1" And objITEM.Value = strRADIO(nNO) Then
objITEM.Checked = True

End If
End If
Next

>>728-729
まったく関係ないけど、それ俗説だから。

アホがアホって言われることが気に入らない奴が居るみたいね。

>>731
そうかカルシウムじゃ駄目なのか。
もう駄目かも知らんね。
もともとプログラマーは廃人が多いんだが。

すみません、A列目の値が x で、1行目の値が y となるようなセルを探すのは
VBAでできますか？Excelの機能だけでもできますか？
どんな関数を使えばいいかヒントをください。検索します。

>A列目の値が x で、1行目の値が y となるようなセル

？？？？？？？？？？？？？？

すみません、A列の値と1行目の値をキーとして交差するセルを検索したいのです。

ctrl + Fで検索すればいいんじゃないの？
つか、ここはVBAの質問スレだぞ。

すみません、そのセルの値をプログラム的に参照したいということです。

A列の値と1行目の値をキーってのがわからない
例をしめしてちょ

>>734
どうかな？

Do While セルの値が空白になるまで
　if セルの値が"x"の場合
　　　セルの位置を取得してLoop終了
　end if
　
　一つ次のセルへ移動
Loop

考え方は以下の手順でよろしいかと。

A列を検索し、"x"の入っているセルの行番号を取得
1行を検索し、"y"の入っているセルの列番号を取得
Cells(行, 列).Value で目的のセルの値を取得

worksheetfunctionでlookupとかじゃだめなの？
質問者のレベル的にそこまで難しいことをしてなさそう。

でも、質問があると速攻答えてくれるお前らは何だかんだで根はいい奴等だと俺は思ってるんだからね///

>>713,730
コピペミスだと思うけど
　<input name="kumiban1" value="1" onclick="check1(this)" tabindex="3" type="RADIO">
を対象なら
>>730 は
　誤 nNO1 = 1
　正 nNO = 0
ではないかな

これでチェックが入るはず

その上でonclick="check1(this)"を作動させたいのであれば

objITEM.Checked = True
を
objITEM.Click
に変更してみては？

下手な言葉で説明されるよりも具体例を出して何をしたいのかを言った方が遥かに早いと思うぞ >>734

質問です。
決まったセルの位置をVBAで扱う場合、
私は下記のように定数定義して使っています。

Public const 合計金額欄 As String = "D8"

この方法は、
Range(合計金額欄) には良いのですが、
Cells(r, c)　で使いにくい欠点があります。
みなさんはどんな風に位置を定義していますか？

>>746
極力マジックナンバーや文字列リテラルをコードの中に入れないと言う
方向性はいいけど、度が過ぎるとくどいコードになるから嫌われるよ。
セルくらいはコードの中でオブジェクト変数に
Set c = Range("A8")
と書いてcを使い回せばいいじゃん。
多くのプロシージャで定数の合計金額欄を使いたければ
各プロシージャの 中でオブジェクト変数に
Set c = Range(合計金額欄)
などとセットしてcを使い回せばいい。
CellsやRangeを頻繁に使うコードはあまりきれいじゃないから。

プロシージャの先頭で
Set c = Range(合計金額欄)
みたいにして、実際の処理にはcを使うようにすればいい。

「名前」を挿入しろよ

>>725
2010のFindメソッドのヘルプは相変わらず間違ったまま。
直す気はさらさらないんでしょうね。
2002のころから報告は山ほどいってるはずなのに。

あと静かになったところを混ぜ返すのもなんだけど
>>669,>>672
別にFormatの第二引数の記述が間違ってるわけではないでしょう。
ご本人が>>678で書かれてるように第二引数の書式にそって出力
されてるだけだから。
Format(Range("a1"), Range("a1").NumberFormat)
すなわち
Format(1, "General")
すなわち"Genaral"の左4文字は書式指定文字で
Format(1, "Gene"""ral""")と同じ。
シリアル値の1は1899/12/31(明治32年12月31日)だから
書式にそって"M32032ral"が出力された。
別に記述が間違ってるわけではないですね。
"M32032ral"に意味があるかと言われれば何もないけど
Format(値,Range(***).NumberFormat)って書き方は日付の値検索で
使うこともあるね。
長文失礼

わかった。
お前が一番のいらない子だ。

つか、暴言は気まくりの奴をなんで「ご本人」とか言ってるんだか

>>747
>Set c = Range(合計金額欄)
なるべく上記のようにして変数で取り扱うようにしたり、
Withで記述を省略したりしています。

>度が過ぎるとくどいコードになるから嫌われるよ。
入力フォームと定数定義を作りながら、
だんだん動作と実装のイメージを固めてコーディングに取り掛かる、
という作り方をしてるorz。

>>750
何を言いたいのか良く解らないけど、それマニュアル読めば解決することだよね？
マニュアル読めという回答はするなという主張なのかな。

ほとんどの質問はぐぐれば解決することだよね？
以下略

暴言ねぇ、
そんなのどうでもいい。
仮に丁寧でも内容が間違ってれば駄目だから。

ヘルプ読めはべつにいいんじゃないの？
ただ間違った指摘があったから書いただけ。

>>746
本当に決まり切った位置なら、セルに名前を付ける。
http://home.att.ne.jp/zeta/gen/excel/c03p05.htm

そうじゃないなら、Rangeを返す関数を作ったり、そのRangeの値を返す関数を作ったりする。
function SumPriceRange() as range
set sumpricerange = range("d8")
end function

function GetSumPrice() as long
getsumprice = range("d8").value
end function
とか。

>>750
君って、printf("%d", some_pointer)で変な値が出力されるんですけど、とか聞かれたら、
どのような仕組みでその変な値になるか説明しそうだな。

>>757
セル範囲を管理するモジュールを１つ用意して、
その中にセル範囲を返す関数を並べ、
各プロシージャはそれを参照するという感じでしょうか？

>>750
669だけど、WorksheetFunction.Text(値,書式)のように返り値1を期待してのものだったので俺の間違いでいいです。
これ以上相手すると疲れるから。
降参です。

自分で事を荒立てといて、なんていいぐさｗ

最初のレスでG+e+n+e+ralで表示された結果って書いとけば良かったんだよ。
マニュアル読めとか出し惜しみすんなよ。

なんか再燃してるねぇ。
2chはこうじゃなくっちゃｗ
>>752
暴言がどれをさすか知らんけど、クソ生意気と書いたのは俺で質問者じゃねーから。
>>762
出し惜しみする頭なんてあるわけないと思うｗ
Formatの使い方よく知らないからヘルプヘルプとわめいてたんじゃね？

ﾔﾚﾔﾚ ┐(´ｰ｀)┌ ﾏｲｯﾀﾈ

>>750
どうもです
MSも相変わらずですか。

>>744でもダメですた。
競艇の自動投票を作っているんですけど競艇のサイトが特殊なのかな・・・
ラジオボタンのチェックが入りません。

>>750
何がどう間違っているのか書けよ屑

>>766
投票ページにアクセスするには会員登録が必要だろうから、
そのページのソースをどっかにアップしてくんない？

>>750
お前の存在が間違いじゃないの？
そもそも荒れた原因はお前が最初にFormatのやつうざいと言ったからだろ？
Valueから暴れてるよな？
もういいから消えろ。
素人の好奇心云々や文系高卒やらさんざん暴言吐いてたのはお前だと思うが
素人はお前だ。
玄人と思ってるかも知らんけど、それは勘違いというものだ。
わかった？トウシロのぼくちゃんｗ

テンプレに、「まずOption Explicitをつけろ」も追加が必要だな

おーすまん>>750
上はもちろんトウシローの>>767あてね

>>750
> 別にFormatの第二引数の記述が間違ってるわけではないでしょう。

これってへりくつって言うんですよ。
それに既に>>678で説明済みのものを、自分の言葉で長々とかかずにはいられない
ほど自己顕示欲をもてあましてるんでしょうか。

>>769
そんなに基本的な論理学もわかってなかったことを指摘されたのか痛かったのかな。
知らないことを教えてもらったという意味で、感謝されてもいいくらいだ。

「間違いを訂正するときには、
名前欄に自分のレス番号を記入すること」も追加かな。

はっきり言って、>>2にもあるように、Excelのバージョンくらい書くのがこのスレの礼儀だし、
まずヘルプを確認するのが常識なんだけど、それを指摘してる奴が痛すぎて、相対的に
バージョンも書かない、ヘルプも読まない奴の方が正義っぽくなってる。

そいつの相手してる奴がこれまた痛いｗ

>>767
"M32032ral"って何かって質問だから>>762を読めば？
何で出し惜しみしたの？

いろんな厨がいるが、ヘルプ厨ってのもいるんだなｗ

>>766
これ以上は自分の手に負えそうに無い感じだけど
最後に１点だけ

If objITEM.Name = "kumiban1" And objITEM.Value = strRADIO(nNO) Then
　Debug.Print "ここに北"
　objITEM.Checked = True
End If

とかやってみ
イミディエイトウインドに何も表示されないなら
対象タグを見つけられてない
フレーム分割されているとかそんな感じじゃないのかな

>>777
俺は頭悪いからそんなこと分らないんだよ
とにかくヘルプだヘルプ！
VB.NETのヘルプじゃなくてVBAのヘルプな

わからなかったら素直にそういえばいいのに。
自分の無知を認めることも大事だ。

printf("%d", some_pointer)で変なマイナスの値が表示されることに
一生懸命説明する奴大杉。

自作自演もほどほどにしようぜ

必死だなｗ
しかしまぁ流れを読んで見ると>>678に対する>>679が一番アホだな。
こういう馬鹿ヘルプ厨がいるからおかしくなるんだよ。

今顔真っ赤です。

こうですか？わかりません（＞＜）

>>785
お前は暴れてるやつの一人だと思ったが、ただ無知だっただけの善意の第三者か？

レスが集中してるから暴れてるのは一人か二人だと思う。
暴言吐いてる人が構ってチャンじゃないかな。

OAuthをExcelVBAで書きたいんだけれど
サンプルどこかに転がってるでしょうか？

withevents　を使用するために参照設定があれば教えてください

また、使用方法の勉強に適したURLあればお願いします。

>>768
ソースアップしました。
http://firestorage.jp/download/90a5112c83637a3be41a86ca9723b61c6c7229b1

WithEventに参照設定要ったっけ？入れなくてもThisWorkBookモジュールに入れたら動いたけど
あと、その競艇投票ソースとExcelとの関係は？

あ、それから説明サイトは、、、、

mougの即行テクニックで witheventsで検索すればちょろちょろと解説がある

ＶＢＡで練習用にマインスイーパ作った

他なんか勉強になって作って楽しいもんないかね

>>793
ゲーム作って勉強したいならこんなんあるみたいよ。
http://www.amazon.co.jp/gp/product/4844326864/

>>794
なんだかオモチャ臭がぷんぷんするけど
どうなんだろうね

>>795
どうなんだろねー？
動画見たら、こんなんVBAで出来るの！？って興味持ったけど
値段高いからねぇ。
図書館で検索したけどなかったわｗ

VBA、というよりはWin32APIを使いまくってるけどね
ttp://gyouzausa.hp.infoseek.co.jp/mode1/GAME/index.html

初歩的な質問ですけど、教えてください

'対象行をdataシートへコピーする

Sub ColumCopy(ByVal cnt As Integer)
Dim k As Integer
Worksheets("data").Activate
k = 0
Do
k = k + 1
Loop Until Cells(k, 1) = ""

Worksheets("Page1").Range(Cells(cnt, 1), Cells(cnt, 8)).Copy _
Destination:=Worksheets("data").Range(Cells(k, 1), Cells(k, 8))

Worksheets("Page1").Activate
End Sub

というのを作ったんです（cntには51という値が、kには1という値が入っています）が、

実行時エラー
アプリケーション定義またはオブジェクト定義のエラーです
でWorksheets("Page1").〜の部分で終了してしまってます

どの様に直せばよろしいのでせうか？