Excel VBA 質問スレ Part18

過去スレ
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/
14 http://pc12.2ch.net/test/read.cgi/tech/1262748898/
15 http://pc12.2ch.net/test/read.cgi/tech/1271261239/
16 http://hibari.2ch.net/test/read.cgi/tech/1280045912/

関連スレ
Excel総合相談所 95
http://hibari.2ch.net/test/read.cgi/bsoft/1293162589/
Word総合相談所
http://pc11.2ch.net/test/read.cgi/bsoft/1263719084/
【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://pc11.2ch.net/test/read.cgi/bsoft/1151651536/

忘れてたので追加

前スレ：
Excel VBA 質問スレ Part17
http://hibari.2ch.net/test/read.cgi/tech/1289182437/

>1　乙でした。テンプレです。

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

★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つユーザーフォームについて質問です

一つはユーザーフォームを多重で起動することは可能でしょうか？
userform1.show
userform2.show
二つ続けても消さないと次が出てきません。

二つ目はユーザーフォームの番号を変数で表示することは可能でしょうか？
UserForm(i).Show　こんな感じに、でもこれだとエラーでてしまいます。

>>4

まず最初の質問は

userform1.show False

とすると多重で表示できます。

これをすると、シートのデータがいじれるので
場合によっては危険です。

2番目の質問は、下のコードを見て色々試してみてください。
（UserFormsとUserFormの違いに注意）

Load UserForm1
MsgBox ("UserForm1 を読み込みました。表示はまだです。")
Load UserForm2
MsgBox ("UserForm2 を読み込みました。表示はまだです。")

UserForms(0).Show False
MsgBox ("最初に読み込んだUserFormオブジェクトを表示しました")
UserForms(1).Show False
MsgBox ("2番目に読み込んだUserFormオブジェクトを表示しました")

表示形式が、文字列（Ａ）、数値（Ｂ）、日付（Ｃ）の値のみを消去する場合

１）Range("A1:C50").value = ""
２）Range("A1:C50").ClearContents
　
上記１，２、どちらでもＯＫか？
　

>>5
できました。
丁寧にありがとうございました。

>>6
jsk駄目だろ？
例えば後ろにデータがないときMsgBox Range("A1000").End(xlUp).Addressってやってみなよ。

>>8

確認した。ありがと。
　

ttp://www.excellenceweb.net/vba/class/class_method.html
このページの下の方の例文(足し算を行い、合計と平均を返すクラスの運用 その２)で
SATOU、SUZUKI、TAKAHASHI等の変数が20個も200個もある場合
整理されて、後で改造もしやすくするにはどうすればいいですか

Dim humans As Variant
humans = Array(, "SATOU", "SUZUKI", "TAKAHASHI", ・・・・・・・・
とかしてループして各メソッドを呼ぶんですかね

>>10
俺だったら配列で引き渡すわ
それが個人的には1番楽だし改修も引数だけでいいしね

あと、Variantは関係ない

WinXP sp3 Excel 2003

1024列×768行の数値が書かれたCSVファイルをラインモードで読み込み、平均した後、
256列768行にして数値を入力するような命令を実行しています。
この数値の中で、ある値以下の平均を取っていき、その変動が最小になる値を求めたいです。
（10以下平均-9以下平均）、（11以下平均-10以下平均),,,,(30以下平均-29以下平均)
Averageifがないので、SUMIF()/COUNTIF()のように計算させ、Do loop等で
順番に計算させようとしたところフリーズしてまともに計算できません。

そこであらかじめシートの方に、A列にSUMIF/COUNTIFを入力し、
B列にA3-A2のように入力し、B列が最小になる行のA列の値を取得しようと思います。
どのようにしたらよいでしょうか。またほかに何かよい方法はないでしょうか。

>12
パフォーマンスを求めるならExcel/VBAじゃなくて.NETなり
数学計算できるソフトほうがいいんじゃないかな？

あと、どうしたらいい？じゃなくて思ったことをじゃなくてVBAやってみたら？
ロジックを考えてくれっていうのはナシの方向で。

>>12
if文で最小値比較して、それをfor文で回すだけじゃね？

>>13 >>14
あまり美しいとはいえないですが、
A列にSUMIF/COUNTIF
B列にA3-A2,,,,
適当なセルにSUMPRODUCT((B10:B30=MIN(B10:B30))*ROW(B10:B30))で行番号取得、
Cells()でA列のこの行番号の値を入れて取得でできました。
SUMIF/COUNTIFもマクロ上だと重いですが、セル上だとさくっといくみたいです。

>>12
たかだか70万件のデータでフリーズするとは、あきらかにプログラムがタコだな
アルゴリズムをよく考え直した方がいい

まあ、とりあえずExcel2010買ってこい
小細工しなくても1024列のデータがそのまま読み込めるから
プログラムが少し楽になる

>>16
ど素人ゆえプログラムもかなりのへたれですが、
パソコンもへたれです。pen4世代のCeleron1.8Gのノート。
会社パソコンなもので、ハード、ソフトともにアップデート不可です。

>>12
何をやりたいのか、よく判らないが

『フリーズしてまともに計算できない』コードにはバグがある可能性が
高い気がする

昔、同じくらいのマシンで数十分かかる処理をさせた事もあるが
この場合、無限ループに陥っている可能性を疑う

それと毎回セルに書いていたりする？

その場合、
Application.ScreenUpdating = False
とかは使っている？

フリーズ＝単に時間のかかる処理の実行中でエクセルが反応しない　の意味なんじゃね？

>>12
たぶん、プログラムをちゃんと作ればそんなに時間はかからないと思うんだけど、
その説明だけでは不明な部分がいくつかあるから具体的なプログラムが示せないんだよなあ
まず「ラインモード」ってなんだ？

たぶん、文章で説明するのはかなり難しいだろうから、現物を見た方が早い
そのデータとExcelのファイルは公開できる？

>>18
使うのが基本。

あとメモリはいっぱい積もうな。8Gなんて今余裕だろ。
これで100万件ぐらいでフリーズしない。

>>22
>>17の状況じゃ無理だろう

まあ、このスペックでもこのデータ量なら動くと思うけどね

頭の弱いやつがいくら高性能パソコンでメモリいっぱい積んでも根本的な解決にはならん。
他言語でも同じ。
まず計算ロジックの見直しだな。
SUMIF()/COUNTIF()なんてのは論外だよ。
>>16の言うとおり。

(10以下平均-9以下平均）、（11以下平均-10以下平均),,,,(30以下平均-29以下平均)をSUMIF/COUNTIFかよ。
ソートすりゃどうにでもなりそうだな。

ピボットテーブルでグループ化して平均出せばいいんじゃないの？

【コラム】あまりに便利すぎた・・・Excel VBAの「行き詰まり」問題〔07/02〕
http://pc11.2ch.net/test/read.cgi/pcnews/1246498806/

検索してたらこんな切ないｽﾚがあったんだけど、今からExcelマクロ勉強するのって無駄？
まあ、ちょっと頑張って正規表現と両方憶えれば万能なんだけれども・・・

無駄ってことも無いとは思うが、昔納品した客から
Excelのバージョンアップしたら色々問題が出て
VBA使うPCのExcelを前のバージョンにしたと聞いた

>>27
このスレを見てればわかるとおり、VBAのエキスパートになる必要はないけど
Excelを使うならVBAは知ってた方が捗る

このスレを見てればわかるんですか？

VBAのエキスパートにならなくても
ここで質問すれば解決って意味でしょ

Ｂ7からＫ19までを一行おきに色を付けたいと思い下の通りに
作ったのですがうまくいきません；；どこが間違っているか教
えて下さい。宜しくお願いします。

Sub test()
For CellGyo = 7 To 19 Step 1
Range("B" & CellGyo & ":" & "K" & CellGyo).Select
Selection.Interior.ColorIndex = 34
Next CellGyo
End Sub

step 1 じゃなくて step 2

step 1ってことは、色を塗って、次はその下の行を塗る
1行ずつってことは、色をぬった行の２行下の行を塗るわけだ

>>33
ありがとうございます！理由まで書いて頂いて本当に助かりました！！

>>32
Sub a()
　　With Range("B7:K19")
　　　　.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)=1"
　　　　.FormatConditions(1).Interior.ColorIndex = 34
　　End With
End Sub

良ｽﾚ

>>32
Sub b()
Dim R As Range
For Each R In Range("B7:K19")
If R.Row Mod 2 Then R.Interior.ColorIndex = 34
Next
End Sub

みなさん昨日はありがとうございました。VBAを始めてまだ数日なので、教えて頂けてとても助かります！
今日は４月度売り上げデータのシートの値を月別売り上げ報告書のシートに転記したくて次の様に作った
のですがエラーになってしまいました；；どうしたらエラーにならないか教えてください。本を読みなが
らやりましたが分からないのでどうか宜しくお願いします。

Sub 報告書作成()
Dim CellGyo As Long
Dim HoukokuGyo As Long
Dim Tanto As String
Dim Tokuisaki As String
Dim Tiku As String
Dim Gyoshu As String
Dim Month As String
Dim Uriage As Currency
For CellGyo = 3 To 65536
Sheets("4月度売上げデータ").Select

続き�@です
Range("C" & CellGyo).Select
Tanto = Selection.Value

Range("D" & CellGyo).Select
Tokuisaki = Selection.Value

Range("E" & CellGyo).Select
Tiku = Selection.Value

Range("F" & CellGyo).Select
Gyoshu = Selection.Value

Range("H" & CellGyo).Select
Uriage = Selection.Value

If Tanto = "" Then
Exit For

MsgBox "処理が終了しました"

End If

Next CellGyo

続き�Aです
Sheets("月別売り上げ報告書").Select

For HoukokuGyo = 7 To 65540

Range("C" & HoukokuGyo).Select
Selection.Value = Tokuisaki

Range("D" & HoukokuGyo).Select
Selection.Value = Tiku

Range("E" & HoukokuGyo).Select
Selection.Value = Gyoushu

Range("F" & HoukokuGyo).Select
Selection.Value = Uriage

Next HoukokuGyo

End

End Sub

>>38
デバッグのやり方は経験を必要とするが、コードを書いたら
まず、メニューの『デバッグ』から『VBAProjectのコンパイル』を選ぶ

これにより、あなたのコードで、すぐ判るのは

Dim Gyoshu As String
で定義しているが

Selection.Value = Gyoushu

と書いているところがあり、これの定義がされていない
(つまり変数名が間違い)

なお、『ツール』メニューの『オプション』を選び、『編集』タグで
『変数の宣言を強制する』にチェックをつける事が前提

>>38
エラーが出たなら最低限どんなエラーが出たかぐらい書け。あとExcelのバージョンも書け
エラーの原因をエスパーすると、
4月度売上げデータのH列に数字以外が入ってる行がある
Excelのバージョンが古くて月別売り上げ報告書に65540行もデータを作れない
のどっちか。でもたぶんエラーでなくても思った通りには動いてないと思うけどｗ
Sub 報告書作成()
    Dim CellGyo As Long
    For CellGyo = 3 To 65536
        If Sheets("4月度売上げデータ").Cells(3, CellGyo).Value = "" Then
            Exit For
        End If
        Sheets("月別売り上げ報告書").Cells(CellGyo + 4, 3).Value = Sheets("4月度売上げデータ").Cells(CellGyo, 4).Value
        Sheets("月別売り上げ報告書").Cells(CellGyo + 4, 4).Value = Sheets("4月度売上げデータ").Cells(CellGyo, 5).Value
        Sheets("月別売り上げ報告書").Cells(CellGyo + 4, 5).Value = Sheets("4月度売上げデータ").Cells(CellGyo, 6).Value
        Sheets("月別売り上げ報告書").Cells(CellGyo + 4, 6).Value = Sheets("4月度売上げデータ").Cells(CellGyo, 8).Value
    Next CellGyo
    MsgBox "処理が終了しました"
End Sub
やりたいのはこういうことじゃないのか

>>41
うは、普通に見落としてたわ

ちなみに、『変数の宣言を強制する』は後からチェック入れてもダメだからな
あれは最初からコードの頭にOption Explicit入れてといてくれるだけだから

俺の感では今回はおそらくそのエラーではないと思うが

>>43
実は、同感

何度か回答してきたけど、デバッグの基本的なやり方とか
書いておかないと、きりがない気がしてきたのでｗ

コンパイルとブレークポイントを覚えるだけで質問以前に
解決する事例も少なくないように思う

終了判定をループ外に出して
シート名のハードコードも個人的に気持ち悪いので定数にしました。

Sub 報告書作成()
Dim CellGyo As Long
Dim GyoEnd As Long
Const Read_Sh As String = "4月度売上げデータ"
Const Write_Sh As String = "月別売り上げ報告書"

GyoEnd = Sheets(Read_Sh).Cells(3,3).End(XlDown).Row
If GyoEnd > 65532 then
GyoEnd =65532
End If
For CellGyo = 3 to GyoEnd
Sheets(Write_Sh).cells(CellGyo + 4, 3).Value = Sheets(Read_Sh).cells(CellGyo, 4).Value
Sheets(Write_Sh).cells(CellGyo + 4, 4).Value = Sheets(Read_Sh).cells(CellGyo, 5).Value
Sheets(Write_Sh).cells(CellGyo + 4, 5).Value = Sheets(Read_Sh).cells(CellGyo, 6).Value
Sheets(Write_Sh).cells(CellGyo + 4, 6).Value = Sheets(Read_Sh).cells(CellGyo, 8).Value
Next CellGyo
MsgBox "処理が終了しました"
End Sub

ただ、質問主さんが説明不足なので分かりませんが、
もしかしてこのシート、別々のブックだったりしませんかね？
同じブックの中でこんな転記したってあまり意味が無い作業のような・・・
本来は、全体の売り上げデータが入ったブックから担当ごとのブックに転記、
という作業なんじゃないかなぁという気がします。
(それにしては担当者の選択処理が無いけど)

個人的な好みで言えば、同じオブジェクトを何度も参照する時はWith、
複数ある時は変数にまとめたいところ

Set WS = Sheets(Write_Sh).Cells(CellGyo + 4, 3)
Set RS = Sheets(Read_Sh).Cells(CellGyo, 4)
WS.Offset(0, 0).Value = RS.Offset(0, 0).Value
WS.Offset(1, 0).Value = RS.Offset(1, 0).Value
以下略

わざわざOffsetを並べてるのは、セル番号が不自然に飛んでるから、
あとで参照先を増やしたり減らしたり改造が必要になる可能性がありそうだから
修正箇所をわかりやすくするのが目的

何のエラーか書いていなくてすみません。次からはちゃんと分かって頂ける
ように書きます。エクセルは2007です。そして2つのシートは同じブックの
ものです。
これは実際仕事で使うものではなく通信教育の課題です。もっと勉強して
から課題に取り組めば良いのですが提出期限明後日なので・・・。
みなさんありがとうございました！！

GetAsyncKeyStateで何かボタンが押された処理はどうするのでしょうか
Cでいうwaitkeyです

Do
If GetAsyncKeyState Then Exit Do
Loop
したいのはこういう感じです

>>48
ここに書くより検索した方が早い気がする

vba GetAsyncKeyState　で検索

キーボードからの入力を判定する
ttp://www.happy2-island.com/excelsmile/smile04/capter00301.shtml

言い忘れていました
引数を指定せずに何でもいいのです

>>50
>>49を参考に出来ると思うのだが？

GetAsyncKeyState　は、256 とおりの仮想キーコードのいずれかを指定することで
そのキーが押されたかどうか調べるわけだから、マウスボタン等の不要なキー以外の
いずれかが押されれば、Loopを抜ければいいんじゃないの？

まあ、Escキーを押されたらというのは工夫がいるかもだけど

まあ、最終的に何をやりたいかが判らないけど

UserFormのKeyDownイベントで拾うという方法も考慮してもよいかもね

testtese

Private Sub Main()
　Dim c As Variant,i As Long
　c=ThisWorkbook.Worksheets("Sheet1").Range("A1:V17616")

　For i = 0 To 999999999999999
　　calc c
　Next i
End Sub

Main内で全く変更されない変数cがあって、その変数cがcalc関数にパラメータとして渡される場合
変数cはモジュールレベル変数とした方が良いか、ローカル変数とした方が良いかアドバイス下さい

訂正
全く変更されない
　　　　↓
c=ThisWorkbook.Worksheets("Sheet1").Range("A1:V17616")以降全く変更されない

Step 1　も忘れてた

>>54
変数等のスコープは可能な限り狭いほうがいい。

>>57
パラメータとして渡した方が良いんですか
ありがとうございました

>>57
それ、何故か？ということについて、
詳しく開設されている本とかサイト知りません？

その変数がどこで使われているのかとか判り辛くなるから。
一ヵ月後に修正とかしようとすると簡単に死ねる。
>>54 の例だと、cに設定した内容が他で参照される可能性とか
考えなくてはならなくなる。
ローカル変数なら、そもそもあり得ないから頭を使わなくて済む。

>>59
>>57じゃないけど

友人がシステム保守の仕事をやっているわけだが
パブリック変数を安易に使うな！と怒っていたなｗ

パラメータで渡しておけばデバッグは相当楽になる
(大抵はその関数だけ見ておけばよい)

自分は一人で組んでいる場合は、パブリックに逃げる癖があるけどｗ

>>59
個人的には、
メソッドを後でコピペで再利用しようと思っても出来ない。
変数の状態が追跡しにくい。

その中でもフラグ系は特にひどいな。

>>61>>62
なるほど。ありがとうございました。

今、高速化する方向で書いている最中なので気になりました。

>>63
可読性や安全性、バグの出にくさと処理速度は反比例するからねー
コア部分をうまくモジュール分けしてブラックボックス化するぐらいしか対応策はないと思う

引数渡しをパブリック変数化することで高速化?

まずは本当にそこがネックになっているか確認したほうがいいと思うよ。

>>65
違う。ループ内とかのブロック変数の話。

VBA でブロック変数って With しか思いつかないんだけど、
どこからそんな話が出てくるんだ?

そもそも >>58 で、「パラメータとして渡した方が良いん
ですか」と言ってるし。

>>67
すみません。>>57から乗りました。
ブロック変数じゃなくてブロック内定義変数について
気になってました。

だから、そもそも VBA に With 以外のブロックなんてないだろ。

これ以上何か聞きたいなら、>>52 のようにソースとともに書き
込んだほうがいいよ。

>>54だったら定数化もありだね。
const付けられないから変数になっちゃうけど。

問題で月別売上集計のマクロを作成しないといけないのですがわからないのでどなたかおしえてください！
例えばセルB2からセルB299までに１年分の日付がランダムで入力されてるとします。
で、セルK２からセルK299に金額がランダムで入力されています。
マクロを使って月別の売上を出すにはどのようにしたらよろしいですか？
説明が下手で申し訳ないです

VBA使わずDSumでいけるという話だが
あえてなおVBAならWorksheetfunction.DSum

ありがとうございます！
VBAでしないといけないのです。。。
とりあえずWorksheetfunction.DSum
でやってみます

何度もすみません
１月の集計　○○円
２月の集計　○○円
・・・
と続くのですが月別にするのがわかりません。。。
またアウトラインを使わないといけないのですが
１、総計
２、月別
３、全体の表示
としないといけないのですがわかりません。
どなたかおしえてください

>>74
アウトラインって集計か？
集計とか統合はウンコだから覚えなくてよい。
ピボットテーブルを覚えりゃよい。
月でグループ化すれば簡単だ。
ピボットテーブル使えない人は日付でソートして同じ月の間だけ加算していくマクロになるが,、ピボット覚えた方が楽。

VBAでやるにしたって、ソートなんて必要ないだろ…
月をインデックスとした配列に順番に足すだけ

>>76
１年分の月に関しては確かにそうだな。
一般的なピボットの内部ロジックを書いた。

複数年の月別でも列が年で行が月とかなら次元配列でもいいか。

上は2が抜けた。

問題でって書いてるから、まあなんかの実習問題なんだろうけど
それってVBAでやれって問題なのか？

VBAでやるのにアウトライン使えとか普通ないだろ
エクセルの機能とかの実習ならむしろVBAつかっちゃいかんのじゃないか

>>74
VBAで「ピボット操作して集計シートにコピペ」までやれば
「マクロを使って月別の売上を出」したことにならないかな。
同じ結果を出すなら、自作コードでやるより
エクセルの機能を使ったほうが明らかに動作速いし。

ワンタッチで全部済むと
とても気分はいいけどな

>>81
月別なら自作の方が速いだろ？

置換について分からないことがあるので教えてください。
セルA1に文字と数字が入った
ABC123DEFというような文字列があります。
この中の数字のみ（文字も数字も桁数は一定ではありません）
置換したいのですが、例えば0から200の間であれば置換
というようにReplaceを使った場合指定する方法はあるのでしょうか？
お願いいたします。

>>84
ない
数字と文字を分けて数字の大きさを判断して置き換える、というプログラムを自分で作る必要がある

流れぶった切ってすみませんが、どなたか教えてください。
Win7 64bit、Excel2007、CPU Corei7 980X、メモリ12GB の環境です

まず一地点分のファイル（新規ワークブック）を作成して、
次に
一日分のデータ（一つ30MBぐらいのcsvファイル）を開いて、
その中の一列（約43万行）を新規ブックにコピー
クローズして次のcsvファイルを同様に処理、
一か月分で新規ブックを保存、
新たな新規ブックを作成
というのを30回ほど繰り返すマクロがあるのですが、
（つまり30地点、30日で計900回オープン、クローズを繰り返す）
このマクロが処理の途中でよく止まりました。
（エクセルは起動しているがマクロは終了している
エラーメッセージも特に無し）
タスクマネージャで見てもCPU使用率もメモリ使用量も20％弱なので
PCスペックの問題ではなさそうなのですが、
エクセル上のリソース不足を疑いました。

そこでWebで調べたら
DoEventsという命令を実行させれば良いらしいと分かったので、
実際に試したら確かに止まらなくなりました。
ただ、なぜ効果があるのかが分からないのでちょっとモヤモヤしてます。

どなたか、DoEventsにどのような効果があるのか教えてください。

VBAからタスクが帰ってこないことを無限ループとみなしてExcelが強制的にストップさせてたのを
DoEventsで定期的にExcelにタスクを回すことで処理が継続できるようになったとか

勘ですまん

>>84
正規表現で数字を取得してCintした数値を条件分岐すれば良い

>>87さん
どうもありがとうございます。
無限ループですか。
確かにForNextで地点ごとのループと、一月分のループをネストして
その中でひたすらオープン・コピー・クローズを繰り返してましたから
無限ループに近かったかもです。
処理を完走させるには10時間以上回しっぱなしで、
その間エクセルでは他の作業が一切出来ませんでした。

私はファイルオープンしたときに確保したメモリを
ファイルクローズ時にきちんと解放できていないのではないかと疑っていましたが、
理由はなんにせよ、
エクセルには止まるなら止まるで何らかのアナウンスをしてほしいところですね。
マクロ停止の理由はともかく、
それを何らのエラーメッセージも出さずにただ止まるだけというのは
アプリケーションの挙動としてどうかと思いますね。

splitに関してお聞きしたいことがあります。
セル内の最後の空白から前と後ろで分けたい場合
どのように記述すればよいでしょうか？

>>90
InStrRevで場所を特定して分割すればいいんじゃないか？
Splitで返された配列の最後の一つ以外を繋ぎ直す手も無くはないけど。

>>89
何となくですが、

Application.ScreenUpdating = False

が記述されていない気がします。

何回もオープン・コピー・クローズしたため、
描画の方に問題が生じた可能性は無いでしょうか？

>>89
>マクロ停止の理由はともかく、
>それを何らのエラーメッセージも出さずにただ止まるだけというのは
>アプリケーションの挙動としてどうかと思いますね。

いや理由は大事なんだが
VBAのエラーなのに何のメッセージもなく停止するのは確かにどうかと思う
が、あまりそういう状況は見たことがない
VABが無限ループしたからと言って、勝手に停止する機能も聞いたことがない
（スタック不足等のエラーで止まることはあるけど）

それらがDoEventsで解消される理由もわからない
あれは制御をいったんOSに戻すだけのものだが
（まあ、DoEventsについては不思議な副作用を起こすことはまれによくあるが）

実際にはエラーでとまってるのに、エラーハンドリングが適切じゃないので
だまって停止したように見えるだけじゃないかと思うんだが、差し支えなければ
実際のコードを晒してみてはくれないか

>>89
Application.Calculation = xlManual
も入れた方がいいな

今どきの64bitマシンで、ファイルをたった900個開く程度で落ちるなんて考えられん
計算してみると1ファイルあたり40秒もかかってることになるわけで
全体で10時間というのも、ちょっと遅すぎる気がする

いっぺんコード晒してみ？

>>91
お陰さまで無事成功しました。
ありがとうございます。
ただ、こんなことで躓いていてはまだまだだなーと・・・

VBAだし43万行だし、40秒はあり得ない話ではなさそう
ところでOffice 2007って32bitアプリじゃないの？
32bitプロセスってメモリ空間2GBしか使えないんじゃなかったかな。12GBの20%弱ってそれに合ってるよね。
メモリの問題ではないかもしれんが、もしかしたらDoEventsでガベージコレクトできるようになって、メモリが解放されたから動く、とか。

>>92-93
どうもすみません、コードを出したくても会社のPCにしか入ってなくて
しかもデータの持ち出し禁止なのでちょっと提示できません。
一応、守秘義務契約もあるのでデータの詳細も明かせないのですが、
頭で覚えてる範囲で書きますと以下のような流れです。

Application.ScreenUpdating = False
Application.Calculation = xlManual
でシートの再計算と画面更新を停止
For i= 1 to 30 '地点ごとループ
転記用の新規ブック作成
For j=1 to　30　’日を表すループ（実際の日数は31とか28とかの事もあります）
i地点、j日 のCSVファイルをひらく
新規ブックの J列にCSVのデータをコピー
CSVクローズ
Next j
i j を基にした名前で新規ブックを保存
Next i
シートの再計算と画面更新を再開
大体こんな感じです。
扱うデータの大きさはちょっと大きめですがマクロとしては至極単純なものだと思います。
エラー処理は入れてませんが、起こりうる可能性のあるエラーとしては
読み込み元のCSVファイルが存在しないとか、
保存するブックと同名のファイルがすでに存在する、などがありますので、
そういったエラーは起きないようにマクロ実行前にファイルの確認はしています。
（というかそういうミスではエラーメッセージがちゃんと出ます。）
・・・ちょっと自分でも分かりにくい説明なので、
明日にでもコードをきちんと確認して再度書き込みさせていただきます。

>>95-96
すみません、>>93を読んでからリロードせずに書いてたので
気づきませんでした。
アドバイスどうもありがとうございます。

うわぁぁぁぁテンパッてて安価ミスった。
>>95-96ではなく
>>94さん、>>96さんでした。
ほんとすみません

あとCorei7 980Xは12スレッドだから、Excelが計算に2スレッドをフルに使えば20%弱だな
たしか設定で使うスレッド数を決められた様な気がするから、増やせばもっと早くなるかもね

行数だけでなく列数も書いてもらえると、再現実験がやりやすくなるんだけどなあ

>>97
保証はできないけれど

For j=1 to　30　’日を表すループ（実際の日数は31とか28とかの事もあります）
i地点、j日 のCSVファイルをひらく
新規ブックの J列にCSVのデータをコピー
CSVクローズ
Next j

の、CSVクローズの直後か直前に、新規ブックを保存 した方が良い気がする

昔、ワードのVBAで新規ファイルを大量にいじる処理をした時、
同様のエラーが出て、随時保存で解決した

ワードとエクセルは違うかもだけ、大量の変更履歴を内部的に
保持できなくなったのが原因の模様だった

>>97
それと

『エラー処理は入れてませんが』

とあるけど、転ばぬ先の杖で入れた方が良いと思う

ホント、世の中、びっくりするようなことが起きるもんだってｗ

>>97
五月雨式で、申し訳ないがもう一つ

それだけ長い処理だと、自動バックアップが影響しているのかも？
(結果的に>>102、あるいは自動バックアップをオフにするべきか？）

>>100-104
おおっ！
みなさん有難うございます。
出勤前でばたばたしてますのでひとまずお礼のみで失礼します。
良かったらまた今晩よろしくお願いします。

とある文字列をA1からA1000までの中から検索するときに
forとifで比較しながら探すのって馬鹿なんでしょうか・・・

forは使うけど、variable型配列に入れてInStrを使うかな

>>106
個人的信条ですが、プログラムは正しく動くなら問題なしです＾＾

ただ、より簡単な方法もあります

ご参考まで

Sub test()

Dim FindCell As Range

'A1:A1000の中から最初に"xyz"が入力されたセルを探します
Set FindCell = Range("A1:A1000").CurrentRegion.Find(What:="xyz")

If FindCell Is Nothing Then
MsgBox "検索に失敗しました"
Else
MsgBox "見つかりました"
FindCell.Select
End If

End Sub

追記
>>108の例ですと、部分一致の場合も見つかったと言いますので注意してください

完全一致のものを探すならば

Set FindCell = Range("A1:A1000").CurrentRegion.Find(What:="xyz", lookat:=xlWhole)

と、lookat:=xlWholeを指定の必要があります

さらに追記

CurrentRegionは、不要ですね

Set FindCell = Range("A1:A1000").Find(What:="xyz", lookat:=xlWhole)

このサンプルは、『vba range 検索』で検索して見つけた

Office TANAKA - Excel VBA講座：セルの操作[セルの検索]
ttp://officetanaka.net/excel/vba/cell/cell11.htm

を参考に(というか、ほぼまる写し)しています

Excel2007


Sub settest()
Const dataf As String = "test"
Dim datafile_path As String

datafile_path = "g:\data\"
Set ws3 = Workbooks(datafile_path & dataf & ".xlsx").Worksheets("test") ←エラー部分

Set ws3 = Nothing
End Sub

インデックスが有効範囲にないってエラーになります

ファイル及びtestシートの存在は確認しています
回避方法を教えてください

Excel 2003と2007、XP SP3またはVistaが対象です。
諸事情あって、VBAからWin32 APIを直接使っています。

DIBを使って画像処理をしているのですが、ワークスペース上の画像を
直接LoadImage(API)するような荒業ってありますでしょうか。

今は、SaveAsを使いxlhtml形式でまるごと保存＞そのうち画像ファイルをLoadImageでメモリ上にロード
＞保存しているファイルを削除・・・・という方法でやっていますが、どうにも泥臭くて・・・。

>>111
Workbooksの使い方が間違っているとおもう
Workbooks(....)は既にオープンされている ブックにしか使えない

　　Set wb = Workbooks.Open(datafile_path & dataf & ".xlsx")
　　Set ws3 = wb.Worksheets("test")
又は
　　Set ws3 = Workbooks.Open(datafile_path & dataf & ".xlsx").Worksheets("test")

後処理で ブックを クローズ(場合によってはセーブ)する事を考えると前者の方が良いと思うけど
wb.Close　とかね

グラフに誤差範囲をVBAでつける事って可能ですか？
ユーザー設定でマスを指定したいです。
可能ならばやり方をお教えください。
windows7 SP1でExcel2007です。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1035701925

86です。昨日の続きをよろしくお願いします。

必要ない部分は省きましたが大体こんなコードです。

モジュールの頭に
Option Explicit
Option Base 1
が書いてありまして、
Application.ScreenUpdating = False
Application.Calculation = xlManual
も実行済みです。
また、下記変数は親プロシージャから引数として渡してます。

Dim Mnth As Long '月
Dim Yr As Long '年

Private Sub ファイル集計(ByVal Yr As Long, ByVal Mnth As Long)
Const POINT_COUNT = 30 '地点数
Dim MyLdPth As String '読込元のパス
Dim MySvPth As String '保存先のパス
Dim MyFldr As Variant '地点名
Dim MyNwBk as Workbook '新規ブック
Dim i As Long
Dim j As Long
MyLdPth = "C:\****\****\"
MySvPth = "C:\****\****\"
MyFldr = Array(***,***,***,***,……) '各地点の名称セット
For i = 1 to POINT_COUNT
Set MyNwBk = Workbooks.Add(xlWBATWorksheet)
'本来はここに1列目に時刻、1行目に日付を入れる処理が入ってます。
'約43万行とは0.2秒刻みで24時間 = 43,2000行です。
For j = 1 to MnthCnt(Yr, Mnth) '月の日数はFunctionで処理してます
Workbooks.Open(MyLdPth & MyFldr(i) & "\" & Format(i,"00") & "_" & Yr &
Format(Mnth,"00") & Format(j,"00") & ".csv")
With ActiveWorkbook.Sheets(1)
.Columns(4).EntireColumn Copy Destination:= MyNwBk.Sheets(1).Cells(2,j+1)
End With
ActiveWorkbook.Close
'****　ここにDoEvents を入れたら止まらなくなりました。　****
DoEvents
Next j
MyNwBk.Close SaveChanges:=True, FileName:= MySvPth & "\" & MyFldr(i) &
"_" & Yr & Format(Mnth,"00") & ".xlsx"
Set MyNwBk = Nothing
Next i
End Sub

'月の日数を求める関数
Private Function MnthCnt(ByVal Yr As Long,ByVal Mnth As Long) As Long
Select Case Mnth
Case 1, 3, 5, 7, 8, 10, 12
MnthCnt = 31
Case 4, 6, 9, 11
MnthCnt = 30
Case 2
MnthCnt = CDate(Yr & "/03/01") - CDate(Yr & "/02/01")
End Select
End Function

現時点で（DoEventsがあれば）問題なく動作してますので
ループ中でのブック保存などは入れてません。
現状でもファイルのオープンとクローズ(セーブ含む)に一番処理時間がかかって

いるので、ループ中に保存処理を入れると処理速度が極端に遅くなりそうです。

エラー処理については、
何をチェックすべきかも良く分かっていません。
先にも書いたとおり
ループ中でオープンするファイルは確実に存在しているので、
他にチェックすべきものが思いあたらないです。

>>117 におかしなところがありました
正しくはこうです

With ActiveWorkbook
.Sheets(1).Columns(4).EntireColumn Copy Destination:= MyNwBk.Sheets(1).Cells(2,j+1)
.Close
End With

>>117
Workbooks.Addでは追加したブックがアクティブになるとの記載があるが
Workbooks.Openにはその保障はなさそうだ（EXCEL2007のヘルプによる）
なので With ActiveWorkbook.Sheets(1)のなか辺りでエラーが出てる可能性はある

その位置でDoEventsいれて正常に動作するなら、連続でオープンクローズすると
思ったブックがアクティブになってないのが改善してるのかもしれん
OS側の処理が追いついてなかったのがDoEventsで改善されてる可能性が無いわけでもないが

いちど
Workbook.open ...
With ActiveWorkbook...
を
With Workbook.open ...
にして、DoEventsなしで動くかみてみたら？

ちなみに、行全部コピーして、行全部じゃないRangeに張りつけって、正常に動くのか？

>>120
セルのコピペの動作は手動でやるのと同じだよ
選択範囲のサイズが違った場合は一部が切り取られたり、同じ物の繰り返しになったりする
全データコピーなら、あまりいい方法じゃないね

>>120
ありがとうございます。
実は明日から3日間休みなので、次にPCさわれるのが月曜日でして月曜日に確認したいと思います。

>ちなみに、行全部コピーして、行全部じゃないRangeに張りつけって、正常に動くのか？

すみません、
これに関しては実はこの辺うろ覚えで書いたんで間違いかもしれないです。
会社のPCではUSBメモリその他のメディアが使用禁止なので、
VBE開いて該当部分を手書きでメモにしまして、
さらに家のPCにはエクセルが入ってないので
手書きのメモを元にメモ帳で書いたのをレスとして貼り付けました。
ですので若干おかしなこと書いてる可能性があります。
改めて確認しなおして月曜日以降に報告させていただきます。
勝手ながら今日はこれにて失礼します。

>>113
遅くなってすいません。ありがとうございました。

>>118
DoEventsを入れて動くのであれば、完成としてもよいかもしれない

そもそも、最初の質問が『DoEventsにどのような効果があるのか』なので
それについて考えてみた

DoEventsは、制御を一時的にOSに渡すための命令で使う例としては
数時間かかるような処理を、ボタンのクリックで中止させるような場合に
使われる

この場合、メイン処理のLoop中で、ある変数がTrueならば処理を抜ける、
さらにボタンを押すとその変数にTrueをセットするという書き方ができるが
DoEventsを使わないと、『ボタンをクリックした』というイベントが
メイン処理が終了するまでExcelに伝わらない

上の例では、人間が起こしたイベントが処理されないというものだが、
OSやExcel自身が起こしたイベントも処理できないと推測できる

質問者の例でいえば、Excelのでかいデータをスワップさせようとして
上手くいっていないのかもと推測した

>>121
いやだから、手動でやると、コピー領域と貼り付け領域の形が違うため...
ってエラーになるんだが？

Private Function hoge(c As Long) As Boolean
　If c > 0 Then
　　hoge = True　'------(a)
　End If

　If c < False Then
　　hoge = False　'------(b)
　End If
End Function

たとえばこういうプロシージャがあって、cが正の値だったとき
(a)の所で呼び出し元に戻ると思ってたのですが実際は
If c < False Thenまで処理が行きました
これが普通なんですか？自分はC言語のreturnと同じだと思ってたのですが

訂正
自分は　hoge = True　はC言語の　return　1;　と同じだと思ってたのですが

訂正
Private Function hoge(c As Long) As Boolean
　If c > 0 Then
　　hoge = True　'------(a)
　End If

　If c < 0 Then
　　hoge = False　'------(b)
　End If
End Function

普通です

いやでしょうが

hoge = True '------(a)
Exit Function

と書いてください

>>129
そうやるんですか！ありがとうございました！

c == 0の時どうなるのか気になる・・・

>>131
False

Booleanのデフォルトの値はFalseだから

うん、VBAってhoge = c > 0って表記できなかったっけ？

>>133
普通はそうする罠
Private Function hoge(c As Long) As Boolean
　　hoge = c > 0
End Function
これなら>>131みたいな疑問は湧かないし、>>132みたいな知識がなくてもわかる

>>133
聞く前に自分で試してくれないかねえ

>>131
End Function

>>133
出来なきゃ困るだろw

>>133
失礼

質問形じゃなくて、解答なのね

ごめん

134でなくて135でした

ATPVBAEN.XLAM!Histogramで作成したヒストグラムのグラフを
任意の位置、大きさに表示することは可能ですか？

WorkSheetFunction.matchって#N/Aは返さないんだよな？

on error resume next
val = WorkSheetFunction.match
blnIsFind = iif(err.number=0, true,false)
on error goto 0

みたいな使い方にしないと駄目？

>133
これって　(hoge=c)>0 って解釈されないのかな？
=は比較演算子としてより優先して代入演算子として解釈される？

試せ

以上

>>141
>これって　(hoge=c)>0 って解釈されないのかな？

されない。

VBA は、C と違って、文を書くところに式は書けないなら hoge = c > 0 の
"=" は、代入演算子にしか解釈されない。

>>142,143
試した

(Let)a=b=cだとb=cの比較結果をaに代入
if a=b=c then...だとa=bの比較結果とcを比較

代入文だと最初の=は代入演算子なのね
で、比較式として使うと比較演算子として解釈される

比較も代入も同じ記号だけど、文脈で完全に区別されるのね

ビジュアルプログラミング言語というものがあるようですが
将来的にEXCELもそんな感じにならないものでしょうか？

そんな余裕があるなら、とっくにVBAから.NETベースに切り替わっていたと思う。

.NETに移行しやすいVBAの記述法

・BASE 1を使わない
・Variantを使わない
・クラスモジュールを使う
・コレクションとかディクショナリ、FSOを使う

＞BASE 1を使わない
むしろ配列のインデックス0を使わない(作らない)方が分り易い。
Excelが絡む時は、VB.NETでも下限値1の配列を作ることがあるな。
＞クラスモジュールを使う
使う事で大分判り易くなる時くらいか。
VBAの実装は中途半端過ぎて、よっぽどでないと使う気が起こらない。

セルの値がVariant型だからVariant使うのはしょうがないもんね。

つーかExcel VBAやってる人が
VB.Net移行なんてするの？
VSTOでも使う気？

そんなもん人によるだろ

例えばどんな場合？
Excel捨てるの？

>>149
FSOで取得すりゃ全てString

その前にVBAをVBにしてくれ
変な制限が多すぎる

スタイルを削除したいのですが、
vbaで削除をしようとしても削除出来ないスタイルがあります。
削除出来ないスタイルは、スタイル名がハングル文字のみだったり、文字化けしているスタイルなのですが、削除する方法はありますか？

ファイル名に特定の文字列がある場合処理を分岐したいんですが
If ファイル名 = "特定の文字列*" Then
で引っかからないんですが何故でしょうか
特定の文字列*　の所はファイル名そのものにすれば引っかかりますがそれでは意味ないし

どなたかお願いします

>>156
If 文字列 Like "*ABC*" Then

以下のサイトより参照

ワイルドカードを使った文字列の比較
ttp://www.geocities.jp/masa7251/tips/vba/vba00002.html

>>157
早いレスでとても助かりました
LIKEとかすっかり忘れてました。本当にありがとうございます。

>>155
名前で指定できない場合はインデックス番号で指定

>>159
インデックスを指定して削除をしてみたのですが、
上手くいかないようです。
for each でも削除出来ないようです。

＞>>155
＞名前で指定できない場合はインデックス番号で指定

>>152
VBAじゃ無くてVB6以前から移行するのはよくあるよ

質問です
VBEで
セルA1を指定する
つもりで次のように入力し実行すると

Sub test()
Cells("1,2").Select
End Sub

なぜかセルL1が指定されてしまいます

>>162
Cells(1, 1).Select
または
Range("A1").Select

>>162は>>163で解決だが、Cells("1,2").Selectだと何でL1が選択されるんだ?
数字を色々変えてみるが理由が分からん。

そうか、カンマが無視されてCells(12).Selectと同じってことだな。
Excel2003でCells("2,5,7").Selectなら多分A2だな。

>>163
ありがとうございます
解決しました
>>162は一部数字が間違っています　("1,2")→("1,1")

>>165
試してみたら確かにA2になりました
端っこまでいって二列目に来たということですか？

もうひとつ質問です
今は無料のホームページを参考にしていますが
VBAを効率よく学習するにはやはり参考書を買ったり
教室に行ったりする方が良いのでしょうか？

>>166
本を自宅で読むのなら、ホームページを見るのと変わらない
電車の中とか、空いている時間を活用するならそれでもいい

勉強する上で、一番大事なのは質問できる相手がいること
そういう意味では教室へ行くのがいいかもしれない

>>166
そう端っこまでいって２行目に来たってことだ。
Range("B1:D2")(5).SelectならC2が選択される。

VBAの勉強なら教室行っても無駄だと思うなぁ。
とにかく何か作ってみることだな。
動けばよいって程度なら３か月もすれそれらしきものは作れる。

下記ようなサンプル探しています。
Sheet1の一覧表から必要な項目だけを抜き出し
Sheet2のような形式の表に必要な項目を入れ込みたいと思います。
その時に
・納期が変わったら改ページ
の条件を付けたいと思いますが
VBAを使いSheet1から必要な項目だけをSheet2の表に入れ込むことは可能でしょうか？
ttp://uproda11.2ch-library.com/11288398.zip.shtml
DLキーは123です
宜しくお願い致します

>>169
可能です。はい次の方ー

dim d as new Scripting.Dictionary
は、

for each k in d.keys()
や

for each k in d.items()
で

ループさせるときにaddした順序が保たれることは保障されますか？
VBAに限らないとは思いますが。

>>171
やってみりゃわかるだろ？
保障されるんだよ。
Dictionaryに限らずFor Eachじゃ順番が保障されないなんていうDQNもいるが、いままで順番を外れたのを見たことないわ。

Microsoftの場合、そこら辺は大抵無難に作ってあるよね。
.NET互換のMonoとかは容赦なく保障しない作りになっているようだけど。
まあ、ドキュメントに記述されていない暗黙の了解があっさり覆されて
痛い目にあったりする事も間々あるから、慎重になる気持ちも解る。

一応Microsoftの公式見解はFor Eachの順番は保障しませんってことじゃなかったっけ？
実際は順番通りだけどね。

知恵を拝借
Application.GetSaveAsFilename(initialfilename:="C:\test.txt"...
と指定し実行するとダイアログ窓がでて
ファイル名前後に "(ダブルクォーテーション)が入ってしまう
ファイル名欄に　"test.txt" と出てしまう
"(ダブルクォーテーション)を取るにはどうすればいいのでしょうか？

コードを記述して完成したら Ｆ８ で一行ずつ確認して
正常に動くのを確認してから、マクロを実行したらエラーは
出なかったのですが、確認したのと違う動きになりました。

その後何度もＦ８で一行ずつ確認したのですが、正常に
動きました。なのでコードやセルの設定は間違っていない
と思うのですがこのようなことはあるのでしょうか？？
また対処法があれば教えていただけないでしょうか？

分かりにくい文章ですみません。

i = .Range("A1").Value
If i <= 76 Then
.Range("B1:C1").Value = "20"
.Range("D1:F1").Value = "g/L"
Else: .Range("B1:C").Value = "-"
End If

このようなコードなのですが、
i<=76の時に　20　g/L
となるはずが　-　g/L
となってしまいます。

>>175
すくなくともこっちで実験したらそうならなかった
環境をちゃんと書け

>>176
g/Lを消し忘れてるだけじゃないのか？

>>177
いいえ、”20”が入るはずのセルに”-”と
ハイフンが入ってしまうのです。
ハイフンは ELSEの判定の時のはずなのに。

>>178
いろいろコードが間違ってると思うが、とりあえず確実にELSEに行ってるなら
A1に入ってる値が数字じゃないと思われ
i = .Range("A1").Value のあとで、iの型確認してみ

iを数値型で宣言してある？
>>179の言うような、評価が正しくされてない可能性がある
クイックビューかなにかで値を確認して初めて数字評価されて
デバッグ中だと正しく比較されるけど
通常の実行時は型の評価が遅延されてうまくいかない、って現象はある

確かめ方は、i <= 76 を i > 76にして、ifとelseの中身を交換してどうなるか見てみることだね

>>171
が保証される旨の記載ってどこかにないの？

>>179、180
iはDoubleで宣言しています。
ELSEに行っているのではなく、

If i <= 76 Then
.Range("B1:C1").Value = "20"
.Range("D1:F1").Value = "g/L"

の部分の"D1:F1"セルは"g/L"が表示されるのですが、
"B1:C1"セルのみ"20"が"-"になってしまい、TRUEとELSEの処理が
ごっちゃになっているのです。

>>182
そもそもRange("B1:C")なんて言う指定はエラーだと思うが
コード晒すなら正確に。あとその前後も晒せ
とくにwithのあたりとか、ループしたりしてないかとか、ifのネスト無いかとか

>>181
A Dictionary object is the equivalent of a PERL associative array.

WindowsSDKからのコピペだけど、PERLの連想配列と同等と書かれているから、
あくまで、キーと値のペアの配列として保持されていると考えて良いんじゃないかな。
よって、KeysやItemsも追加した順で返されると。
KeysやItemsの説明には、配列に含まれる全ての〜を返す、としか書いてないけど。

>>182
だからそのifあたりぼ書き方がおかしいかもしんないから検証しろっつってんだろカス
もう勝手にしろ

>176
Else の後ろのコロンを抜いて、
改行してから次の文をかく。
VBのコロンはただの行ラベル。

On Error Resume Nextが書いてあり、Elseの綴りが間違ってるに1000億ジンバブエドル。

On Error Resume Nexは関係ねーか。
変数の宣言を強制してないでElseの綴りを間違ったんだな。

遅くなりましたが、156です。
削除出来ないスタイルは、バイナリを直接編集して、スタイル名を変更することで削除することが、出来ました。

分かりました

InitialFileNameで設定するファイルの拡張子と
FileFilterで設定する拡張子が異なる場合（ファイル名を test.txt にしてfilterを *.xlsにした場合など）
"(ダブルクォーテーション）が付くことが分かりました
スレ汚し失礼しました

187だがOption Explicitも関係なしか。
Elseの綴りを間違って、ただの行ラベルになってしまったんだな。
綴りを間違わなければ行ラベルにはならんけど、どっちにしても>>186が言うように普通の書き方はにすべきだな。

>>191
まあ落ち着けよwww

１ページに１０行ある表があり印字データが１〜１０件の場合は
そのまま１ページに印字して１０件以上のデータがあった場合は
改ページプレビュでデータ件数の最後までを１ページに印字する
設定は可能でしょうか？

もしくは件数に応じて表の行の高さを変更させることは可能でしょうか？
どうかお知恵を貸してください。お願いします。

182です。

昨日皆さんのアドバイスを頂いてからいろいろ検証してみました。
179さん、180さん、186さん、189さんおっしゃった通りに
すべて見直し、検証した結果上手くいきました。

原因としては他のモジュールで
.Range("B1:C1").Value = "-"
のコードがあり、記述途中での添削ミスでした。

こんな単純なミスを見逃し、みなさんを混乱させて
申し訳ありませんでした。

レスを下さった皆さんありがとうございました。
大変お騒がせいたしました。

>>193
VBA使わなくても出きるような気がするが.....まあイイか

常に１ページにしたいなら
PageSetup オブジェクトで
　Zoom = False
　FitToPagesWide = 1
　FitToPagesTall = 1
で出来ると思うよ

後 行の高さを変更するには RowHeight プロパティを使う

>>195
ありがとうございます。
手が空いたら実践してみようと思います。

自分で作成したユーザーフォームのことについて質問です。
現在は開発タブからVBを開いて実行という形をとっていますが
これらの操作をショートカットや他の方法で簡略化することは可能でしょう？
何か解決策ありましたら教えてください。

>>197
フォームを呼び出すマクロを作れば、マクロには自由にショートカットキーが設定できる

保護について教えて下さい。
シートを保護する時にロックをしてるセルを選択出来なくなる
する奴あるじゃないですか？
あれをやると時々エクセルの挙動がおかしくなります。

矢印キーが効かなくなったり
アクティブセルの周りに普段なら出る黒い枠線が出なかったりとか。
スクロールロックが掛かってるとかそんなんじゃないです。
ロック有り無し関係なくして、シートイベントで制御した方が良いでしょうか？

前から時々なってて、ぐぐって調べたんですが
特にこれと言って解決策が見つかりません。
これだという絶対的な発生条件も不明です。なったりならなかったりします。

>>197
一応ショートカットです。
Alt+F8 マクロの実行
とか　
Alt+F11　VBEの起動
とかはどうですか？

>>199
VBA?

>>198
>>200
ありがとうございます。
VBA奥が深いですね。

別のＰＣのエクセル2003で作成したマクロを、別のPCのエクセル2010で動かそうとすると、
「マクロが実行できません。このブックでマクロが使用できないか、
またはすべてのマクロが無効になっている可能性があります。」
と表示されます。エクセル2010で作成したマクロは2010で当然動きます。
なにが理由か分かりません、助けてください。

>>203
まくろが無効になってるから。
マクロ有効ファイルで保存しなおすか、
オプションでマクロの設定を変更するか、
信頼できる発行元の設定をすればいける。

無効になってたら2010も無理なんじゃね？

>>204　信頼できる発行元以外は全て設定しました。
>>205　なぜ無効になるのでしょうか？なんか分かります？

なんか2010になってそこらへん変わってるな
それで駄目ならこれとかやってみれば。
http://okwave.jp/qa/q6197506.html

>>206
.xlsm形式でブックの保存をし直してみましたか？？

>>207　うん。試してみます。
>>208　はい。マクロ有効のファイルにしましたがダメです・・・。

>>207　だめでした・・・。

>>210
なんでかって言われると、マクロを悪用したトラブルが世界中で起きたから、
簡単には使えないように制限をかけたんだよ。

マクロを使うには、まずマクロ有効ブックとして保存しなおしたあと、
そのファイルを保存したフォルダを「信頼できる場所」に登録しなきゃいけない。

>>211　有効ブックにして信頼できる場所にしています・・・。

>>212
もしかして64bit版Excelだったりしない？
32bitのマクロはそのままだと使えない機能があるんだけど

public const が良く分かりません

Public test as Range
Public const test = range("A1")

sub a()

test.value = 1

end sub

このように使いたいのですがうまくできません
どうすればいいでしょうか

うまくできません　って言われてもな

エラーが出るのか処理が思った通りに行かないのか
エラーが出るならそのメッセージを、
思った通りに行かないのなら現在どうなっていてどういうふうになってほしいのか

そういう情報を書け

>>214
こうか？

Sub a()
Dim rangeA1 As Range

Set rangeA1 = Range("A1")
rangeA1.Value = 1

End Sub

BMPのピクセル情報を取得して1ﾋﾟｸｾﾙ=1ｾﾙとして扱って
エクセルで画像を再現できると聞いたのですが詳しく教えてくれませんか？
VBAでそういうことできるらしいのですがまったくわかりません
誰かわかりやすい解説サイトのURl貼るか解説してくれませんか？

>>217
別に難しいことじゃないだろ、そんぐらい独学でやれよ

BMPのピクセル情報を取得する方法を調べる
セルの背景色を設定する方法を調べる

分ったら、とりあえずBMPのピクセル情報を一つ一つ調べて、それに基づいて
セルの背景を設定していく

ただそれだけだ

その調べるってのがわかんないんですけど…
馬鹿ですかあなた？

VBAでADOを使ってデータをCSVから読み込む時、
金額列が一行目に5000、100行目に99999999999
という感じであるとRecordSetがintegerとして型を扱うのか、
100行目のデータがnullになってしまいます。

RecordSetの型認識を明示的に行う方法ってあるでしょうか。
order by 金額　descとすればいけるかと思いましたが、
金額列が複数あるので、その方法では解決しなさそうです。

いっそのこと、Getstringメソッドで文字列として読み込んで後で数値に変換するとか

2,147,483,647
99,999,999,999
vbaのlong型だと、何があっても不思議じゃない数字だね。

>>220
せめてプロパイダ何使ったかぐらい書け
Jetならschema.ini書けば行けるんじゃなかろうか

>>218
ありがとう
調べても急にプログラミング言語が云々とか出てきて
具体的にどういうことをしてそうなるのかがわからなかったんだ
それがわかっただけでもマジ助かったわ
サンクス

私はVBA初心者です。質問させていただきます。エクセルで、キーボード入力で
遊べる簡単なゲームを作りました。一応、ゲーム中は問題なく遊べるのですが、
ゲーム終了直後に多くのセルに文字が入力されてしまいます。ゲーム中に押した
「z」や「→」などの入力が、ゲーム終了直後にシートに反映されてしまっている
ようです（おそらく）。それらの文字を毎回消すのは面倒なので、どのように
すれば文字だらけにならないで済むか教えていただきたいです。
　
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long

sub ゲーム()　
　　　Do while ゲーム継続条件
　　　　　 If GetAsyncKeyState(40) <> 0 Then
　　　　　　　　　　　・
　　　　　　　　　　　・
　　　　　　　　　　　・　　　　　
　　　　　 end if
　　　Loop
一応、こんな流れです。

>>225
最後に全データを消せばいいのでは
Cells.Clear

>>226
　レスありがとうございます。

　そのシートには、ゲームの途中経過や記録など、消えてほしくないデータもたくさん
あるので、全データを消すわけにはいきません。また、一応最後にcells.clearを書いて
見たところ、他のデータはすべて消えましたが、その後に「ｚ」などが入力されてしまい
ました＞＜

チェンジイベントで消せば

>>228
　レスありがとうございます。

　チェンジイベントで消すという発想はなかったです！ゲーム終了直後にセルに文字が入力
されることに変わりはないので、セルが高速で選択されまくるのは少し気になりますが、
それらを手作業で消す必要がなくなったので問題はありません。ありがとうございました！

エクセルのマクロで斜めの波線(ジグザグ線?)は引けないでしょうか？
A1セルの左上からC3セルの右下まで波線を引いたり、
A1セルの左上からA3セルの右下まで波線を引けると助かります。

>>230
Excelのバージョンは？

前スレで2003のエクセルマクロが2010で動かないのを質問した者ですが、
オリジナルページではマクロが動くことが分かりました。
使用するときはこのオリジナルページの新規作成ボタンを押して、
新たなエクセルファイルを作成するのですが、この新作成したマクロの
パスが新規作成ファイルのパスになっており、全てのパスをオリジナルに
設定しなおさなくてはなりません。設定せずに済むなにか良い方法はないでしょうか？

>232
いまいちわからない。オリジナルページってなんだ？
あとパスを設定？書き換える？にしても、
なに用のパスを変更するかわからないと手出できない。

とりあえず、そのマクロを作った人に聞いたほうがいいんじゃないか？

>>231
2003です。

>>234
' ほい。できたよ
' セルを選択してから実行すると
Sub 選択範囲に斜めの波線を引く()
　　p = 1.4　' ピッチ この数字に比例して波が大きくなる
　　With Selection
　　　　w = .Width
　　　　h = .Height
　　　　x = .Left
　　　　y = .Top + h / 2
　　　　l = Sqr(w * w + h * h)
　　　　With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, x, y)
　　　　　　For i = 1 To l / p
　　　　　　　　x = x + 2
　　　　　　　　y = y + 2 * Sgn(i Mod 4 - 1.5)
　　　　　　　　.AddNodes msoSegmentCurve, msoEditingAuto, x, y
　　　　　　Next
　　　　　　.ConvertToShape.Select
　　　　End With
　　　　With Selection.ShapeRange
　　　　　　.Width = l
　　　　　　.Height = .Height / 2 * p
　　　　　　.IncrementTop 2
　　　　　　.IncrementLeft (w - l) / 2
　　　　　　.IncrementRotation Atn(h / w) * 180 / 3.1415927
　　　　End With
　　　　.Select
　　End With
End Sub

一カ所修正
下から7行目、破線の位置を決めてる部分だけど
画面上で見る場合はこの方がピッタリになる

　　　　　　.IncrementTop 2.3 - p * 1.1

印刷時はまた違ってくるだろうけど、今すぐには確認できん

>>230
線の外に文字でも入力するの？
そうじゃなきゃセルを結合すれば簡単

>>237
どうやるの？
罫線だと波線は選べないよね

>>237
そうか破線じゃできないな。
点線と勘違いしたよ。

>>235-236
A1:B10だとおかしくなるね。

できあがった波線をマウスで左に移動しようとしても、A列の端まで持っていけないね
面白い現象だ

>>229
落書き用のシートを作ればいいんじゃ？

一つの音源を再生するのはできるんですが
一つの音源の音の高さを変えて再生することって可能ですか？

転職用のアピール材料として、アプリを構築した。そんで、提案書とサルでも分かるような仕様書も作った。
転職の際、同じことした御方みえますか？

beep音って同時に複数流せる？

マウスホイールでアクティブセルの値を上下することはできますか？

>>245
ホイールイベントをフックするぐらいしか思いつかん

空白のセルではなく、セル内の空白行、例えばA1に
あいう
（空白行）
えおか
という文字があった場合、その空白行を消して
あいう
えおか
というように詰める事は可能でしょうか？
分かる方いましたら教えてください。お願いします。

>>247
サンプル書いた
Sub Sample()
Worksheets("Sheet1").Columns("A").Replace What:=Chr(10) & Chr(10), Replacement:=Chr(10)
End Sub

>>248
お答えくださってありがとうございます。
再度質問よろしいでしょうか？
Chr(10)がラインフィード文字というのは分かりましたが
何故Chr(10) & Chr(10)が空白行の検索ということになるのか
そしてReplacement:=Chr(10)に置換することによりどうして空白行が無くなるのか
いまいちわかりません。
それと、Cells(1,1)というようにして記述したい場合どのようになりますか？
よろしくお願いします。

>>249
改行２個で空白行になるから、１個なら単なる改行になる。

A1のみならReplace関数でもいい。
With Cells(1, 1)
　　.Value = Replace(.Value, vbLf & vbLf, vbLf)
End With

A列を置換なら
Range("A:A").Replace vbLf & vbLf, vbLf

>>242>>244
MIDIデバイスをいじるといいぜ

昔自分用に作ったランダムに音を出すブック
http://www.death-note.biz/up/o/19433.xls

おたずねします。
グラフエリア上にツールバーからコンボボックスを作りました。

�@[コントロールの書式設定]でリストの入力範囲を設定し、
�A[マクロの登録]で、VBエディッタにコードを作成できたのですが、

コンボボックスでクリックされた値を�Aのサブプロシージャ-で取得する
方法がわかりません。ヒントでよいので、お願いします。

追伸：
つまり、グラフエリア上に作成したコンボボックスのコードとして記述するための名前がわからないのですが、、、

シートセルをVariantで配列に入れた後、その配列をRange変数に入れる方法ってないですか？
Application.WorksheetFunction.StDevとかに使うためにやりたいです

>>254
普通に出来るだろ

だからその普通がしりてーんだよボケカス

>>254
サンプル書いた
Sub Sample()
Dim WS As Variant
Dim R As Range
Set WS = ActiveSheet
Set R = WS.Cells
End Sub

すいません>>256は自分ではない別の人なので

>>255>>257
ありがとうございました！

>>243

＞ 転職用のアピール材料として、アプリを構築した。そんで、提案書とサルでも分かるような仕様書も作った。
＞ 転職の際、同じことした御方みえますか？

あるよ

>>243
運悪くコードオタクとかがその会社にいたら、中身見られて汚いコードだから不合格とか言われるかもｗ
Selectだらけのど下手でもプロとしてやってる奴いたりするから会社次第とは思うが。

俺は恥ずかしくてそんな事出来ない。
新卒だったら考えるけど

>>261
お前のコードはそんなに恥ずかしいのか？

コードじゃなくて､そういう幼稚なアピールの仕方が恥ずかしいのでは？

ならどうやってアピールする？

それは自分で考えるべきだ

他人と同じ事やったんじゃアピール弱いもんな

デザイナーとかだと作品を持ってくるのは当たり前みたいだが。
プログラマの能力を見るにはコードを見るのが一番だけど、
持ってこさせないのは面接官がコードを読めないんだろうな。

面接するのは人事の人間であってプログラマが見るわけじゃない（一般的には）

>>267
そんなのは当たり前だが､プログラマがVBAってのがダメダメすぎw
つーかVBAじゃまともに能力計れないし

小学生のソフトボール投げが､大人になると砲丸や槍になるように
VBAで能力計れるのは､精々中学生1年生まで

少しは評価してやれよ
VBAは便利だぞ

VBA自体は評価してるし､便利なのも認める

しかしVBAでアピールしようとする奴は､評価に値しない

転職先がプログラマだとはどこにも書いてない
構築したアプリがVBAだとはどこにも書いてない

まあ、スレ違いだからこれ以上はよそでやってくれ

> 転職先がプログラマだとはどこにも書いてない
そこはどうだろうと関係ない部分だけど？

> 構築したアプリがVBAだとはどこにも書いてない
ここはVBAスレなんだから､VBA以外でアピールする話をVBAスレでしてるなら
まともな判断能力が欠如してるってことで､それこそ就職どころじゃないw

エクセルマクロ初心者です。誰か教えてください。
以下のマクロがあったとします。
【例�@】----------
Sub テスト1()
　　　test1-1行目
　　　test1-2,3…n行目
End Sub
Sub テスト2()
　　　test2-1行目
　　　test2-2,3…n行目
End Sub
Sub 一括処理()
　　　テスト1
　　　テスト2
End Sub
----------
Sub 一括処理()を実行した場合、『test1-1行目、test1-2,3…n行目、test2-1行目、test2-2,3…n行目』という順番で実行されますよね？
Sub 一括処理()で例�Aのようなプログラム以外に『test1-2,3…n行目、test2-2,3…n行目』のみを実行させる方法はありますか？テスト1、2にIF文を付けたりして試してみたのですが自分の実力ではダメでした。
以下のようにプログラムすれば簡単なのですが…
・実際のマクロは行数がものすごく多い。
・テスト1、テスト2、一括処理のそれぞれで実行させたい。
・例�Aのようにプログラムするとテスト1、テスト2で変更がかかったときにミスにつながる。
【例�A】----------
Sub 一括処理()
　　　test1-2,3…n行目
　　　test2-2,3…n行目
End Sub
----------
良い方法を教えてください。お願いします。

>>274
引数(ひきすう)を使うといいよ
こんな感じで、何行目から始めるか指定する

Sub テスト1(x)
　　　test1-x…n行目
End Sub
Sub テスト2(y)
　　　test2-y…n行目
End Sub
Sub 一括処理()
　　　StartLine = 1
　　　テスト1(StartLine)
　　　テスト2(StartLine)
End Sub

一括処理の中の最初の行を「StartLine = 2」にするだけで、処理の範囲を変えることができる

すいませんよくわかりません
もうちょっと分かりやすくお願いします。
初心者なんで

「初心者」が免罪符になるって？

はぁ、もういいです

何かスレッド荒れてきたな。
態度でかい奴ばかり

上から目線で見下してる回答者も増えたよな

ほんとにそうですね。

例えば、自己ＰＲとしてアプリ提出することが何故いけないの？相手に売り込むための、プレゼンの一環だと思うし。

例えば、初心者だからと前置きしていて不遜な態度をとっていないのにもかかわらず、上から目線とか余裕ないですよね。

いけないことだなんて誰も言ってないのに被害妄想が強すぎだな
なんでそんなに余裕がないの？

面接官が率直に思うだろうこと

企画系の募集じゃない場合
（ここでプレゼンとか何様だよ）

面接官がプログラマーの場合
（うわVBかよ）

面接官がプログラマーじゃない場合
（これ採用の評価基準にしろと？じゃめんどいから不採用で）


アプリ提出が前提でよっぽど自信作じゃない限り危険

否定するおまえは、ビジネスライクなまともなアプリ作ったことないだろ。あ、そもそも作る能力ないか。かわいそうに。

負け犬の遠吠え？

VBAスレでビジネスライクなまともなアプリとか言ってもカッコワルイだけだし
VBAスレなのにVBA以外での話だなんて言い訳しだしたらもっとカッコワルイw

VBAけなす奴は一体、何ののためにVBAという言語つかってるわけ？

Officeの標準マクロ言語だから使ってるだけで
あえてVBAを選択して使ってるわけじゃないし

中にはVBAを簡易開発環境代わりにしてなんでもVBAでやる奴も居るけど
俺はOfficeアプリが必要な場合以外はVBAなんて使わないし

言語の優劣とかまだ言ってるやつがいるのか
Windowsのプログラミングはライブラリで決まる
何から呼び出しても結果は一緒

あと、なんかもう開発環境をわざわざインストールするのがめんどい
Officeは最初から入ってるし
最近のマシンは処理速度も十分
VBAを嫌ってるのは知識の古い老害だけ

C,C++,C#,javaとかそこそこ使えるようになるとVBAを見下して
俺はすごい、レベル高いって思いたくなっちゃうんだよな

まあ、動物的本能というか感情の問題だな

生産性が一番高い言語はExcelVBA
データを共有しないスタンドアロンアプリではExcelVBAが最強

>>283
プログラマ募集でソース付きで作品を提出させればいい判断材料になりそうだけどな

VBAしか使えない子がキレちゃったねぇ
滑稽極まりないw

> Officeは最初から入ってるし

> Officeは最初から入ってるし

> Officeは最初から入ってるし

何時からOS標準になったんだ？

ここまで全部俺の自演

まともに呼べないライブラリが多いのもVBAの弱み

APIリファレンス

なんだ､やっぱり解ってないのか

VBA勉強したいけど2003と2010で互換性低かったりとかだったら不安

>>298
99%は一緒だから安心しろ

>>290
言語じゃねーよ

：

>>299
サンクス

自分だけ使うもの作るとき、クラス使おうか悩んで最終的に構造体に逃げる俺
モジュールすら公開しないのに、わざわざ使う気力が湧かないわ

クラスは難しいよな。VBA極めるくらいの気がなきゃ、下手に手を出さないのが得策かも

そういえばVBAにもクラスがあるな。
現場で使ってるのを見たことがあるけどその時は
クラスとか全然知らなかったから全く分からなかった。

JAVAとか勉強した後にこのサイト見るとそんなに難しくなさそうだ
http://codezine.jp/article/detail/499

VBAしかやったことがない人にはクラスは難しそうに見えるけど
JAVAを勉強すればそんなに難しくない事に気がつく。

VBA(とVB6)のクラスは独特すぎて他言語環境に慣れてる人には辛いかも

クラスはコントロール大量に作るぐらいしか役に立たない
構造体はapiの引数にしかたなく使う感じ
どっちも配列使うのに制限があって使い勝手が悪い

クラス作ると見やすくなる
俺の場合はそれだけだな

俺は連想配列にぶち込むオブジェクトとしてクラス使うことが多いかな
構造体と似た､ほぼグローバル変数のみのクラスだが､
代入できる値の範囲を制限したり､値の代入に伴って行う簡単な処理を置いたり
特定の値が入った場合にRaiseEventでイベント起こしてやったり
307も言ってる仮想コントロール配列も､結局はコレだしね

!ninja

!ninja

エクセルで散布図グラフを作成した時に
近似曲線の追加からグラフに傾きと切片の式を追加できるとおもうんですが
この式が表示されるテキストボックス（データラベル？）の位置を取得
したいと考えています。

その際、この式の位置やサイズを取得するときのコントロールオブジェクトを
教えてください。

使用ver　2007

A1セルに数字を入力し、B1セルに数に応じた背景色を反映させたいのですがどうすれば良いでしょうか
2003だと条件書式で3つまでは入力できたのですが、2007は条件追加ボタンが見当たらず・・・

20001〜青
15001〜20000水色
10001〜15000緑
5001〜10000黄色
0〜5000赤

自己解決しますた

上記条件付書式のコピーについてもうひとつ質問です

Z1に入力した数字次第（○○以上○○未満の場合）で、W1セル背景が5段階に変色するという書式をAND関数を使って設定しています
以降入力数字に対する変色は同条件で、Z2に入力したものをV1に反映、Z3に入力したものをU1に反映と、縦の入力データを横左方向に出力、といった書式を一括でコピーしたいのですが方法はあるでしょうか

現状W1をコピーすると、V1にもZ1からデータをひっぱってくる数式がコピーされてしまいます

W1セルに対して
　Z1<5001　のとき背景赤色
　AND（Z$1>=5001,Z$1<10001）　のとき背景黄色といった感じで記入してます

$の位置が悪いか不要ですかね

VBAで設定するなら､$がどうとかはあまり関係ない

つーか､ここはExcelスレではなくVBAスレなんだが
おまえはそれが解って来ているのか？

エクセル質問で検索するとここが出てきたんでそりゃ失礼！

Excel2007

ループで処理実行中の間、マウスカーソルを砂時計が回っている奴に変えたいのですが、
どうすればよろしいんでしょう？

>>316
細かい事言うな

>>318
マウスカーソルの変更はVBAではなくVBの分野｡(>>3参照)
スレ違い｡

>>318
Application.Cursor = xlWait     '砂時計
'ループ処理
Application.Cursor = xlDefault  '通常

>>320
…

>>321

ありがと

>>319
本人納得して移動してるのに､他人が細かい事言うな

>>307 >>309のように、カスタムコントロール(ラッパー？)で
コントロール配列を実装するのがいちばん使いでがありそうな感じだね

構造体はWin32APIとかで必須だけど、VBScriptだと使えないから
泣く泣くクラスで実装してる人も多いんだろうか
わざわざクラス使ってるVBS見たことないですわ

俺はVBSでもクラス使いまくりだ
> 連想配列にぶち込むオブジェクトとしてクラス使う
は､VBAでもVBSでも変わらないからな
ぶち込む先がVBA.CollectionかScripting.Dictionaryかの違いで

あとはVBAでは標準モジュール毎にPrivateメンバを持てるけど
WSFでインクルードする場合は､ファイル毎にPrivateメンバを持てないので
Privateメンバを持たせたい場合は必然的にクラス使うことになる

>>321
俺もそれだと思ったんだが、俺のExcel2010じゃ砂時計にならないんだよな。
丸いのがぐるぐる回ってる。
砂時計はどうやって出すんだろ？

>>325
VBSで入力補完が出来るエディタってある？

いくつかあるけどVBSはスレ違い｡

>>326
APIでアイコンセットを切り替え

プログラム未経験です。
仕事で必要なため、勉強したいが、
最初に読む書籍でオススメがあれば、
教えてください。
バージョンはExcel 2003です。

>>330
先ずはこの3冊がおすすめ。2007でもいいかも。
かんたんプログラミング Excel2003 VBA 基礎編
かんたんプログラミング Excel2003 VBA 応用編
かんたんプログラミング Excel2003 VBA コントロール・関数編

> 499 名前：デフォルトの名無しさん 　 [sage]　 投稿日：2009/03/30(月) 23:56:12
> 　　　できる大辞典 Excel VBA
> 　　　がオススメ
>
> 　　　大村あつしは知識はあるが根本的にバカなので
> 　　　こいつの書いた本は素人にはオススメしない
> 　　　バカな内容に引きずられないだけの基礎スキルを持っていて
> 　　　知識だけ上乗せしたい中級者以降なら構わないが

かんたんプログラミング Excel2003 VBAシリーズは大村あつし

>>330
プログラム未経験なら
ExcelVBAより、CやJavaから始めたほうが、
学びやすい

ExcelVBAを1年間学ぶより、
Javaを11ヶ月学んで1ヶ月ExcelVBAを学ぶほうが
はるかにプログラマとしての実力がつくだろう

だからどうしたって

>>330
ハードウェア(PCアーキテクチャ)に多少なりとも造詣があるならC
それほどでも無ければJAVA
Windowsしか解らんのであればC#

>仕事で必要なため
ExcelVBAが仕事で必要という事ではないのか？

ExcelVBAじゃなければならないケースなんてそんなないだろ

プログラムが目的ならそんなにはないだろうけど
Excelを使うのがメインならExcelVBA以外でどうする気だね？

エクセルメインの会社なんて沢山あるだろ

Excel自体がActiveXアプリなので､WSH等からの操作が可能
つまり､JScriptはもちろんのこと､Perl､Ruby､Pythonなどでも
VBAと同等とは言えないが､かなりの操作が可能だよ

まあ俺は別言語が使いたいわけじゃないから､外部から弄る場合もVBSだが

俺もVBAから入ったからVBSだな

エクセルで既に動いてる奴を修正するパターﾝでも
別ので作り直すの？

作り直すのが目的じゃないんで､滅多にやらないが
既に開いてる奴を外部から操作することもあるよ

まあExcelの操作できる言語はVBAのみじゃないってだけの話だし

C#からExcelを弄ると苦痛
引数省略できねぇえぇぇ

C#だって原則は省略できないだろ

計算を手動にしてるんですが、VBAで再計算を行わせるように出来ないですか？
Excel2003です。お願いします

ヘルプ検索すればすぐ出てくるし
手動での再計算操作をマクロの記録にとっても解るし
なんでこのレベルのことを自分で調べられないの？

VBAのコードを書いていると、「コンパイルエラー　メモリが足りません。」とのエラーが出るようになりました。
(実行時のエラーではなく、記述している最中のエラーです。)
ヘルプを見ると「メモリが不足しています。(Error 7)」というエラーのようです。
ヘルプに記載されている対処は行ってみたものの、改善されませんでした。
どのようにすればこの問題は解決できるのでしょうか？
Excel2007です。よろしくお願いします。

ハードウェア環境を省略するような質問に答えてくれる親切な人がいるとは思えない

>>349
すみません。ハードウェア環境は以下の通りです。
WinXPProSP3
CPU i7 2.80GHz
メモリ 2.96 GB
仮想メモリのページングファイル　2046 - 4092 MB
他の人のPCで起動しようとしても同じエラーが出ました。

コード書けよ。俺たちはエスパーじゃねーから

>>351
すみません。業務で作成したコードのため、公開することができませんでした。

自己解決しました。
ttp://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200604/06040032.txt
にあるように、新規でエクセルファイルを作成し、全コピーをすることで問題を解消することができました。

ただし、気になる点が1つだけあります。
全てのシート及びコードをコピーしたはずなのに、(数人で確認しました。)
新しいファイルが657KBに対し、エラーのあるファイルは17644KBでした。
これが原因だったのかもしれませんが、詳細は不明です。

>352
たぶん、どれかのシートの最下行（Excel2007なら数百万行だっけ）あたりになにかゴミデータでもあるんじゃないか？

>>345
Excelのオブジェクトは省略パラメータだらけだって事だよ

Excel.Workbook oWb =

mExcelApp.Workbooks.Open(

str_filename,

Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing);

こんな感じになる

>>353
返信が遅くなりました。
Ctrl+A->Ctrl+C->Ctrl+P の繰り返しでコピーしたので
ごみデータがあればそれも一緒にコピーされる気がしますが・・・。

ともあれ、問題は解決しました。
新規作成中のコードもうまく動くようになりました。
ご回答下さった皆様、ありがとうございました。

×Ctrl+P
◎Ctrl+V

ユーザー定義関数について教えてください。
個人用マクロブックにユーザー定義関数を書いているんですが
実際にそのマクロを使用するワークシート内で関数を実行しようとする場合
=個人用マクロブック!関数名
という風にユーザー定義関数の指定を個人用マクロブックの指定も含めて
行わなければname?となってしまうんですが、個人用マクロブックの指定を
省略することができるような設定方法などないでしょうか。

標準モジュールにPublic Functionで書いてる？

オートシェイプ内の文字列の色を変更したいんですけど、プロパティとかメソッドがよく判りません。

もう少し用途を具体的に言うと、図形の塗り潰し色を変更するマクロで、塗り潰し色に合わせて文字色も変更したいのです。
デフォルトの文字色は白のため、塗り潰し色を白にすると文字が読めなくて困っています。

.selection.shaperangeからいけるかと思ったのですが、該当するものが見当たらず……
ＯＳはvista、エクセルのバージョンは2007です。

レスありがとうございます。
Publicをつけていなかったのでつけてみたんですがやはりマクロブックの
指定をしないとname?になってしまいます。
標準モジュールには記述しています。

2010でマクロの挙動が変わってしまいました。

Auto_OpenでExcelの起動と同時にマクロを走らせているのですが、
2007では起動と同時にワークシートも表示されていたのが
2010ではマクロが終了するまでシートが表示されません
なんとかなりませんか？

>>360

アドインにすればいいと思うが。。
さうすれば他のＰＣでも使える。

現在複数のエクセルファイルで、同一のコードを使用するために、
各エクセルファイルそれぞれのに同一のコードをコピペしたり、
エクセルファイル自体をコピーしてコードをそのまま持ってきて使用しています。

現状で、そのファイルが10個以上となっていますが、
vbaのコードに仕様を変更したり修正したりすると、それらのファイルのすべてそれぞれで
同様にコードを書きなおさないとなりません。

全選択のコピペで済む話ですが、かっこ良い仕様とは言えませんね。

なので、DLLみたいな感じで、コード自体は一つのファイルとして、
各エクセルファイルでそれを参照するようにすれば、もとのコードファイルを書き換えるだけで済むような仕様にしたいのですが、
そういう場合はどのようにすればよいのでしょうか？

個人用マクロブック

分かりにくい長文になってしまいましたが、
要するに、別ファイルに記述されているvbaコードを使えるかどうかです。

ちなみに BeforeDoubleClick等のイベントプロシージャも使用しています。

だから個人用マクロブック

もしかしたら個人用マクロブックでは出来ないとか勘違いしてるのかも知れないけど
イベントも含めてちゃんと出来るから

>>366
自己解決ですが、参照設定でコードが書かれたxlsファイルを直接指定しておけばグッドそうです。
ありがとうございました＞＜

>>366
個人用マクロブックだとそれらとは関係ないエクセルファイルを使用する時もいちいち読みこまれるのがカッコ悪いと思います。

あぁ､この子勘違いしてるんだね

かっこ悪いと思います！
人に聞くのは

選択した図形にくっついてるコネクタの情報ってどうやったらわかる？

→■

上の状況で■を選択してマクロを実行、いろいろした最後に、→を繋ぎ直す処理をしたい。
くっついてる最初の時点で名前を取っといて、最後にendconnect selectionすればいいと思うだけど。

>>363
かっこいい…しびれた……

>>370
自己解決しました。

"検索シート"でコンボボックスを作り、コンボボックスのボタンをクリックしたら
自動的に"カテゴリ"シートにある最新データを表示できるようにしたいのですが
うまくいきません。

どうも◆の部分で"カテゴリ"シートに切り替わっていないようなんですが、
なぜ"カテゴリ"シートが選択されないのかわからず困っています。
どこがおかしいのでしょうか？

Private Sub ComboBox1_DropButtonClick()
Dim i As Integer

Application.ScreenUpdating = False

Worksheets("カテゴリ").Select

If Range("A2").Value = "" Then '◆
i = 3
Else
i = Range("A1").End(xlDown).Rows
End If

Worksheets("カテゴリ").Names.Add Name:="カテゴリ1", RefersTo:=Range("A2:A" & i)

Worksheets("Sheet1").Select

Application.ScreenUpdating = True

End Sub

>>368
何か勘違いしていたでしょうか？

もしかして、個人用マクロブックの中のマクロで、開いたファイル中で呼び出すことがないマクロに関しては読み込まれないんですか？

>>373
"カテゴリ"シートに切り替えても
Rangeで取得されるのは､そのコードが書かれている親だよ
VBEのプロジェクトエクスプローラ見れば､どこに書いているか解る
なので
Worksheets("カテゴリ").Range("A2").Value '(With使っても良し)
とするか､どうしても切り替えたいなら
Worksheets("カテゴリ").Activate
ActiveSheet.Range("A2").Value
としな

>>374
もう出てこなくていいよ
君のレベルじゃ話にならないから

>>375
できました　おかげで先に進むことができます
ありがとうございました

クラスって今まで使ったことないけどあれってどういうときに使うの？

簡単に言うと、クラスモジュールで作成したプログラムによって、標準モジュールなどで、独自のメソッドやプロパティが使えます。

俺は昔､やりたいことがあって方法を調べてたら､クラスを使う手法に行き着いた
>>377もそうやって必然性に迫られるまでは､クラスなんか使わなくていいよ

オフィス田中の田中亨が出してるSE出版のリファレンスに最近ハマッている。

リファレンスという側面以外に学習教材としての側面も大いに持ち合わせていてかなり良い！

今のとこ、クラスじゃなきゃできないってことは
VBA環境の右クリックに独自イベント処理を追加したとき、くらいかなぁ

こんなかんじ
Private WithEvents cmmndBrEvents1 As CommandBarEvents

Private Sub cmmndBrEvents1_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
　・・・
End Sub

ネタ元はこれね
Excelプロフェッショナルエンジニアテクニック
ttp://www.amazon.co.jp/dp/4904412028/

エクセルのVBAではないのですが
たくさん作ったのですが、1つをチェックするとほかのチェックボックスの
チェックが消えるようにして、チェックできるのが常に一つにしたいのですが、
どうしたらいいでしょうか？

>エクセルのVBAではないのですが

この時点で既に板違いなんでどうでもいいんだが、何で作ったかも書かないという

そういうときは､チェックボックスではなく
オプションボタン(ラジオボタン)を使うんだよ､坊や

>>383-384　ありがとうございます！！ちょっと試作してみます！！
みなさん、やさしいですね。ありがとうございます！！

>>383　>>384　できましたー！！　ありがとうござます！！　また質問させていただきます！！

A1 B1 C1に値が入っていて、
D1が　=SUM(A1:C1)となっていた場合に、
F1にD1の値のみコピーをしたいんだけど、
A1 B1 C1に数値を入力するたびに、
F1にD1の値のみコピーってできる？
エクセル2007 VBAのコードを教えて。

特に、「A1 B1 C1に数値を入力するたびに」のコードの解説もよろ。

>>387
ワークシートのChangeイベントで出来る

この説明で解らないなら､基礎を勉強して出直せ
ここは丸投げでコード書いて貰うスレではなく､要点だけ教えて貰えば､
あとは自分でコード書ける人がヒントを貰いに来るスレなので

>>382と>>387は釣りだよ
この種のクソ虫が最近増えてきたな

すまんくそ蒸しでｗ
本当に困っているvba初心者なんだ.
サンプルコード教えてｗ

>>390
sub サンプルコード()
　do
　　if msgbox("あなたは糞虫ですか？", vbyesno) = vbyes Then
　　　msgbox "やはり糞虫だったんですねw"
　　　exit do
　　end if
　loop
end sub

>>391
アフォかおまえ
おれはくそ蒸しであって糞虫ちゃうちゅうねんｗ
こいつじゃあ話にならん。
コードかける人かもーんｗ

C　G　Am　Em　F　C　Dm/F　G

コード書いたよ
大逆循環な

>>393
なんの曲だよｗ

>>387
普通に数式で、F1セルに「=D1」とかじゃあダメなのか？

>>394
大逆循環はコード(進行)最適化の一つの結論だぜ
http://ja.wikipedia.org/wiki/%E3%82%AB%E3%83%8E%E3%83%B3_%28%E3%83%91%E3%83%83%E3%83%98%E3%83%AB%E3%83%99%E3%83%AB%29#.E5.A4.A7.E9.80.86.E5.BE.AA.E7.92.B0

>>396
あーそういやそんなコード理論あったなぁ
つーか進行的に普通すぎて名前なんか出てこないぞｗ

>>387

' ワークシートに変更があった場合
Private Sub Worksheet_Change(ByVal Target As Range)
' 変更された行が1行目なら
If Target.Cells.Row = 1 Then
' 変更された列が1列目〜3列目の間なら
If 1 <= Target.Cells.Column And Target.Cells.Column <= 3 Then
' 1行目の6列目の値に1行目の4列目の値を代入
Cells(1, 6).Value = Cells(1, 4).Value
End If
End If
End Sub

>>398
ありがとうございます。
ここから、Copyメソッドや、PasteSpecialメソッドが続くと思うのですが、
よくわかりません。どうしてもエラーが出てしまいます。

>>399
横レスだけど、>>398は、標準モジュールじゃなくて
ワークシートモジュールに書くんだよ
CopyメソッドとかPastSpecialメソッドとか関係ないよ

忠告しとこうか、質問スレで無意味な回答するくらいならスルーするんだな




するくらいなら
スルー
する



んだな!

>>400
ワークシートモジュールに書いてます^^;

>>A1 B1 C1に値が入っていて、
>>D1がA1+B1+C1場合に、
>>F1にD1の値のみコピー(形式を選択してコピー)をしたいんだけど、
>>A1 B1 C1に数値を入力するたびに、
>>F1にD1の値のみコピー(形式を選択してコピー)ってできるでしょうか？

' ワークシートに変更があった場合
Private Sub Worksheet_Change(ByVal Target As Range)
' 変更された行が1行目なら
If Target.Cells.Row = 1 Then
' 変更された列が1列目〜3列目の間なら
If 1 <= Target.Cells.Column And Target.Cells.Column <= 3 Then

Cells(1, 4).Value = Cells(1, 1).Value + Cells(1, 2).Value + Cells(1, 3).Value
Cells(1, 4).Value.Copy
Cells(1, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End If
End Sub

どこが誤りなのでしょうか？

×形式を選択してコピー
○形式を選択して貼り付け
でした。すみません。

>>402
CopyやPasteSpecialは関係ない
>>398のままでいい
>>387でD1セルに「=SUM(A1:C1)」となっている
と書いてあるのを前提として

だんだんと壮大なことになってきてるなｗ
答えてる方も釣りかｗ

あー。わかった！
>>387のエクセルの自動計算がオフになってるだけじゃないのか？

>>406
>エクセルの自動計算がオフ

何のこと？どこにチェック項目がある？

少しはググれ

>>402
Cells(1, 4).Value = Cells(1, 1).Value + Cells(1, 2).Value + Cells(1, 3).Value
が思いつくのに、
Cells(1, 6).Value = Cells(1, 4).Value
が思いつかないのは不思議だ

いっそ、プロシージャの中身、全部消して
上の2文だけにしたら？

まあ、どこが間違ってるって話だから
× Cells(1, 4).Value.Copy
○ Cells(1, 4).Copy

>>410
ありがとうございます。自己解決してましたがｗ

ところで、このプログラムを実行すると、
Cells(1, 4)がコピー元の選択状態になってうざいのですが、
PasteSpecialメソッドを実行した後、
この状態を解消するメソッドってあります？

選択解除とかじゃなくて、なんで素直にみんなが言ってるように
Cells(1, 6).Value = Cells(1, 4).Value
ってやらんのだね？
そこまでコピペにこだわる特別な理由でもあるのか？

>>412
実際、仕事で使っているエクセルには>>398さんのように、
Cells(1, 6).Value = Cells(1, 4).Valueの代入で、
プログラミングしております。皆様ありがとうございます。

コピペはもう必要ないのですが、
初め、CopyメソッドとPasteSpecialメソッドが必要と考えていたので、
この使い方もできれば習得したいと思いまして。。。

>>411
Application.CutCopyMode = False

>>414
おお、ありがとうございます。
ヘルプで調べればよいのですが、
VBEのヘルプがなぜか

このページはご利用いただけません
お探しのページはご利用いただけません。以下のことを試してみてください。
ツールバーの [更新] をクリックする
ツールバーの [戻る] をクリックした後、目的のページへのリンクをもう一度クリックする
コンピュータに保存されたオフラインのコンテンツを表示する

となってしまい、調べられないのです。
ううう。なぜだ？

VBAをいじる前に
http://www.trickpalace.net/windows/tips/excel.open.window.htm
により、エクセルを多重起動に設定したのが
もしかしていけなかったのか？

>>415
そうとう知能の低いクソ虫だな
その画面から「オフラインのコンテンツ」で調べるんだよ

あと2chで書き込む前に一度ググれ
例えば「vba ヘルプ オフライン」とか入力して検索してみろ

お前の知能ではVBAは向いてないから以後は関わらないしろ

Inputboxでセル範囲を入力してそれをFor　Nextで
一つずつ下げるのを繰り返したいのですがエラー（1004）に
なります。
どこが間違っているかご指摘してもらえないでしょうか。

Dim i,d As Integer

d = InputBox("抽出する日数を入力してください", "日数")
If d = "" Then Exit Sub

For i = 0 To 10
☆ ActiveSheet.Range(Cells(2, 4), Cells(2, d)).Offset(i, 0).Select
Next
☆のところでエラーになります。

>>418
☆以前に
If d = "" Then Exit Sub
でエラーだろ
整数型と文字列の比較演算してるんだから

変数dに列番号の有効範囲値(2003以前なら1〜256､2007移行なら1〜16384)が
入っていれば☆自体はエラーにならないよ

Ifでエラーにならずに☆でエラーになるなら､おそらく実行時に変数dにAs Integerを付けてなかったんだろう
変数の型指定無し､つまりVariant型だと､InputBoxに数値の入力しても､それは数値ではなく数字文字列扱い
つまりCells(2, "10")みたいなことをしているのと同じなのでエラーになる

まあ簡単に言うと「d = ""」を「d = 0」にすれば良し

InputBoxでキャンセルした場合に返される値は""ではなくEmptyなので､これが数値型に代入されれば0になる
あと､その書き方だとiはInteger型にならないぞ
Dim i As Integer, d As Integer

またまた壮大な釣りが…

>>418
d = Val(InputBox("抽出する日数を入力してください", "日数"))
If d = 0 Then Exit Sub

シートのセルが結合されてない？

>>419
それだけだとInputBoxに数値以外の物を入力した時にエラーで止まる

VBAや昔のVBでは、
Dim i,d As Integer
でIntegerになるのはdだけだぞ

>>419
ご指摘ありがとうございます。
また、夜試してみます。
>>421
セルは結合してないです。
そんなやり方もあるんですね。勉強になります！

>>422
それは419の回答の問題ではなく､418に最初からある問題だから､419に言うのは筋違いかと｡

そもそもその宣言だとdはval型だろ

その宣言ってどの宣言？
iがval型なのはあるが､dがval型なのは見あたらないんだが

ああ、間違えたiか
dがintだな
自動初期化だとdに0が入るから、if文はスルーされる
セル(2，0)が参照されたエラーだな

恥ずかしい奴

If chk_日付.Value = True Then
Else: txt_日付.Value = ""
End If

If chk_金額.Value = True Then
Else: cmb_金額.Value = ""
End If

If chk_担当.Value = True Then
Else: txt_担当.Value = ""
End If

あと5項目ほど続くのですが、もっとコンパクトな記述方法はないでしょうか？

Arrayを使おうとおもったけど、うまくいきませんでした。

>>430
疑似コントロール配列を使う
or
Controlsコレクションを使う

>>429

///


>>430
1.コントロール情報を配列に格納して回す
2.判定と処理が複数回あるなら別コードに書いて呼び出す
3.全部のコントロールを対象にして後で修正しないならfor〜each使う

Else: cmb_金額.Value = ""
が
Else: txt_金額.Value = ""
の間違いでない限り、まとめるのは無理
あと、False〜ThenじゃなくてTrue〜Elseになってるのが気持ち悪い
Elseのあと改行せずに : を書いてるのが気になる
いちいち= Trueを書くのも無駄っぽい

> Else: cmb_金額.Value = ""
> が
> Else: txt_金額.Value = ""
> の間違いでない限り、まとめるのは無理
無理じゃないよ

VB6のコントロール配列だと､コントロール種は揃えなきゃならないけど
VB6だろうとVBAだろうと､クラスとコレクションで作る疑似コントロール配列なら
コントロール種が揃ってなくてもまとめることは可能

最近､的外れな指摘して恥かくのが流行ってるのか？
>>426とか>>428とか>>433とか

>>433
見やすさを考慮するとどういった
記述になるでしょうか？

435
遅れてるなあ超流行ってるよ知らないの？

納得した俺に、どこが恥ずかしい回答なのか教えてplz

>>438
どれの恥ずかしさを晒して欲しいの？
恥ずかしい回答､いっぱいあるのでw

さっきの３つをお願いします

A1に"L3"と入力されていて、L3に文字を入力したいです
VBAでINDIRECT関数を使うにはどうしたらいいですか?

>>441
Range(Range("A1").Value).Value = "hage"

>>442
ありがとうございます

フォームのチェックボックスのオンオフで、
それぞれ対応するテキストボックスのTrue　Falseを切り替えるには

Private Sub chk_1_Click()
txt_AAA.Enabled = Not chk_1.Value
End Sub

Private Sub chk_2_Click()
txt_BBB.Enabled = Not chk_2.Value
End Sub

Private Sub chk_3_Click()
txt_CCC.Enabled = Not chk_CCC.Value
End Sub

以上のように、ひとつずつユーザーフォームのプロシージャに
記述するしかないのでしょうか？

いいえ

>>440
さっきの3つは何処が恥ずかしいか晒されてるだろ

>>445
どうするのでしょうか？

>>447
少し前に似た話と>>444にも使える解決策が出てるからログ嫁

〉〉４４６
どこにだろう

皆さんに指摘されたことを試してみたけどやはり

ActiveSheet.Range(Cells(2, 4), Cells(2, d)).Offset(i, 0).Select
のところで実行時エラー1004になります。
ActiveSheet.Range(Cells(2, 4), Cells(2, 10)).Select

でも試してみたのですがやはり1004エラーになりました。

同じマクロで
For i = r To 10
ActiveSheet.Columns(i).ClearContents
Next
と不要な列の内容を削除するコードは正常に動いています。

どこがいけないのでしょうか？？

>>449
今大流行の的外れで恥ずかしい回答の実践見せてやってんだよそんくらい判れよ

>>450
釣りかもしれんけどあえて　エスパーしてみる

そのコードはシートモジュールに書いてない？
例えば
Sheet1のシートモジュールにコードを書いていて
Sheet2をActiveにした状態でそのコードを実行してるとか？

>>450
いまひとつ何がしたいか分からないけど、
私の環境ではInputBoxで「10」を入力した場合、
Range(D2:J2)が最初に選択されて
Range(D12:J12)まで一行ずつずれていく動作になっているよ

>>450
こんな感じになってる？
あと考えられるのは、少し前のExcelでInputBoxに257以上を指定してるとかだけど。

Private Sub xxx()
  Dim i As Integer
  Dim d As Integer
 
  d = InputBox("抽出する日数を入力してください", "日数")
  If d = 0 Then Exit Sub
  
  For i = 0 To 10
  ActiveSheet.Range(Cells(2, 4), Cells(2, d)).Offset(i, 0).Select
  Next
End Sub

>>450
ActiveSheet.Range(Cells(2, 4), Cells(2, 10)).Select
が1004エラーになるというのは、
コード以外の問題じゃないのか？

イミディエイトウィンドウに書いても実行できないの？

>>452
その通りでした。
標準モジュールに記述し直したら動きました。

For i = r To 10
ActiveSheet.Columns(i).ClearContents
Next

↑の部分が正常に動いていたので見落としていました。

勉強不足を痛感します。
ありがとうございました。

＞＞453、454、455
書き込む前にリロードしていませんでした。
標準モジュールに記述したら、無事動きました。
ｄでセル範囲を指定して、iで下方向に検索しようと思い
前段階として、セルの選択ができるか試したかったのです。

レス下さった皆さんありがとうございました。

>>457
余計なお世話かもしれないけれど
Rangeオブジェクト(RangeとかCellsとかその他)を扱う時は
ケースバイケースだけど
シートを明示した方が今回のような凡ミスは防げると個人的には思う
(過去にも　同様なエラーで質問された方が　いた気がする)

ActiveSheet.Range(ActiveSheet.Cells(2, 4), ActiveSheet.Cells(2, 10)).Select
とか
With ActiveSheet
.Range(.Cells(2, 4), .Cells(2, 10)).Select
End With
とかならシートモジュールでも問題なかったハズ

>>444
クラスモジュール使ったらできたよ

でも、3組程度の個数で、enabled の切り替え程度の単純な処理内容なら、
>>444のコードのようにひとつずつ記述したほうがいいように思う

>>458
なるほど。ありがとうございます。
今後の参考にさせていただきます。

Incrementを使って図形をアニメーション移動させることが出来ますが、これって直線移動しか出来ないですか？
応用して曲線移動させることは可能ですか？　Excel2003です。

可能です｡(厳密には曲線移動ではないけど､視覚上は十分曲線移動に見える)

>>462
どうやるか教えてほしいんですが…
もしかして直線で細かくつなぐとか？

正解

なるほど、どうも

独学でやってるんで、一般的な意見が聞きたいです。
入力用ユーザーフォームの実際の処理は
標準モジュールに記述するものなんですか？

それと、標準モジュールはいくつかつくって、
処理内容ごとにわけたりしますか￥？

プロシージャが増えるほど視認性が悪くなってきたもので。

>>466
プログラミングの作法は宗教みたいなもんで統一されてないし、
VBAにはとくにガイドラインもなかったと思う

>>467
ピュアオーディオ宗教みたいな感じですか。
自分が見やすかったり、使いやすければ
とくに問題なし、いったところのようですね。

僕は

dim　aaa , bbb ,　ccc　as　integer

や

aaa　=　1 :　ccc　= 3
bbb　=　2　 ddd　= 4

とかまとめたくなってしまいます。

>>468
コロンが抜けてました・・・

vbaでよくやる間違いに
dim　aaa , bbb ,　ccc　as　integer
ってやっちゃうのがある
上でも言われてるけど、それでintegerになるのcccだけだから

逆に、VB.NETだとその書き方で全部にIntegerが適用されるから
ややこしいんだよな。

別にややこしく無いじゃん
今後はともかく現状ではExcelVBAにVB6準拠のとVB.NET準拠のがあるわけではなく
全てVB6準拠で統一されているんだから

xmlhttp で取得したhtmlを
タグで解析するにはどうすればいい？
例えば10個目のtdタグ内容をinnertextで
抜きだすとか

.NET移行を視野に入れた作法なら、フォームモジュールに画面処理を書いて、
ビジネスロジック部分はクラスにして管理って感じかねぇ
モジュールに入れるのは汎用関数ぐらいにして
VBAでもそういう意識を持てば、独学でも業務で通用するセンスを磨けるよ

はやくVBAも.NETに統一してほしい
.NET環境使わないのはもったいない

VBAは利用者(プログラマー)の数が他の言語より圧倒的に多くてレベルも様々だから
言語仕様を大幅に変えようとすると大混乱が起こるだろうな

ユーザーフォームに記述した情報をまとめてセルに入力したいのですが，
下のようにするとUserForm1.TextBox.Textの文字列がSheet2のセルに入ってしまいます。

For i = 3 To 34
Sheet2.Cells(MAXROW, i) = "UserForm1.TextBox" & i - 2 & ".Text"
Next

うまくテキストボックスの中の値をセルに入れる方法はありませんでしょうか？

>>477
Controls

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

A　B　C　D　　E
0　0　44　55　66　　　　A1が０の場合C3の値をA1に入れる
0　0　44　55　66　　　　A1が１の場合D3の値をA1に入れる
0　1　44　55　66　　　　A1が2の場合E3の値をA1に入れる
1　1　44　55　66　　　　　　　　　　：　
1　1　44　55　66　　　　　　　　　　：
1　1　44　55　66　　　　　　　　　　：　
2　1　44　55　66　　　　A1が100の場合
2　2　44　55　66

このようにして100まで分岐させたいのですが、どうすればいいでしょうか？
Excel2000です。

>>480
Dim a As Integer
If IsNumeric(Cells(1, 1).Value) Then
    a = CInt(Cells(1, 1).Value)
Else
    a = -1
End If
Select Case a
    Case 0 To 100
        Cells(1, 1).Value = Cells(3, a + 3).Value
End Select

邪魔くさいんで解説はしない
正常に動いてないようならお前の説明が悪い

ちゃんと動きました
ありがとうございます

何故おしえたがりは考え方ではなく、コードを提示したがるのか

日本語文章で説明すると､日本語理解できないバカの場合に再質問責めで大変なことになるが
コード出しておけば､コード読めないバカでもとりあえずコピペで動き､大人しく帰ってくれるから

>>483
楽だからだろ
考え方はお前が教えてやれよ

Excel VBAから、Accessを呼び出したあとお、クローズ処理の書き方を教えてください。

Sub Main()
Dim Acc As Object 'New Access.Application
On Error GoTo Err
Set Acc = CreateObject("Access.Application")
'''何らかの処理
'既存mdbがオープンされていたらクローズ
If *****************Then '←★ここの条件が書けません。
Call Acc.CloseCurrentDatabase
End If
'Accessアプリケーションのクローズ
If TypeName(Acc) = "Application" Then
Call Acc.Quit
End If
'Accessオブジェクトの開放
If Not (Acc Is Nothing) Then
Set Acc = Noting
End If
Final:
Exit Sub
Err:
Debug.Print Err.Description: MagBox (Err.Description)
Resume Final
End Sub

>>486
激しくスレ違い>>3★3,4

アクセスオブジェクトをクリエイトして操作しているんだよ！

まずは>>3★3,4読め

エクセルオブジェクトを操作するのがExcelVBAであって
アクセスのそれはスレ違い

逆にアクセスのVBAでエクセルオブジェクトを読んで操作する話なら
ここで質問して良し

outlookもダメなのかい？

うん

>>483
お前は俺か？ｗ
俺も常々そう思ってるが、この程度ならコードだけでもしょうがねーなぁ。
IsNumericよりVarType使ったほうがいいと思うが。

VarTypeは数値に見える文字列で素人がはまる
右寄せにしてたら区別が付かない

「数値だったら」なら普通はVarTypeだな。
IsNumericは「数値に変換できるものなら」だから"1D1"とかでもTrueになる。

つーか教室での指導や部下の教育なら考え方や意味から教えるべきだが
ここはそれらとは違う､何の利害関係にもない赤の他人同士だってことを忘れてないか？

それ解っている上で>>483を『行動として示す(補足説明を行う)』なら単なるお人好しだが
口先でちょっかい出すだけだと､単なるバカってことにしかならないねw

VarTypeにもIsNumericにも落とし穴がある

不特定多数が使うことを想定して作るなら､どちらを使うにしても落とし穴への例外処理が必要
自分だけが使うなら､想定さてる値と落とし穴が被らない方を使えば良し

どちらの場合でも､「普通は〜」なんて一概に言う奴は考えが浅い

適材適所､臨機応変ってことですね｡

素人は想定外のミスを色々やってくれちゃうからなあ
数字を全角で入れたり「1500*1.05」みたいに計算式を入れたり
スペースいっぱい入れて消したつもりになってたり(表示されない部分にデータが残ってる)
ゼロとオーを間違えたり3桁ごとのコンマを手打ちで入れたり

あらゆるケースを想定してたらコードをどんだけ書いても足りないぜ

481=483=484本人じゃねーの？
わかってて書いてるっぽいし。
俺は説明するのに1行ごとにコメント書くやつ見ると頭どつきたくなるわ。
よいコードはコメントは最小限でもわかる。

あらゆるケースを想定できない奴には商用ソフトなんて作れないぜ

>>496の考えの深さを見てみたいもんだぜｗ
普段は抜けだらけのコード書いてるのは想像できる。

>>500
それは言えてるが、こういう掲示板での回答じゃgdgd長いコードは書いちゃいかんよな。

>>501 ←こういうのなんて言うんだっけ

ほら､なんたら犬の遠吠えとかなんとか

うん、お前は誰にも負けんよ。
よっ！大統領ｗ

強がっちゃって可愛いなぁ

>>505
あんまり相手にするな｡

あー、一人4役は疲れる

そういえば某所に「普通」に敏感な素人がいたなぁ。

あー、一人507役は疲れる
>>1から>>507までは俺1人で書いたｗ

>>498
そういうのはデータチェック用のモジュールを1個作っといて使い回せばいいんだよ
何かあったらどんどん追記してけばいい
怪しいデータや判定不能な物を発見したらメッセージ表示するだけの簡単なやつを

>>486
ldb有る無しで判定

OS：XP　Excel2003

A.xls　B.csv　があります。

Bの入力補助としてAを使いたいのですが、
AからBを開いて、
BのセルをダブルクリックするとAのフォームが開く、
という動作は可能でしょうか？

個人用マクロブックを使えば出来そうな気がしますが、
可能なら使わないで処理をしたいと考えています。

>>512
俺はできないと思う
csvファイルはイベントも使えないしマクロも保存できないと思うから。
B.csvがB.xlsならできるだろうが

AからBを開いてＢにマクロを登録、みたいなことはできそうな

>512
やりたい事はこんな事？

フォームを開かせる処理は作ってないけど
B.csvのセルをダブルクリックした時のアドレスを表示するようにしてみた

A.xlsの 標準モジュール
　　Sub テスト()
　　　　Dim CSV As Workbook
　　　　Set CSV = Workbooks.Open(FileName:="C:\TEMP\B.csv")　'CSVを開く
　　　　Set ThisWorkbook.CSVEv = CSV
　　End Sub

A.xlsの ThisWorkbookモジュール
　　Public WithEvents CSVEv As Workbook
　　Private Sub CSVEv_SheetBeforeDoubleClick(ByVal Sh As Object, _
　　　　　　　　　　　　ByVal Target As Excel.Range, _
　　　　　　　　　　　　Cancel As Boolean)
　　　　'イベント時の処理
　　　　MsgBox Target.Address
　　End Sub

そういえば昔tsvで>>515みたいなことやったな
フォームよりはコンテキストメニュー拡張しての入力補助だったが

まあVB6でCSV･TSVエディタ自作してからは､わざわざExcel使うことも無くなったけど

お知恵をお貸し下さい。

Excel2007 VBA でファイルフォーマットを指定してワークブック保存しようとしているのですが、2007 形式（xml 形式）にできません。
97-2003 形式になってしまいます。
エクスプローラー＞　ファイルのプロパティで、「Excel 97-2003 ワークシート (.xls)」となっています。

ある方のブログにあった以下のソースでも試したのですが、97-2003 形式になってしまいます。
Private Const xlExcel8 As Integer = 56
Private Sub main()
Dim fullFileName As String
fullFileName = "E:\_Temp\test"
If Application.Version < 12 Then
Workbooks(1).SaveAs Filename:=fullFileName, FileFormat:=xlExcel9795
Else
Workbooks(1).SaveAs Filename:=fullFileName, FileFormat:=xlExcel8
End If
End Sub

ブレイクポイントを設定したところ、Else の方を実行していました。

なお、Excel オプションでは、「Excel ブック (*.xlsx)」を選択しています。
（Excel オプション＞　保存＞　ファイルの保存形式）

>>517
97-2003形式　　　　 　FileFormat:=xlExcel8
2007以降　　　 .　　 　 FileFormat:=xlOpenXMLWorkbook
2007以降マクロ有効　FileFormat:=xlOpenXMLWorkbookMacroEnabled

ちなみにxlOpenXMLWorkbookMacroEnabledは56じゃなくて52だよ

>>517
く、釣り？ or 釣りバカ？
そのブログにそのコードの使い道が書いてあったはずだ
や
ろ
う

>>518
こんなに早く回答して頂きまして、ありがとうございます！
97-2003形式、2007以降、2007以降マクロ有効、全てのファイルフォーマットで保存できることを確認しました。
また、56 ではなく、52 である事も教えて頂いて、ありがとうございます。

VBAで板取計算ができないかと考えています。


やりたいことは
1 母材の縦横サイズを入力
2 部材の縦横サイズと必要数を数種類入力
3 部材毎に縦横回転可否の条件入力
4 最適取り数とレイアウト図を表示

です。

3と4の間で、悩んでます。

ナップザック問題等でも
有名な、難解な問題ですが、
宜しくお願いします。

クラスを作る
クラスに最小サイズのグリッドを規定して、母材サイズBool型の2次元配列を作る
配列をFalseで初期化する
ループ噛まして配列にマッチングさせていく
マッチング処理でFalseの数と生成パターンをメンバー変数に入れる
以下パターンの数だけループさせて、保持してるFalseがメンバー変数より少なかったら、
メンバー変数を更新する

最後に母材配列をプロパティで取り出して終わり

じゃダメか？

「歩留まり ナップサック問題」でググルとまぁ、
Excelでもいろいろできるが難しそうだな

やりたいのはACCESSで、なんですけど、VBAスレが見つからないので、
スレチながら教えてくだしあ。

時間のかかる処理(そんなに重くないもの)をバックグラウンドで動作させるには、どうしたらよいでしょう？

例えばExcelで、フォームを表示して入力可能にしつつ、
その間にネットワークフォルダの特定のファイルパスを裏で収集して、
順次フォームのリストに追加するような感じです。

>>515
>>515さんのコードを基に、目的の物が作れそうです。
ありがとうございました。

その他、レスを頂いた皆さんもありがとうございました。

522です
今日も色々と探したんですけど
やぱ難しいですね
最適化よりも
部材を順番に
目一杯割り付けていって
残材にも、
順番に目一杯割り付けていく感じなら
どうにかなりますかね？

>>489
え、そうなの？

>>486
ExcelVba的な回答であれば、mdbオープン時にフラグセット

>>524
擬似バックグラウンドなら
メインモジュールで恒常ループを発生させる
時間なり処理に応じて処理を分岐して呼び出す

非同期処理なら外部アプリケーションなりバッチ処理なり

擬似マルチスレッドならモジュール分けて別個非同期で処理汁

ＶＢＡでマルチスレッドは原則できない
モジュール内でＶＢＳコードをビルドして独立外部処理を作り上げた上で自分を制御させるとか裏技が必要じゃね

セルの指定に[ ]を使うことができる事を知って使おうと思ったのですが、
変数の内容でセルを指定したい場合、どのように使えばいいのでしょうか

例えばA列、変数hoge行目のセルをselectしたいとします。

Sub Macro1()
Dim hoge
hoge = 3
[a & hoge & ].Select
End Sub

だとダメでした。
結果が↓と同じになるようにしたいです。

Sub Macro1()
[a3].Select
End Sub

よろしくお願いします。

[ ]は､変数使う必要が無い場合に限った簡略記述です
変数使いたい場合はRangeやCells使ってください

>>529
そうでしたか、残念です。ありがとうございました

>>527
thxです。
うーん、VBA不便すぐる…orz

良い機会だから.NETに移行して、そっから制御しる

VBA.NETでないの？

dotnetでもそれなりのテクニックが必要じゃなかったっけ

vbaからoutlookのメールを作成するツールを作成中です。
メールの形式はリッチテキストです。

http://www.red.oit-net.jp/tatsuya/vb/Outlook.htm
ここに書かれているような内容でメールを作っているのですが、
↓のように添付ファイルを文中に入れたいのですが、
Attachments.Addすると添付ファイルが本文の最後に挿入されてしまいます。
どうしたら文中に添付ファイルを挿入出来るでしょうか？

■メール本文
---------------------------------------------
hogehoge
【添付ファイル】
piyopiyo
---------------------------------------------

Addメソッドに添付ファイルの挿入位置を示す引数がある、はず。

長方形詰め込み問題としても
有名な難解問題だけど
誰かヒントを下さい

ヒントはもう出てるし､そもそもスレ違い

オプションボタンの使い方で教えてください。
エクセルが起動している間、前回フォームで設定した値を保持しておきたいんですが
（次にフォームを開いたときに前回の場所を覚えている。エクセルを終了した場合は初期値に帰る）
やはりstaticな変数などを用意して前回の値を保存するなどの方法をとる必要がありますでしょうか。
楽をできる方法があるようでしたら教えてください。

staticな変数というか､モジュールレベル変数に値を保持しておく方法が
一番楽で一番一般的な方法だけど､それに何の問題があるの？

直接コントロールの初期プロパティを書き換える方法もあるけど
遙かに面倒な上に､この場合Excelの終了を跨いで設定が保持されちゃうので
起動か終了時に初期値に戻すコードまで必要になるし

設定データ用シート作ってそこ使えば

うんこのしかたをおしえてください

ぶりぶり

>>538
貴方の様なレスは不要です。w

マクロで5000個ぐらいのファイルを順番に読み取り専用で開いてデータを取得して閉じるという作業をしています。
これまで問題なく動いていたのですが、excel 2007に変えてから途中で止まるようになってしまいました。
ファイルを閉じてもメモリが解放されず、途中でメモリがいっぱい(2G積んでいます)になることが原因のようなのですが、解決策がわかるかたいらっしゃいますか？

(続き)
ファイルを閉じるたびに、
Set bk=nothing や
Bk. Saved =true
を入れてみても変わりませんでした。(bkは開いたファイルへの参照を示すオブジェクト変数です)

>>545
変えたのはExcelだけ？Windowsは変わってない？
データファイルはExcel形式？テキスト？

>547
レスありがとうございます。
OS はかわらず、XP pro SP 3です。
正常に動いていた時のexcel は2003で、大量に開くファイルも97-2003形式で保存されたexcel ファイルです。
タスクマネージャーで監視しているとファイルを開くたびに、使用メモリが増えていっています。

>>548
２００７でひたすらオープンとクローズ繰り返してみたけど
メモリ使用量に変化は見られない
オープンクローズのせいじゃなくて、プログラム上どっかに問題があると思うんだが．．．．

ただ前にも同じような話あって、そんときはDoEvents入れたら動いたって
試しにやってみては？

それが再現するミニマムコードあればいいんだけどなぁ
XPはまさか６４ビット版じゃないよな？

このスレの>>86から、2007で大量のファイルを開こうとするとマクロが止まるってのがあるね
それと同じ症状かな？

>>549
同じファイルを何度も開くんじゃなくて、別々のファイルを開かないと症状が出ない可能性もあるし、
開くだけでなくデータを読み込まないとメモリを消費しないのかもしれない

>>550

携帯より失礼します。 <br> >>545 <br> とりあえず、Win32APIのSleep関数を入れるとCPU使用率が下がります。 <br> 1msecで良いです。 <br> お試しください。 <br>

スレをまとめてみた

ttp://www47.atwiki.jp/excelvba/

見やすくしたり丁寧にまとめたりするのは誰かがやってくれるはず
１７以前の過去ログいただけるとありがたいです〜

>>549,550
DoEventsを入れてみましたが変わりませんでした。
で、気になって手作業での開く閉じるを、一回ずつ開くファイルを変えて何度も繰り返してみたところ、なんと、やっぱりメモリ使用量が増えていました。
一つ一つのファイルは128KBほどですが、開く時に3MBほど使用量が増えて、閉じた時には1MB しか解放されていません。
これはもうexcel 2007の仕様ということなんでしょうか。
他に同じ現象が出る方いませんか？

>>554
どっかでWorkbookオブジェクトその他が暗黙的に生成されて開かれてるとか、
それがきちんとNothingにされてない(というかできない)んじゃないの？

>>554
Windowsの仕様として、空いたメモリがすぐには解放されないってのがある
普通は15秒ぐらいの時間差で解放されていく
ファイルを閉じたあと、しばらく見てるとどう？

>>554
すくなくともうちの環境では問題ない
手作業ってのは普通にエクセルファイルのダブルクリックか？

どうもエクセル以外に問題がある気がする
とりあえずディスプレイのドライバー最新にしてみるとか
ディスクトップ検索周り停止してみるとかしてみたら？

円盤の上の何を検索するんだろ

EXCEL2003

A1　=　RSS|’N225’!現在値
A2 = ユーザー関数(パラメータ)

ワークシート内のセルから　ユーザー関数を呼び出して使っています。
楽天RSSでRSS受信が発生するたびに、A2の再計算がおこなわれてしまいます。
一つだけなら問題ありませんが、実際は数百箇所もあり、再計算に3秒ほどかかっています。

ツールメニューから再計算を手動にすると、A1のRSS受信も止まってしまいます。
RSS受信しながら、ユーザー関数の再計算を止める都合のいい方法はないでしょうか？

お知恵を貸してください

データの大半は円盤に記録されてますがな

>>554
ADOでsqlなげるのはどう？オープンしなくてもデータもってこれなかったっけ？

データファイルを開かないと上手くSQLでデータが取ってこれない時があった>>ADO&Excelの組み合わせ

それにExcelデータファイルをひらいてADOを使うとメモリリークが発生する
ActiveX データ オブジェクト (ADO) を使用して、開いている Excel ワークシートを照会するときメモリ リークに発生します
ttp://support.microsoft.com/kb/319998/ja

ユーザーフォームを変数（定数）に格納してからロードすると、二重にロードされているようです。
そのせいか、フォームをコードから整形する時に反映されません。
ユーザーフォームを変数に格納して制御する場合の、適切なコードがありますでしょうか。

Sub Form_Load_Test()

' ユーザーフォームUserFormTestをロードします。
Dim I_COUNT_ As Long
Load UserFormTest
For I_COUNT_ = 0 To UserForms.Count - 1
Debug.Print I_COUNT_ & "/" & UserForms(I_COUNT_).Name
Next

End Sub

＊＊実行結果＊＊

0/UserFormTest

----

Const Const_User_Form_Str_ as String = "UserFormTest"

----

Sub Form_Load_Test2()
' ユーザーフォームUserFormTestを定数C_U_F_Str_に格納し、ロードします。
Dim Ufm_str_ As Object
Dim I_COUNT_ As Long

Set Ufm_str_ = VBA.UserForms.Add(Const_User_Form_Str_)
I_COUNT_ = 0

For I_COUNT_ = 0 To UserForms.Count - 1
Debug.Print I_COUNT_ & "/" & UserForms(I_COUNT_).Name
Next

Set Ufm_Str_ = Nothing

End Sub

＊＊実行結果＊＊

0/UserFormTest
1/UserFormTest

>>563-564
どちらも二重ロードはしてないよ

但し､>>564の方は､Unloadせずに2回実行すればロード数は2に､3回なら3になる

これは､
Load ユーザーフォーム
だと､既にロードされている場合は新たにロードせず､ロード数は0→1にはなるが1→2にはならないけど

UserForms.Add(ユーザーフォーム名)
だと､既にロードされていても新たにロードし､ロード数は0→1→2→3と実行する度に増えていくだけのこと

Form_Load_Test　を実行するとロード数は1､再度
Form_Load_Test　を実行してもロード数は1のまま､この後
Form_Load_Test2 を実行するとロード数は1+1=2､再度　　　※
Form_Load_Test2 を実行するとロード数は2+1=3

おそらく>>564の結果は ※ の部分なんだろうな

ロード数0の状態から
Form_Load_Test2 を実行するならロード数は0+1=1
Form_Load_Test2 そのもので二重ロードされてるわけじゃないから､0→2にはならない

というわけで､不要な物をきちんとUnloadしてやれば>>564のコードで
ユーザーフォームを変数に格納出来てるし､二重ロードにもなってないので問題なし

ありがと、でもすまん勘違いしてた

変数読み込みでもアンロード漏れでもなく
イニシャライズするときに別モジュールに制御を渡して、そこからフォームを参照してた
フォームをロードする前に再度メモリに読み込みかけるから、結果二重になったみたい

でも単純にフォームを開いた時、ロードされるのは一個だな
vba.add()で開いた時には二重ロードしとる

Excel2007
ワークシートのデータを固定長のテキストファイルで出力したいと考えています。
で、実行結果がこうなっていて、B列のデータのところが長さがバラバラな状態
になっているんで、この長さを揃えるにはどうしたらいいんでしょうか？

Sub TST()
Dim i As Integer
Dim strRec As String
Dim num As Integer
num = FreeFile
Open ThisWorkbook.Path & "\" & "test.txt" For Append As #num
i = 1
Do Until Cells(i, 1) = ""
If Cells(i, 1) = "" Then
Exit Do
End If
strRec = Format(Cells(i, 1), "00000") & " " & _
(Cells(i, 2) & Space(50 - LenB(Cells(i, 2))))
Write #num, strRec
i = i + 1
Loop
Close #num
End Sub

A B
1 1 12だだ
2 2 ああああ
3 3 ぐぐ2
4 4 tst
5 5 hhhhhhh

結果

"00001 12だだ "
"00002 ああああ "
"00003 ぐぐ2 "
"00004 tst "
"00005 hhhhhhh "

>>567-568
>>3★3,4

ttp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_055.html

大本の原因がVBA特有の挙動だから良いんじゃね？

>>570
ありがとう、そこのを見て勉強します

>>569
？

>>567
うまく行かなかったら、どこでうまく行かないのかを
探すようにしてください。

今回なら
strRecが思い通りの固定長の文字列になっているかどうか

"00001 12だだ "

一瞬、568が再現しないと思ってビビったが、思った通りで安心

埋め込みグラフをマクロで作成したいのですが上手くいきません
環境はエクセル２０００です。
ActiveSheet.ChartObjects.Add(10, 20, 250, 120)
chartObj.Chart.SetSourceData ActiveSheet.Range("B2:B6")

初心者に毛が生えた程度のカスでも分かるVBAを勉強出来るおすすめのサイトはありませんか？

過去スレ、現行スレ見ても全く理解できませんでした

俺が教えてやんよ

>>576
こうじゃない？

Dim chartObj As ChartObject
Set chartObj = ActiveSheet.ChartObjects.Add(10, 20, 250, 120)
chartObj.Chart.SetSourceData ActiveSheet.Range("B2:B6")

俺はだんだん毛が抜けてきた
そろそろ初心者に戻るのか

対象はWindowsXP+エクセル2003です。
グループ化されたものも含め、Shapesのテキスト一覧取得マクロを作っています。

問題のエクセルはここからDLできます。
http://www1.axfc.net/uploader/Sc/
Sc_227075.xls

シート1 だと全て取得できますが、シート2だと一部のテキスト(FFF と FFF2)が
取得できません。
ちなみに、EEE と書いてあるシエイプを削除するとうまくいきます。

原因や解決方法がわかったら教えてください。

>>579
その方法でも出来ませんでした
元のデータがActiveSheetなのがいけないんでしょうか？
そこでマクロを記録して弄ってみたんですが

Dim G As Object　　　’ChartObjectでもだめ
For G = 1 To 100
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("G").Range("A1:A100")
ActiveChart.Location Where:=xlLocationAsObject, Name:="G"
Next G

やっぱり上手くいきませんorz

>>581
グループ化してるシェイプに対してループが回ってないようだから、
グループ化されてるシェイプを判定したら再帰処理するように書き換えたら
あとは処理しきったらExit ForなりGotoなりでループ抜けりゃいいよ

VBAからoutlookのメールを作成する際に、
http://www.moug.net/faq/viewtopic.php?t=56305
上記のやり方でほぼ出来たのですが、
一点、BodyFormatプロパティにリッチテキスト形式を指定してメール作成した際、
フォントの色を設定したいのですが方法が分かりません。
↓を見ても、それらしいものが分かりませんでした。
http://msdn.microsoft.com/en-us/library/bb176688%28v=office.12%29.aspx

ちなみにHTMLbodyを使うかと思いいろいろ試しましたが、
↓これだとhtmlで書いた書式が失われ、
HTMLBody = ""
BodyFormat = olFormatRichText

↓これだとリッチテキストではなくHTML形式に勝手に変更されてしまい駄目でした。
BodyFormat = olFormatRichText
HTMLBody = ""

EXCEL 2000 (E) +XP SP3 :
下記の�@で　'1004' Method of 'Range' of '_worksheet' failed
となります。
mSht.Range(""" & rStrAr(i) & """).Copy Destination:=tmpSht.Cells(1, 1)
でもだめでした。:お助けを。
-----
Public Const AA As String = "A416:G602"
Public Const BB As String = "A604:M811"
Public Const CC As String = "A813:G821"
Option Base 1

WinXP,Office2003です。
IsMissing(v)が真となるVariantの即値または組み込み定数はありますか？
この値を返す関数を作るのは簡単ですが、残念ながら関数の返値を用いて
定数を定義することはできないみたいですね。

Sub F()
Dim rAr(3) As String, nAr(3) As String
rAr(1) = AA: rAr(2) = BB: rAr(3) = CC: nAr(1) = "A": nAr(2) = "B": nAr(3) = "C"
Set mSht = ActiveCell.Parent: mT = mSht.Name
For i = 1 To 3
Set tSht = Sheets.Add
tSht.Name = mT + nAr(i)
Set tR = mSht.Range(rAr(i)) '---�@
tR.Copy Destination:=tSht.Cells(1, 1)
Next i　　:End Sub

通常モジュールに書いてワークシート選択してから実行すればいいんじゃね

>>586
XP+Excel2003（もちろん日本語版)で試したけど正常に動いた
シート名に日本語使ってる？

>>590
シート名英字でした
動きますか。。。(E)はだめです。
なにか言い換え、迂回策はないでしょうか？

質問です。
excel2003で作成したvbaプログラムをWin7×excel2010の互換モードで動作させてますが、
元シートから新シートへ書式コピー後、新シートの一部の行の高さや行番号の表示がおかしいです。
具体的には一部の行が
「行高さを409ピクセルまで広げたら縦真ん中に行番号と値がある」状態です。つまり動作直後の表示では行番号と値がまるきし見えないのです。（表示は意図した行高さのため）
互換モードを解除すると問題なく動作します。
また、複数のブックに見られたので同じ条件で発生するのかと思いきやそれぞれ微妙に違う条件で発生し、
上記条件を取っ払ってみたんですが発生します。新シートへコピー後、一度でも保存したり行番号が見えなくなっている行を手動で「高さを自動調整」すると高さが正常に戻ります。
コピー直後のセルのROWHEGHTは意図した通りで正常です
これは互換モードの不具合なのでしょうか。
自分はvba初心者なんですが、互換モードにはよくあることなんでしょうか

2003から2007での移行で互換モードにちょこちょこ不具合あるらしいが

検索した感じだとここらへんか
http://park.geocities.jp/tryvba/excel2007question.html

コード晒せないならなんとも言えん。

>>593
ありがとうございます！助かります〜でもこのサイトのコードにはひっかかりませんでした。
「元シートをセレクトして範囲をコピー後、新シートに貼り付け」している数行で起こっていることです。
コードは出せませんがマクロで出力されるようなコードです。（もちろん一部分のことです）
効率が悪いと思い一行に書き直しても現象は変わらずでした。
私的には行を表示させるための自動計算が互換モードのある条件の時にすっぱ抜けているようにしか見えません。（が、発生条件に照らし合わせるとコピー範囲の大きさやデータサイズの関係がある？行高さの計算関数内で値が落ちてる？気もします）
とりあえず暫定対処方法は見つけたのですが、
悔しいですね…
互換モードは止めたほうがいいほどToo BUGGYなんでしょうか？

俺、5年前には、VBAなんて5年後誰もやってないだろうなと思ってたが、まだまだ廃れる勢いじゃないなと思った。
勉強し直します。

エクセルがあるかぎりvbaは変わらなそうだね

>>595-596
COBOLみたいな感じで長く細く続くんですかね。
顧客にはエクセルで済ませたら安そうだからみたいな人が多いように感じました。うちの庶務でもいじれるみたいな。

>>597
敷居が低いのがひとつの特徴だからね。
マの人にとっては大変な言語だよね。予算と期限的な意味で。
庶務レベルでもいじれるのと製品レベルで仕上げるのはまったく違うのにね。。。

時々庶務ですげえセンスのある人が居て
関数等を駆使して「こんなことVBA使わないでできるの！？」
みたいなのも見かけるがね。

クエリとマクロで組み上げた巨大なmdbをシステム化してくれとか

それメンテナンスが大変そうだなあ

優秀な人が一人でがんばるのはいいけど、退社したあとにみんな困るパターン

本当に優秀なマはあとでメンテしやすいようにモジュール化をきちんとやって
コメントもしっかり入れて、ドキュメントやヘルプまで残すもんだ
使う言語がどうとか処理効率とかミリ秒の違いばっかり気にしてるうちはまだヒヨッコ

速度は確かに最優先課題じゃねーな。
ようは美しいかどうかだ。
汚いのものは総じて遅いから問題なだけ。

その美しいとか汚いとかが､独りよがりだったりするから問題なわけw

処理効率を考えるのはコンパイラの役割だが
VBAの時点で処理効率考えるのは無意味

jsk(汚い=可読性が悪い)だよな。
プロでもそこらへんにゴロゴロしてる。

美しいコード書く人に聞きたいんだがｗ
一般的に汚いってのは、インデントグgchgch、Select多用、行番号使いすぎ
その他どんなのがあるの？

>>606
行番号使いすぎってなんだ？
俺が入れるとしたらコメント多杉だな。

俺の意思でVBAを選んだわけじゃない
与えられた条件で仕事をこなすのがプロ

「読みやすい」と「美しい」は別

読みやすく書くには一定の法則を守り、それが首尾一貫しているかどうかで、訓練すれば誰でも出来ること
インデントがどうのってのはこっちの話

美しく書くには才能やセンスが必要

コメントってコードだったんだ･････！？
コメントを変えると挙動はどう変わるんだろう･････w

コメントは言語によって意味があるか無いかが変わるが
VBAのコメントには意味が無いというのが定説

「動けばいい」書きっぱなしのプログラムばっか書いてる素人にとっては、コメントはどうでもいいんだろうね

プログラムの性能ってのは計算速度だけじゃなくて、仕様変更や拡張が柔軟にできるかどうかってのも重要な要素
それにはコメントは必要不可欠
つまりコメントの書かれてないコードはプロにとっては「性能が悪い」物になる

コメントの仕様・ルールを厳密に整備していない
VBAは、ダメ言語

ダメ言語を上手く使うのがウデの見せ所
ダメ言語をダメだダメだと糾弾するだけで上手く使えない奴は
良い言語使わせたところで､どうせ並以下のことしか出来やしない件w

コメントの仕様が厳密じゃない言語の方が多いだろ
こっちは選べないんだよ
それともなんだ？いちいちコンパイラを自腹を切って買うのか？
業務用だと値段も高いから大変世界だぞ

コメントは後の保守性とエラーコーディングと再利用に貢献する
狭義のプログラムとしては価値がないが、広義のプロジェクトを延命させリフレッシュさせるための有用なコード
書く人間がどこを意識するかで意味が異なるから一概に何が正しいとかはないが、他人に引き継ぐならコメントなり説明なりコーディングルールなりはあるといいな

処理効率を考えるなら言語じゃなくアルゴリズムを考えるものだと思っていたが、最近は「アルゴリズムって何？」って程度の人でもなんとかなること多いよなぁ。
不一致クエリーなんてアルゴリズム知らなくても使えるし。

ダメなのは>>613自身だろ

ちゃんとクラスモジュール使ってきちんと書けば、.NETに近いシンプルな記述が出来る
インターフェース継承ができるから、大概のことは実現できる

センスが欠如してるのを、言語のせいにするやつってのは例外なくカスだ

と言っても可読性で一番不味いのは構造化例外が使えないところか
デリゲート使えないからイベントも作れないし
そこは見て見ぬふりだ

美しいプログラム、わかりやすいプログラムに共通するのが
モジュールわけや定数名、オブジェクト名が直感的に理解できるつくりだと思っています。
本当に直感的に理解できるプログラムはコメントはいらない、コメントがいらないようなコードを書きなさいとばっちゃに言われました

だな。
コメントを全否定はしないが、すべてにコメントつけるやつはなんだかなぁと思う。
i = i + 1にまでコメントついてるの見たときはあきれたよ。

> 直感的に理解できる
は殆ど本人の独りよがりで､他人には直感的に理解できない件w

つーか､>>620-621なんで別人のフリしてるの？

また妄想がひどいのがいるねぇ。
いつものことだが。

行コメントがいる場合ってそれほどないですよね。
コードを直感的に書ける人＝センスのある人なのかなと。

コードの統一感だって結局は直感的に理解しやすくなるからってことでしょうし。

業務で使う話をしてるのに、直感とか定量化できないものを根拠にされても
アホの世迷い言にしか聞こえないわ

本人だけ理解しているオナニーを改めて、ちゃんと世間並みのコーディング
規約を調べて、自ら定めたそれに従えって

>>622
スルーするとこだけど、なんでそんなに直感的って言葉に否定的なのかは知りたい。

君が馬鹿だと直感したんじゃねえの？

>>625
大きなプロジェクトは大抵コーディングもクラス設計にもきちんとした規約を作るし、もちろん従うよ。
そのせいもあって業務側で直感的なクラス設計が出来なくなるパターンもあるけど…

VBAで大きなプロジェクト(笑)になるぐらいなら、C#なり別の言語にした方が良いかと思われます

>>629
いや、他言語をやってたのでそれはよくわかってる。
逆にVBAは全然私は詳しくないんだが、VBAには無理ってことなの？
それならまあ…いやそれでも関数くらいなら関数宣言時のコメントあれば行コメントいらんべさ

会社でコーディング規約を大事にするのは結構だが、Q&Aの掲示板では全部コメント書いたら見づらくてしょうがない。

最近C言語やアルゴリズムの本などいっぱい出してる人とんと見かけなくなったな。
VBAに関してはちょっとあれだったが、C言語とかではお世話になった。
VBAのできからして別人かも知れないけど。

>>632
誰のこと？

最近はそもそも新しいソフトウェアの導入が難しい会社ってのは多い
CSHARPで作ったら規約違反だから使えないとかね
その点VBAは「これエクセルですから」って言えるし、社員自身の拡張メンテ自由度が高い

まあ簡易なプロジェクトメインだが

小さくてもVBAでプロジェクトはないだろう
せいぜい「事務仕事がちょっと楽になる」程度にしとかないと、あとが大変だぞ

コンパイラの利用を認めさせるか、素人で非効率なことやってないでプロに外注

プロに外注なのに、EXCELでVBAでって指定のあるプロジェクトは
ごく稀というほどでもなく存在するぞ

union じゃなくて、十字にクロスするRangeをとりだす
メソッドが思い出せない。
intersection?

Application.Intersectかな？

つーかVBEには自動補完あるんだから>>637まで解ってれば
自力で簡単に正解に行き着きそうなもんだが

自動メンバ表示切ってたりして。

>>633
本を出してる人のコード見たら全然別人だったわ。
ちょっとあれなのは本出してる人とは別の人ね。
よかったよ。

入力フォームを作成しているのですが
個数や単価、合計を入力するところを
表にしたいのですが、
フレームなんかを使って擬似的にするしかないですか？

フォームのデザインって難しいですね。

使ったことがないけど
その他のコントロールから
Microsoft Office Spreadsheet コントロールを使うとか

>>641
普通にエクセルのセルじゃダメなの？

>>641
ExcelのフォームにOLEでExcel埋め込めないんだっけ？
以前VB6.0でなら試したことあるけど。

それが>>642でしょ

あれはWeb用だったような・・・
関数とか使えたっけ？

>>646
全っ然知らん w

Web用って何を指して言ってるのか分からないから答え様が無い

セルに入力してサブフォームに貼り付けてやれば楽だと思ったり

2007で拡張子.xlsのＶＢＡを使って他のブック（.xls）のパスワードを解除する命令が無視されて、画面上でパスワードの入力を求められる（２回も）ようになりました。
　[更新プログラム MS11-021 KB2464583」をアンインストールすると処理できるようになりました。更新プログラムのバグ？ＶＢＡの仕様変更？情報をお持ちの方がいらっしゃいましたら、教えていただけないでしょうか？

>>650
ttp://www.microsoft.com/japan/technet/security/bulletin/MS11-021.mspx

コメント『'』じゃないやつ多様してて解りにくいコードがあったの思い出した。あれワザとなのかな？

Remのこと？

「'」と書くと必要バイト数が増えるじゃないか！

というのが昔のBasicだとあったけど絶対関係無いよなｗ

他人と違うとこ見せたいだけだよ
どっちにしてもコメントは多すぎると可読性は悪くなる
俺はコメントの多いソースは消してから読むから別に困らないが

> 俺はコメントの多いソースは消してから読むから別に困らないが
バカっぽいw

つーかプログラミングにおける可読性の評価基準は､コメント以外って定義だから
コメントの量によって可読性が左右されることは無いんだよね
そもそも「コメントが多いと可読性が〜」なんてのは「モニタが小さいと可読性が〜」ってのと
同レベルの話

変更が重なってコメントと処理が
食い違ってるってのでもない限り気にならん。

コメント多いと嫌なのは処理の変更後コメント修正
忘れるやつが多いからなんじゃないかな。

>>656
条件がいっぱいあってごちゃごちゃした判定式とか分岐とか、
コメントがあれば丹念にコード読む必要なくなるじゃん

コメントねぇ・・・。意外に簡単な様で難しい議題だね。
ＰＧを作る時点で可読性を高めるか処理速度を優先するかにも関わって来るから一概に
言えないんだよねぇ。例えば、Long型の変数BとCが同じならBoolean型変数のAにTrueを、同じで無ければAにFalseを
設定する様なＰＧを作るとするじゃない？で、それが結構重い処理で何回も行うループの中に必要だったと。
例えば、
Dim A As Boolean
Dim B As Long
Dim C As Long
の後、
A = False
If B=C Then
A = True
End IF
か、
A = B = C
みたいな２つの方法を思いついちゃって、流石にA = B = C は分かり辛いから、A = (B = C)にしましたと。
まず、どっちの方法を選びますかと言う問題と、コメントはどうしますかと言う問題があるんだよね。
多分人によって回答は違うと思うけど、センスの問題になって来ると思う。

userformのテキストボックスから、改行含むデータを一行ずつ取得する方法がわかりません
いろいろ調べてプロパティやlinesなど手を出してみたのですが・・・
どなたかご教授願えないでしょうか？

>>660
テキストボックスから纏めて取って来たデータをVBCrlfでパースすりゃいいんじゃないの？
言ってる意味違う？

>>661
返信ありがとうございます
本当に無知で申し訳ありません、VBCrlfでパースの意味を詳しく教えていただけないでしょうか？

面倒だからコードでね。
今手元に環境無いし、あんまりフォーム使ってないから違うかもしんないけど許してね。

Dim sTextValue() As String 'フォームのテキストボックス格納変数
Dim I as Long '欲しい行のデータのインデックス

I = 0
sTextValue = Split(Me.Text1,VbCrlf)
Call MsgBox(sTextValue(I)

Iは欲しい行数を入れてやって、
Me.Text1の値をVbCrlf（キャリッジリターンとラインフィード）で
パース（ぶった切ってやって）
配列変数のsTextValueに突っ込んでやって、
あとは配列から何番目の行のデータを取ってくるかって、
こんな意味で書いたんだけど、違っているかな？

あぁ、
Call MsgBox(sTextValue(I)
のケツの括弧が無い・・・

ごめん、Call MsgBox(sTextValue(I))ね。

因みにMe.Text1が読み込むテキストボックスコントロールのつもりで
書いたんだけどCellと違うから、Me.Text1.Textとか
Me.Text1.Valueとかやらんとエラーで落ちるかもしんないね。

明後日Office2010買う予定だから
それまで待っててくれればもっとキチンと答えられると思うけど・・・

msgboxをcallで呼ぶだと？
無くもないがなぜにだ

気分。
MsgBoxに限らず、戻り値の無い関数やメソッドはそれを呼び出している事を
明示的に表す為にそう記述する癖が付いている。

組み込みでもcall呼ぶのか……



アリだな

ん？組み込みでも？
これがまだVBAの話だから組み込みだからとか、自作関数だからとか、
考え的に分けているのかもしれないけど、いずれVB.Netとかをやる様になったら同じ名前を付けてその引数の数や型で見分けて
違うメソッドを実行する場合もあるからね。
組み込みだからとか違うからとか言う区分けはここでの説明には不適切だと思うよ。

.NETならオーバーロードがあるんだから意味なくね？
自作関数や自前クラスとかならまぁ意義はあるけど

>>670
そのオーバーロードの事言ってるんだけど

俺は自作の刻だけcallしてたが、その使い方は確かにアリだな
参考にしまう


自作関数の戻り値を変数に入れる時call使えないから一貫性がなくてもやもやしてたんだ

むかしのVBで、callをつけないとエラーになる時期があった
今はいらない。互換性のために残されてるだけ

アクティブなセルを画面中央にスクロールさせるにはどうしたらよいでしょうか？

マウスでクルクルや、スクロールバーをウニウニさせるのが面倒なので
マクロにしてキーボードショートカットにしたいです。

>>674
アクティブなセルが端の場合はどうする？

>>675
そっか、A1とか左上の方のセルにいる場合は無視ですね。
画面に表示されている範囲を取得する方法がわからないのです。

>>676
つActiveWindow.VisibleRange

マクロのポイントで正確の"Visible/可視"範囲を返す
ttp://support.microsoft.com/kb/149241/ja

EXCELのワークシート上に配置したコマンドボタンのウインドウハンドルを
取得する方法がありましたら教えてください。

※別ファイルのEXCELマクロからボタンをSENDMESSAGEで押下したいためです。

>>676
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollColumn = 5

これでE5が左上に来る
5の数字のところを変数に変えてうまく指定してSelectionChangeと組み合わせる

>>679
こうか？

r = ActiveCell.Row
c = ActiveCell.Column
rf = 1
cf =1
or = 10
oc = 5
if r - or > 0 Then rf = r - or
if c -oc > 0 Then cf = c - oc
ActiveWindow.ScrollRow = rf
ActiveWindow.ScrollColumn = cf

>>680
動かねーぞ

動かねーぞ

動かねーぞ

動かねーぞ

動かねーぞ

質問なんだが。たとえば任意で列(A列とC列)を全選択して、
指定した条件に一致したセルにだけ処理を施すというのはできるんだろうか？
A列を全選択→指定条件に一致するセルがあったらそのセルの背景色を変える、
というのはできたけど、A列と離れてるC列に同じ処理を同時に施すことは
できなかったので。

>>686
条件付けがVBAで拾える範囲なら出来る
セルになんらかのデータがあるとか、法則性があるとか。
セルあるデータに規則性があるなら、ＶＢＡでなくて条件付書式使うべきかな

>>686
Union(Columns("A"), Columns("C").select

>>688
訂正
Union(Columns("A"), Columns("C")).Select

>>688
>>689
しねごみくず

>>686
色塗りゃいいってんなら、任意の列に条件付き書式設定しとけばわざわざVBAで
設定する必要もないべさ

ああ、>>687が既にそう言ってるのね。
数式で賄え無いならユーザー関数作って補えばいいべさ。

今度はこっちから質問ですわ。
Boolean型のTrueとFalseをInteger型やLong型に置き換えるとそれぞれ-1と0になるよね。
あれって全てのビットを立たせてある状態と全てのビットを立たせてないと言う状態を表す為に
あんな数値になってるって事で認識合ってる？

>>687-689、>>691-692
レスありがとう。背景色つけるってのは例みたいなもんだから、
個人的には計算式ぶちこんだりセル結合したりと、もう少し手を加えたいと思ってるんだ。
だから条件付け書式は使えないかもしれない。
VBAかじり始めたばかりなのでunionは使ったことなかった。明日試してみることにするよ。
ありがとう優しい人達。

>>693
それでOK。
昔のBASICでの真偽値の表し方を継承しているとも言えるけど、
結局はそういう目的だったろうし。

>>678
センドメッセージを使うと言う事はAPIを使って他のEXCELファイルのボタン押下処理を実行したいって事？

残念ながらボタンのウィンドウハンドルの捕まえ方は知りません。
代用の方法としてApplication.Runで他ブックのボタン押下時の処理を呼び出してみてはいかが？

>>695
あざーす。これでちょっとモヤってたのがスッキリしました。

>>693
TrueとFalseがVBA内の定数じゃないの？

>>698
そう。だけど中身ひっくり返してみると実はって所の質問だったんですわ。

>>696
返信ありがとうございます。
マクロにパスワードがかかった別EXCELのボタンを押下しようとしています。

>>696
OLEObjectsを使用してボタンをアクティブ後、SendKeysでボタン押下はできたのですが、
何度か試してみるとタイミングにより押下できていない場合がありました。
SendKeysでの押下だと確実性がないため、ウインドウハンドルを取得してSendMessageで押下しようとしています。

パブリックにしたいってこと？

> OLEObjectsを使用してボタンをアクティブ後
まで出来ていて､なんで>>700のような発言が出るかねぇ？

マクロの表示にパスワードが掛かってようと､ボタンオブジェクトの取得まで出来ているなら
コントロールツールのボタンなら.Nameを調べて「ブック名!シート名.Name_Click」
フォームツールのボタンなら.OnAction調べて「ブック名!OnAction」
これをApplication.Runすれば良いだけじゃん

(Excel 2003)質問です。
自ブックの終了処理イベントで、
自ブックが使用しているExcelアプリケーション内に、
他のExcelファイルを複数開いた場合の対処を行いたい。
以下コードで困っている事は、終了時確認メッセージが２回出てしまい、
複数開いているファイルに対しても閉じる(Yes/No/Cancel)挙動をみせる。
任意以外のメッセージが出ないようにして、閉じるようにできますか？

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("終了しますか？", vbYesNo + vbQuestion + vbDefaultButton2) = vbNo Then
Cancel = True '終了させないようフラグを立てる。
Exit Sub
End If
'自ブック以外（２件以上）ブックが存在する場合
If 1 < Me.Parent.Workbooks.Count Then
'Excelアプリケーション自体は終了せず
'自ブックだけ保存せずクローズする。
Call Me.Close(SaveChanges:=False)
'自ブックのみ存在時
Else
'Excelアプリケーション自体を終了する。
Call Excel.Application.Quit
End If
End Sub

>>704
> 複数開いているファイルに対しても閉じる(Yes/No/Cancel)挙動をみせる。
この認識がまず間違い

自ブックに対する閉じる処理を2回やってるから､確認メッセージも2回出るだけで
> 複数開いているファイルに対して
閉じる挙動が出ているわけじゃない

2回というのは､まずは手動でのClose(閉じる)処理､そして2回目はコードでのMe.Close
Closeを任意で2回やってるんだから､BeforeCloseイベントも2回呼ばれて､
BeforeCloseイベントに書かれた確認メッセージも2回出る､つまり
君自身が任意で行った(書いた)Close処理の回数だけ確認メッセージが出るという当然の結果

Closeを1回にすれば､当然確認メッセージも1回しか出ないし､2回目のClose(Me.Close)の前に
フラグ立てて､BeforeCloseイベントの最初にフラグ立ってたらExit Subする処理を入れるとかすれば
2回目のCloseでは確認メッセージが出る前にイベントを抜けるから､2回目の確認メッセージは出ない

Excel2002、winXPSP3
CPU：Athlon64 3500、メモリ：1G

15000行×35列のシート8枚について、それぞれ同一処理を行うマクロを作りました。
しかし、6枚目あたりから処理時間が長くなり、8枚目でリソース不足のメッセージが出ます。
現状でファイルサイズは101MBです。

こういう場合、シート数、データ数を減らす以外でどのようなことをすれば、
リソース不足が発生しなくなるのでしょうか。

>>706
その処理をプロシージャに書いて8回呼び出す

>>694
Rangeでもできる
Range("A:A,C:C,E:E,3:3,O5").Select
Unionが有効なのは変数を使って動的に範囲を指定したいときに楽にできる

>>706
どんな処理を行ってるかによりけり。
今分かってる状況だけで言うとメモリを増設したらとしか言えない。

ISNUMERICとisnumberって結果は同じ？

>>710
http://hpcgi1.nifty.com/kenzo30/b_cbbs/cbbs.cgi?mode=al2&namber=742&rev=&no=0&P=R&KLOG=8

>>711
ありがとう

別物
isnumeric(ﾞ4E2ﾞ)
isnumber(ﾞ4E2ﾞ)
では結果が異なる
isnumericは文字列で渡されたデータでも数値変換してから判定する

>>703
返信ありがとうございます。

実行後の結果を保存する都合上、オブジェクトを開いてからApplication.Runするサンプルを組んでみました。
ワークブック、ワークシート側共に「マクロが見つからないというエラーが発生してしまいます。」
呼び出し方が悪いなどありましたら、ご指摘願えませんでしょうか。

Dim xx As Excel.Workbook
Dim sh As Excel.Worksheet
Set xx = Workbooks.Open(Application.ThisWorkbook.Path & "\a.xls")
Set sh = xx.Sheets("S1")

xx.Application.Run "S1.cmdExecuteA_Click"　←見つからないというエラー
sh.Application.Run "cmdExecuteA_Click"　　←見つからないというエラー

>>714
Application.Run xx.Name & "!S1.cmdExecuteA_Click"
Application.Run xx.Name & "!" & sh.Name & ".cmdExecuteA_Click"

Applicationオブジェクトをボタンの置かれているブックやシートのオブジェクトから呼ぶ場合でも
ちゃんとブック名から指定しないとダメだぞ

つーか>>703にも「ブック名!」を付けろって書いてあるのに､なんで勝手に外すんだ？
Runのヘルプにも､一番最初に
> このメソッドの引数では、名前を使用できません。引数には、位置のパスで必ず指定してください。
って書いてあるのに･･･

>>715

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

ブック名付きでエラー出たので、外して検証していたソースを載せてしまいました。

以下で解決しました。ありがとうございます。
「ブック名!シート名.Name_Click」
　↓
「ブック名!シートオブジェクト名.Name_Click」

質問。選択した列の一部のセルの番地だけを取得して
メッセージとして表示するのはどうしたらできるかな。
たとえばC列を全選択していたとして、メッセージボックスには
「C1:C12」とだけ表示したいんだが。そういうのって無理かな。

一部ってどういう規則なの？
選択した列の1〜12行目ってこと？

ちゃんと日本語で､エスパーじゃない人にも伝わるように書いてよ

>>718
そう。まさにそれ。＞選択した列の1〜12行目
717の3行目から読んでもらえたら分かりやすいかも
しれない。
あと攻撃的な文章やめて。傷つくから。

>>719
できるよ

>>719
Dim c as String
c = Split(Activecell.Address,"$")(1)
Msgbox c & "1:" & c & ":12"

このような理由から、 C#では クラス内部から見るとメソッドのように振る舞い、
クラス利用側から見るとメンバー変数のように振舞う プロパティという機能を
ご用意しました。

うっひょー
OFFICE2010買ってきたー！！

>>719
取り敢えず複数行、列が全選択されたもので無くても対応したやつ。
複数シートや複数ブックに対応した奴は自分で考えてね。
Option Explicit

Sub SelectRngConv()
Dim oRng As Range '変換した範囲を設定するRangeオブジェクト
Dim sFromRangeAdd() As String '範囲を格納する配列変数
Dim sToRangeAdd As String '変換後範囲アドレスを格納する変数
Dim I As Long 'ループ用
Dim lRTop As Long '指定する行位置（上）
Dim lRBtm As Long '指定する行位置（下）
lRTop = 1
lRBtm = 12

'範囲毎にアドレスを配列に格納する。
sFromRangeAdd = Split(ActiveWindow.RangeSelection.Address, ",")

>>273の続き

'範囲毎にアドレスを変換し、結合してsToRangeAddに設定。
For I = 0 To UBound(sFromRangeAdd)
With Range(sFromRangeAdd(I))
Set oRng = Range(Cells(lRTop, .Column), Cells(lRBtm, .Column + .Columns.Count - 1))
sToRangeAdd = sToRangeAdd & """" & oRng.Address & """" & ","
End With
Next

'最後のカンマを削除する。
sToRangeAdd = Left(sToRangeAdd, Len(sToRangeAdd) - 1)

'相対参照にしたいならこのコメントを戻してね
'sToRangeAdd = Replace(sToRangeAdd, "$", "")

'アドレスをメッセージボックスで出力。
Call MsgBox(sToRangeAdd)

End Sub

複数行に対応したって書いちゃったけど、複数列の間違いだわさ。
ごめんね。

>>719
こういうやりかたも
MsgBox Intersect(Selection.EntireColumn, Range("1:12")).Address

>>719
1行限定
MsgBox Selection.Cells(1).Resize(12).Address(0, 0)

複数行対応
MsgBox Application.Intersect(Selection, Range("1:12")).Address(0, 0)

あと､傷つきたくなかったら､ちゃんとやりたいことを説明できるようになろうな｡
「選択した列の1〜12行目」と書いてくれれば解るが､>>717では
「選択した列の1行目〜値が入ってる一番下のセルまで」という希望である可能性も捨てきれない曖昧な説明だ｡
(つまり､12というのが固定なのか可変なのかが､>>717の段階では確定していない)

>>726
こんな命令あったのか。知らんかったorz

>>722
どこの誤爆かはしらんけど、VBAでもゲッタ、セッタは使えるぞ。

>>721
カス
>>723
>>724
マヌケ
>>727
クズ

うむ、確かにちょっと間抜けだったと自分でも思うが面と向かって言われるとちょっとキツイな。
まだまだ精進が足りないな。

EXCEL2003 のユーザーフォームで
特定の文字が？になってしまいます。

DBへ保存したいので、？になってしまって困っています。
うまく出力できる方法はありますでしょうか？

＜？になる文字.＞
小?　-＞　小？
本?　-＞　本？

Private Sub TextBox1_Change()
Dim mytxt As String
TextBox1.Value = TextBox1.Value　’ここでは変化ない
mytxt = TextBox1.Value
TextBox1.Value = mytxt　’これも変化ない
TextBox1 = StrConv(TextBox1, vbWide) '？になってしまう
Exit Sub

記入した文字も？になってしまっている。。。
聞きようがないな。。

使っているフォントを変えろ

>>734
本当か？

＞734
フォントはMSゴシックでした。


＜追加で調査＞

人名で文字は、小松なんだけど、松が違ってる。
木　へんに　八　と　口　が縦に並んでる文字

IME再変換したら、　しょう　と読めるらしい。
んで、UNICODEと書いてありました。。。

>>736
unicodeだとエラーが出るなら
unicodeからシステム既定のコードに変えてから実行

>>736
ひょっとして環境依存文字とか言うオチだったりして

>>736
調べてみたら同じようなことで悩んでた人がいるみたいだった。
http://www.accessclub.jp/bbs2/0069/beginter22056.html

>>736
俺の環境だと何の問題もない

> 737
> 738
> 739
> 740

とりあえず、> 739 さんの教えてくれたサイトの
ユーザ関数入れたら表示されました。

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

http://jizen.kuronekoyamato.co.jp/jizen/servlet/crjz.b.NQ0010?id=000000000000

Webクエリで上記URLの「05/05」と「投函完了」という文字列を
引用しようとしたら、
引用できず、

--------------------------------------------------
お問い合わせ伝票番号
※半角数字でご入力下さい。 日付 配達状況
　１件目



　２件目




　３件目

--------------------------------------------------
という文字列のみ 引用できました。
Webクエリをマクロに組み込んで上記の文字列を取り出すマクロを
作成しようと思ったのですが、うまく上記の文字列を取得する
良い方法は無いでしょうか？

そんな機能があったことすら知らんかった

おしえたがりのみなさん、よろしくね！

cgiで書いてるのって､Webクエリだと取れないの多くね？
俺はどうせVBA使うなら､MSXML2.XMLHTTPとかで処理しちゃうけど
その話はExcelの話ではなくHTTPの話で､スレ違いになっちゃうんだよな>>3★3,4

VBAの文字列って、文字のまま大小比較するとUNICODEベースで比較されちゃうんだよな
Ascで文字コードを取得するとShift-JISになのに
だから

If "亜" < "上" Then
If Asc("亜") < Asc("上") Then

の結果が正反対になる

この状況で、VBAプログラマーへの転職成功の見込みなど、自由な意見を聞きたい。
手厳しい意見は、もちろんもけっこう。

誰か以下について意見願う！

自分は、転職希望者である。
そこでだ！もし、VBAプログラマーの求人があったら応募したいと思う。もっとも、VBAプログラマーの求人自体はかなり少ないが。

とりあえず、自分のスペックはこんな感じだ。
31歳四大卒で、VBAプログラミングで高度な販売管理アプリケーションなどが作れる。
しかし、これまでプログラミングの仕事をしたことはなく、もちろんIT企業経験もない。
いわゆる実務経験なしだ。

この状況で、VBAプログラマーへの転職成功の見込みなど、自由な意見を聞きたい。
手厳しい意見は、もちろんけっこう。
よろしくお願い致す！

俺の環境だと頭のイカレた福島○穂が職場にしつこくイタ電してくるので何の問題もない

そもそもＶＢＡプログラマって専門で求人があるの？
独立ならまあわからんでもない

いろいろ書いたが整理めんどいんで他の人にきいてくれ

>>749
ある

>>747
IT業界の経験がないのに高度な販売管理アプリケーションが作れるのか。
そもそも、何をもってして高度と言っているのかが分からない。仕様書とか自分で作れるの？
今からIT業界でやりたいならオブジェクト指向型言語や関数型言語の方が先々困らなくて
済むと思うけど、まず何でVBAを選択しようと思ったのか聞きたい。

>>747
ちなみに俺は同様にIT関連の業務の経験無しで27歳からソフト開発の職についたよ。

それまでの経験は、独学でのWebアプリとしてのPerlのみ。
自作掲示板から始まってテキスト型データベース、HTTPやSMTPもPerlから叩けて、
JavaScriptを介した自動処理やら、Perlに関してはかなり使いこなせてたと思う。

で、入った先で最初にやったのがPHPでの開発。Perlを充分に使いこなせていたからか、PHPはすんなりと利用できた。
FileLockやwebアプリに有りがちな処理ロックの知識も充分だったし。
そしてPostgreSQLを利用してのデータベースを構築した。もちろんSQLは初めて使用したが。

それで覚えがいいということで、VBは未経験だったがVB開発の応援メンバーとして配置され、
ここでも即VBを使いこなせるようになってそのまましばらくはVBでの開発をしていた。

でもWindowsアプリを造るにつれ、VBを覚えるとかCを覚えるとかというのは日本語を読み書きできる、程度の基本事項であり、
特にデータベース系はwinアプリとしてはシステムに深く係らないので誰でもできる簡単なコードなのだと思ったよ。

その後VCでDirectXを扱うジョブに入ったらいきなりわけわかんなくなったｗ

夢を壊して悪いけど

GUI 恐るべし >>752

>>747
IT産業以外のところで便利屋さんになった方が幸せな気がする

あるいは自分で会社作って、頑張るという手もある

需要は確かにあるけど、むしろ必要なのは営業力かもね

折角現実逃避してんのに蒸し返すなバカ

今日もテレビ番組にいろいろ書いたが

自作のユーザーフォームに入力、実行、閉じる。という操作をしていますが、ユーザーフォームを閉じても変数に値を保持し続けさせるということは可能でしょうか？
よろしくお願いします。

可能

閉じずに隠せばいいんじゃね？

俺の環境だと子供がいない

答えていただきありがとうございます。隠すのは考えたのですが、ここの方ならもっとスタイリッシュな方法があるかと思いまして。何かヒントあれば教えてください。

>>762
標準モジュールの変数に保持しておく方法と、
変数保持用のクラスを作ってそっちに保持しておく方法の２つを
いまパッと思いついたけど、どっちも似たようなもんだべさ。
どっちでもゲッタとセッタ作っとくと綺麗に見えるべさ。

標準モジュールを使う方法だと、たとえばUserForm1とUserForm2と言う二つのフォームを作ったとして、
UserForm1にはCommandButton1と言うボタン、UserForm2にはTextBox1と言うテキストボックスと、
CommandButton1と言うボタンを設置しましたと。ついでにModule1という標準モジュールを作っておいて
ここで、UserForm1には

Option Explicit
Private Sub CommandButton1_Click()
Call UserForm2.Show
End Sub

UserForm2には

Option Explicit
Private Sub UserForm_Initialize()
Me.TextBox1 = Module1.GetTextVal
End Sub

Private Sub CommandButton1_Click()
Call Module1.SetTextVal(Me.TextBox1)
Call Unload(Me)
End Sub

と記述してやると。

続く

>>764の続き

Module1には

Option Explicit
Dim M_sTextVal As String

Public Function GetTextVal() As String
GetTextVal = M_sTextVal
End Function

Public Sub SetTextVal(IN_sTextVal)
M_sTextVal = IN_sTextVal
End Sub

と記述しといてUserForm1から実行してCommandButton1を押下してUserForm2に遷移したあと、
TextBox1になんか書いて、UserForm2のCommandButton1を押下して閉じても、
UserForm1のCommandButton1を押下して再度開くと、UserForm2のTextBox1に
閉じる前の内容が設定されているでしょ？これが標準モジュールを使ったやり方ね。

おっと、Public Sub SetTextVal(IN_sTextVal)の所は引数がString型と言う事を
明示的に書いといた方がいいね。
Public Sub SetTextVal(IN_sTextVal As String)ね

質問させてください。
Set で変数にブックを指定したいのですが、エラーが出ます。
1つは
Dim 転記元 As Workbook, 転記先 As Workbook

OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.SLK")
If OpenFileName <> "False" Then
Set 転記先 = Workbooks.Open(OpenFileName)
Else
MsgBox "キャンセルされました", 16
Exit Sub
End If
として転記元に指定し、

2つ目は
If Dir("C:\Documents and Settings\EW45449\デスクトップ\SGC　進捗\メッキSGCリスト" & Format(Date, "yymmdd") & ".xls ") = "" Then
MsgBox "本日のメッキSGCリストがありません" & vbCrLf & "SGCリストの作成を実行してください", 68, "エラー"
　 Exit Sub
Else
Workbooks.Open Filename:="C:\Documents and Settings\EW45449\デスクトップ\SGC　進捗\メッキSGCリスト" & Format(Date, "yymmdd") & ".xls "
　　Set 転記元 = ActiveWorkbook　
　End If

としたのですが、

転記先.Worksheets("テスト").Active

転記元.worlsheets("リスト").Active
実行時エラー’438’：　となります、どのように修正したらよろしいでしょうか？

>>767
先と元のブックごっちゃになってね？
どっちかのブックに「テスト」「リスト」の名前があるシートが無いんでしょ

>>767
まず、転記元.worlsheetsじゃでないべさ。

転記先.Worksheets("テスト").Activate
転記元.Worksheets("リスト").Activate

でやってみ。

それとActivateは何かしたら切り替わるから
あまり使わない方がいいと思うよ。

>>768さん
シート名は確認しました。

>>769さん
やってみましたが、
転記先.Worksheets("テスト").Active
でエラーとなります。
転記元を指定するいい方法はありますか？？

>>770
おっちょこちょいさん。

「転記先.Worksheets("テスト").Active」じゃなくて
「転記先.Worksheets("テスト").Activate」だわさ。

Activeの部分をもう一度Activateに変えてやってみ？

それでダメならまた考えるわさ。

>>771
失礼しました！
ご指摘の通りActivateにしたら上手く動きました。
ありがとうございました！

続けて質問させてください。
転記元のオートフィルタの結果を転記先にコピーしたいのですが、上手くいきません。

転記先.Worksheets("テスト").Activate
For j = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Cells(Rows.Count, 3).Value = myvalue
Rows(j).Resize(2).Insert
転記元.Worksheets("リスト").Activate
Selection.AutoFilter Field:=16, Criteria1:="=" & myvalue
転記元.Worksheets("リスト").Range("W2:AD4").Copy Destination:=転記先.Worksheets("テスト").Cells(Rows.Count, d)
転記先.Worksheets("テスト").Activate
Next

としているのですが、
Rows(j).Resize(2).Insert
で2行ずつ挿入はできているのですが、オートフィルタの結果がコピーされません、
どこをどのように修正したらよろしいでしょうか？

>>773
まだろくすっぽコード見たわけじゃないんだけど、
転記元.Worksheets("リスト").Range("W2:AD4").Copy Destination:=転記先.Worksheets("テスト").Cells(Rows.Count, d) の、
一番最後のCells(Rows.Count, d)の列に指定しているdってこのソースでは何を設定しているか
見えないんだけど、何を設定しているの？

>>774
ｄはあらかじめInputboxで指定しています。

>>776
色々ある。正直いって何がやりたいのかが良く見えない。
まず、myvalueはどこで設定しているのかな？いや、どこかで設定していたとして、
Cells(Rows.Count, 3).Value = myvalueを行った後に行挿入を行おうとすると、
最終行に書き込んだそのデータはどうするのと怒られる筈。
後、Selection.AutoFilter Field:=16, Criteria1:="=" & myvalueの
Selectionは何を選択しているのか。まずここで項目名を指しているセルの範囲を
設定しなくてはならないのでは？
それとループの中でまたオートフィルタの絞り込みを行っているけど、１回の絞り込みでいいのか、
再度絞り込みたいのか。再度絞り込みたいなら一度絞り込みを解除してから
行わないと怒られるんじゃない？
本来これらのエラーが出ると思うんだけど、実際に出てないとすればオートフィルタ―自体の
範囲がちゃんと設定されていない可能性もあるね。
取り敢えずその辺から見直して見るといいんじゃないかな？

おおぅ、自分にレスしてどーする。
>>776は>>775へのレスね。
ちょっと疲れたべさ。暫く自分の方のAndroidの勉強するわ。

まぁ要するに良く見えない。

>>776,778
転記元のデータをオートフィルターで抽出して、転記先に張り付けていきたいのです。

いろいろ修正して
For j = Cells(Rows.Count, myCol).End(xlUp).Row To 2 Step -1
myvalue = Cells(j, 3)
Rows(j).Resize(2).Insert
r = j - 1
転記元.Worksheets("リスト").Activate
ActiveSheet.Range("A1").Select
Selection.AutoFilter Field:=16, Criteria1:="=" & myvalue
転記元.Worksheets("リスト").Range("W2:AD4").Copy Destination:= 転記先.Worksheets("テスト").Cells(r, d)　-�@
転記先.Worksheets("テスト").Activate

Next
となり、あと少しで完成しそうなのですが、
ただ、�@の部分で可視セルを選択しないといけないのですが、
可視セルのある指定範囲の選択（3列目から6列目等）は
どうすればできるのでしょうか？？

分かりにくい文章、見にくいコードで申し訳ありません。

本当に意地汚くて嫌いだ、自分。体も精神も恥ずかしい。

>>779
よく分からないけど
転記元.Worksheets("リスト").Range("W2:AD4").Copy Destination:= 転記先.Worksheets("テスト").Cells(r, d)の、
Range("W2:AD4")の部分をどうやって動的にコードで表現しようかなって事いってるのかな？
そうだとしたら、たとえば3列目から6列目の選択範囲をコピーしたいなら、
Range(Cells(2, 3), Cells(Cells(Rows.Count, 6).End(xlUp).Row, X))
(※Xはオートフィルタ―で絞り込みの対象としてる列の横位置）
とかに変えてあげればいいんじゃないかな。

おっと違うな。
Range(Cells(2, 3), Cells(Cells(Rows.Count, X).End(xlUp).Row, 6))
(※Xはオートフィルタ―で絞り込みの対象としてる列の横位置）か。
なんか疲れてるみたいだわ。

>>782
ありがとうございます。
なんとかなりそうです。
助かりました！

>>783
お役に立ててなによりだけど
もし自分の勉強の為じゃなくて仕事として作ってるなら、
転記先のシートに行を挿入する必要は本当にあるのか、
変数dはループの中で特にいじってないから貼られる先は常にいっしょじゃないのか、
なによりシートをアクティブにしてセル操作を行っているだけで、
どのブックのどのシートのどのセルを操作すると言う書き方をしてないから
操作的に非常に不安定じゃないかとか
まぁ色々あるからその辺を良く考えて作り直した方がいいと思う。
どうせ長いコードじゃないし。

>>784
仕事で使用するために試行錯誤しながら作っています。
変数ｄと行の挿入はこの前にデータの整理や不要行・列の削除を
行っているため必要となっています。

ご指摘のようにシートやセルの操作は改善の余地が大ありと
思っています。

また分からないことがあれば質問させていただくので
機会があればご教示の程よろしくお願いします。

>>773
あまり読んでないけど、
オートフィルタの結果のコピーは、
範囲.SpecialCells(xlCellTypeVisible).Copy
かな

でもVBAでオートフィルタ使うのは良くないと思う。
だから質問自体がナンセンス。

私なら転記元のデータを走査してヒットしたら、ひとつずつ転記先にコピー
していくか、collectionか何かに溜めてからまとめてコピーするかだな。
念のため、コピーと言ってもCopyメソッドを使うわけではないよ。
if ヒットしたら then
転記先.Cells(ヒットした分).Value=転記元.Cells(走査した分).Value
end if

何度もすみません。
フォームを閉じた後も変数を保持しておく方法がまだ解決していません。
webをいろいろ見てみたのですが宣言セクションで宣言した変数はブックを閉じるまで値を保持し続ける
と書いてありやってみましたが上手くいきません。
763さんが言っている「標準モジュールの変数に保持しておく方法」
というのも調べてみましたがよくわかりませんでした。
本当に申し訳ありませんが、このようなやり方が記載されているweb
もしくは、コードを教えて頂けると助かります。
馬鹿な質問で申し訳ありません

>>787
一番簡単なのはワークシートのセルに保存しておくかな

標準モジュールの宣言セクションでPublic で宣言した変数を
フォームで使うようにしたらどうなの

>>787

>>764
>>765

>>787
要するに変数のスコープという基本的な知識が抜けているんだよ
他にもプログラミングの基本的な知識が抜けすぎ

このまま先へ進めても分からないことだらけになってしまう
VBAでプログラミングの勉強をするのは困難すぎる
素直にCやJavaなどメジャーな言語の入門書を読めば必ず書いてある