Excel VBA 質問スレ Part17

過去スレ
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総合相談所 93
http://pc11.2ch.net/test/read.cgi/bsoft/1279119276/
Word総合相談所
http://pc11.2ch.net/test/read.cgi/bsoft/1263719084/
【質問不可】Excel総合相談所スレの雑談・議論スレ2
http://pc11.2ch.net/test/read.cgi/bsoft/1151651536/

>>1乙

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Macro1()
　　SendKeys ("%{F11}")

　　st = 100 'Top ボタンの初期位置
　　sl = 200 'Left
　　dt = Range("B2").Top '移動先
　　dl = Range("B2").Left

　　ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=sl, Top:=st, Width:=64, Height:=32).Select

　　Sleep (500)
　　nw = 30
　　For i = nw To 0 Step -1
　　　　Sleep (15)
　　　　Selection.ShapeRange.Left = dl - (dl - sl) / nw * i
　　　　Selection.ShapeRange.Top = dt - (dt - st) / nw * i
　　　　DoEvents
　　Next
　　Sleep (750)
End Sub

このコードで、
動かすもの"コマンドボタン"を"図１"に代えたいんですがどうすればいいですか？

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）

>>3
ActiveSheet.OLEObjects.Addでボタンを作った直後にこれを入れる
Selection.Object.Caption = "図いち"

>>5
すいません、そういう意味じゃなくて
ボタンを動かすんではなく、他のもの(ここでは図)を動かしたい
という意味です

ずいぶん初歩的なこと聞いてた
事故解決しました

事故→事故でしたすいません

こんどは>>3で動かすとき図形を下に来るにつれてどんどん大きくしたいんですが
(ボールがこっち側に飛んでくるイメージ)
このやり方を教えてください
お願いします

>>8
Widthプロパティでコントロールの幅、Heightプロパティで高さが指定できる

っていうか、完全にExcelの間違った使い方だな

いいんじゃない？ マージャン作る奴もいるわけだし

>>9
初心者なんで、kwskお願いします

ActiveCell.Row
でアクティブセルの行数が分かりますが、"図1"の現在の行数を求めるにはどうしたらいいんですか？

>>12
TopLeftCellプロパティとBottomRightCellプロパティ

配列A内の値が同じA内に重複している事もある
それをユニークにしてダブりをなくす、ユニークにする関数ってある？

>>14
ない

>>15
thx
再配列で解決した

csvをtxtに変換するマクロを作成しました。
現在は、Cドライブ直下のみで動作するようになって
いますが、ファイルがどこにあっても動作する
ようにしたいと思っています。
教えていただきたく、よろしくお願いします。

csvをtxtに Macro

Dim myOldName As String
Dim myNewName As String
Const myOldDil As String = "*.csv"
Const myNewDil As String = ".txt"
Const myDir As String = "C:\CSV変換\"
　　myOldName = Dir(myDir & myOldDil)
While myOldName <> vbNullString
myOldName = myDir & myOldName
myNewName = Left(myOldName, Len(myOldName) - Len(myOldDil) + 1) & myNewDil
FileCopy myOldName, myNewName
Kill myOldName
myOldName = Dir()
Wend

　End Sub

>>17
http://codepad.org/By2PrWCv

>>17
http://codepad.org/cpt56kkv

プログラマですがエクセル初心者です

Excelで作ったデータを、csvに保存してブラウザでアップロードすることでDBに登録しています。
これを直接、Excelからサーバーにアクセスしてデータを上げることはVBAで可能でしょうか？

>>18
>>19
早々のご回答ありがとうございます。
どちらも思い通りになりました。

>>20
可能
vbaでhtmlもJavaScriptもSQLも書ける
でも普通にvbaからJAVA呼び出すのが普通かと

>>20
ちなみに、VBAから呼び出せないプログラムの方が少ないような気がする。
少なくとも俺の使える有名言語は、全てVBAに直書きが出来てる。
ほんま恐ろしい言語やで、VBAは。

ExcelVBAでADO使うのが一番普通じゃね？>>20

延々と続く作業をやってるとスタック容量？が足りないとか言われるけど、解決する方法教えてほしいです
まあ解決というか終了したあと勝手にまた同じマクロを実行する方法
知恵さえ絞れば出来そうなんだけど

Doevents ?

>>25
スタック不足の原因の一つとして、そのマクロに何か欠陥がある場合もある
メモリの増設とか64bit版に乗り換えるという方法もある

エラーで終了したあと自動的にマクロを再起動するのはVBAだけだとちょっと難しいかも

時々セーブする

Excelのパスワード入力なしで開くのを頑張ってた人です
無事解決しました
vbaすら不要でスレ違いなのですが一応報告です
xlsのファイルオプションでvbsからbookをパスワード付きで開く処理追加しただけ
パスワードなしのbookもそのまま開けるので、これにて終了です

回り道した割りにあっさりできました
でも、色々とスレ住人には世話になりました感謝です。ありがとう

ま、ウィンドウ毎にブックが開いてしまうので、こいつを制御できないモノかと

GetObjectしてエラーだったらcreateObject

>>29
おかえり。ただ、意味がわからんｗ

ExplorerとExcel.exeの中間にVBScriptを配置したってことか？
拡張子.xlsの関連付けをいじって、呼び出し先をexcel.exeから自作のvbsに変更し、
そのVBScript内からExcel.exeを呼び出す際に引数で特定のパスワードを読み込ませるようにした、ということなのか？
だとすると強引なやり方だなｗ

それになんかの拍子(SPパックとかセキュリティパッチ当てた時とか)に関連付け外れる危険性はあるな。
でもまぁVBScriptの中身いじる事でパスワードの変化にも対応できるし、やろうと思えば複数のパスにも対応したりもできるし、
拡張性については十分確保してるか。わりと妥当な結論なのかもね。
ともかくお疲れさん。

>>31
xls拡張子を実行時にvbs起動であってます
つたない文章でいつもすいません
ただ、今の状態だとブックを開く度にExcel.exeが上がってしまうので1つのexe内でブックが複数開けないか思考中

これもスレ違いなので、消えます
vbaの質問や議論にはいつも通り参上しますがw

30スルーかよ

質問させてください。Excel2010にて

csvファイルを読み込もうとするとき、ダブルクリックでBookとして開くと
住所などのハイフンが混ざった数字データが日付として認識されてしまって、
直そうにもシリアル値となってしまっているので正確に復元することは難しいです

かといって『外部データの取り込み』でテキストファイルとして全列のデータ形式を
文字列でインポートしても、同一項目内（要はダブルクォートで囲まれた中）に
改行があるとセル内改行とはならず行がそこでズレてしまい、使い物になりません
csvファイルを「そのまま」読み込んでくれるマクロ
http://homepage2.nifty.com/e-ka/win32/index.htm
を使ってみても同じでした

どなたか対処法を教えていただけませんか？
マクロでシリアル値を元のハイフン付きの数値に戻せるのなら最高なのですが…

数値（列番号）から列文字（A,B,...Z,AA,AB,...）に変換する関数ってないですか？
とりあえず今は力技で、
IIf(x>26,Chr(Asc("A")+(Int(x/26))-IIf(x Mod 26=0,2,1)),"")&Chr(Asc("A")+((x Mod 26)-(IIf(x Mod 26=0,-25,1))))
としてますが。。。

>>35
Replace(Cells(, x).Address(, False), "$1", "")

力業でやるにしても、式はもうちょっと簡単にできる
IIf(x > 26, Chr(64 + (x - 1) \ 26), "") & Chr(65 + (x - 1) Mod 26)
どっちにしてもこの方法だと3文字になったときに破綻するけど

>>34
もちろんマクロを作れば可能だけど、けっこうめんどくさそう
別の方法として、テキストエディタでハイフンを別の記号に置換、
Excelで読み込んでからマクロで元に戻すという手もある(残念ながら置換では戻せない)

でも、そういうマクロってよく探せばきっと誰かが作ってると思うんだけどなあ

Set mc = Worksheets(1).Cells(1, 1)
MsgBox mc.AddressLocal() ' $A$1
MsgBox mc.AddressLocal(RowAbsolute:=False) ' $A1

てな感じでは？

>>34
ADOでMicrosoft.Jet.OLEDB.4.0ドライバ使えば csv は読める

ただ、Jet ドライバ使っても csv の読み込みはデフォルトだと、カラムの型を
自動認識してしまうので、schema.iniファイルを使って、全カラムが文字列型であることを
明示してやる必要があり、そのあたりが面倒だけど

>>30
GetObjectして
エラーだったらExcelオブジェクトがないから新規にcreateObject
エラーじゃない時は既にオブジェクトがあると判断できるから
Getしたオブジェクトでbook開くって事？

>>37
可能なんですか！3-17とか4-5-3とかハイフンの数がまちまちなので、
シリアル値に変換された後は戻すのが不可能だと思っていました
しかしどうすればちゃんと正しく戻せるのかさっぱりわかりません。限界か…

マクロは自分なりに結構探してはみたのですがどうも改行をうまく処理してくれる
ものが見当たらないんですよね。調べ方が下手なのかもしれません

>>39
ちょこっと調べてみましたが、私のようなへなちょこには敷居が高いですね…

>>40
うん

質問があります。
osはXPでExcel2003を使用しています。

マクロで特定の行、たとえば1行目にある
すべてのチェックボックスのみ削除することは可能でしょうか？
範囲を選択し、CheckBox.Deleteとするとシートにあるすべての
チェックボックスが削除されてしまいます。
特定の行にチェックボックスを追加することはできたのですが、
削除がどうしてもできません。助けてください、お願いします。

>>43
CheckBox1.TopLeftCell.Row
で、そのチェックボックスが何行目にあるかわかる
1つ1つIfで調べて、1行目なら削除ってやればいい

エクセル2003です。

ユーザーフォームに30個のテキストボックスを30個設置しています。
全てのテキストボックスが空白のままOKボタンを押すと
「テキストボックスがすべて空白です」とエラー文が出る様にしたいのですが。。。

For　myCnt 1 to 30
If "TextBox" & mycnt = "" Then
MsgBox "全てのテキストボックスが空白です！何か入力してください"
Exit sub
Next myCnt
とかやってもうまく行きません。

何かヒントあれば教えてください。

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

>45
逆じゃね？
空白じゃないテキストボックスが見つかれば 何か処理をしてeixt subする。
見つからないままforループが終われば、MsgBox \\\"全てのテキストボックスが空白です！何か入力してください\\\"

>>47
あああ、灯台もと暗しｗ

ありがとう〜

>>44
行を削除してもチェックボックスが残ってしまう・・・
特定の範囲にあるチェックボックス自体を
削除する方法はないでしょうか？

>>49
If CheckBox1.TopLeftCell.Row = 1 Then CheckBox1.Delete

>>42
thx
GetObjectなんて使うの初めてだわ
色々有り難う

>>49
カット＆ペーストで一時的なシートに逃がすとか

EXCEL2003を使用しています


ワークシート上に　Label を10個とComboboxを1個配置します

シート上のComboboxで1〜10の数字を選択し、1　が選択されると　Label1　の背景色を黒色へ変えます。
同様に　2　が選択されると label2 の背景色を黒色へ変えます。
これを全10個のLabelで同様の動作をさせたいです。

Comboboxで選択された、　1　は取得できたのですが、
Label1 を選択する方法がわかりません

Me.Controls("Sheets7.label" & 選択番号).BackColor = &H0

こんな風にやってみたのですが
メソッドまたはデータメンバがみつかりません　と出ます。

お知恵を貸してください。

ActiveSheet.OLEObjects("Label" & i).Object.BackColor = &H0

>>54

ActiveSheet.OLEObjects("Label" & 選択番号).Object.BackColor = &H0

で出来ました！

ありがとうございます。

質問よろしくお願いします。

sub A()
call B
end sub

sbu B()
msgbox "aaa"
'call元のsub Aを終了させたい"
end sub

とある時に、callされたBのsub内で、call元のAを一発で終了させる事は可能でしょうか。
flgを立ててexit subも考えたのですが、VBAを全て停止させる構文があったら教えてください。

>>56
http://codepad.org/2B6Mifx1

call元のAを終了させる理由が分からないので何とも言えない。
1) SubプロシージャのAの(3)を実行させたくないだけなら新しくSubプロシージャABを作った方が早い。
2) 単にVBAを停止させたいならApplication.Quitを呼べばいい。
3) (3)を実行させる場合とそうでない場合があるならAを二つに分けてBの戻り値で判定してIf文で判定する。

入力ファイルを選択させる場合のデフォルトディレクトリ
フォルダを選択させる場合のデフォルトディレクトリ

それぞれ初回時選択した場所を記憶させることってできますか？

>>57
ありがとう。
私も他の人から質問されたので、なぜそんな構造になってるかが分からなかったんです。
やはり、構文構造から見なおした方が良いかもしれませんね。

>56
これってCodeModule.DeleteLinesでsubBの中からsubAを消しちまったらどーなるんだろ？

>>58
何したいのかしらんけど、記憶させるってことだけなら変数に保存しておけばいいだけの話では？

>>58
継続処理なら変数
そうでないならセルなり外部ファイルなりコード追記処理に記憶

>>58
static使うか、レジストリに記憶させるか、俺ならstaticから試すかなぁ。

>>61-63
ありがとうございます。試してみます。

>>60
一度実行されたコードはファイルを開き直すまで更新されないと思う
昔リロードさせたくて調べたけど全然わかんなかった

戻り先が格納されてるだけだから、Aに戻った瞬間にコンパイルエラー吐くんじゃなからか

>>60

Sub A()
　Call B
　Msgbox "AAA"
End Sub

とか

Sub A()
　dim v
　v=100
　Call B(v)　●Ｂで、v*2
　Msgbox v
End Sub

とかして、ＢでＡをdeleteしてみたところ
ＡのMsgboxは正しく表示された。

>>60 の言うとおり。
ただ、
＞開き直すまで更新されないと思う
開きなおすまで、という意味が分からなかった。
聞かぬは一生の恥、ということで教えてもらうと嬉しい。
　

Excel2007

Listboxコントロールって中に罫線表示というかgrid表示って出来ないんですかね？

その他のコントロールでListViewコントロールを使わないと駄目？

>>68
標準の機能では不可能だけど、自分でオリジナルのコントロールを作るという方法がある

参考
ttp://www.andypope.info/vba/colourdropdown.htm

>>69

ありがとう

今の私のレベルでは無理なんで、それは諦めます w

>>67
そのコード実行後にファイル保存＆クローズすれば次に開いた時に変わってる。
だったかな？

質問です

シート１にコマンドボックス
シート２にコマンドボックス登録用データと登録ボタン（コマンドボタン）

これでコマンドボックスにデータは入るでしょうか？

ちなみに使用しているのは2007です

>>72
入る

>>74
ざっくりでいいので、手段を教えてくれませんか？

別シートにコンボボックス表示用のデータを書くのではなく、
直接コードに書くようにしてみました。
Private Sub OsBox_Change()
With OsBox
.AddItem "Windows"
.AddItem "UNIX"
.AddItem "Linux"
.AddItem "Solaris"
.AddItem "AIX"
.AddItem "RedHat"
.AddItem "MacOS"
End With
End Sub

保存して、一度エクセルを落としてから再起動しても
コンボボックス内に反映されなかったので、
コードを実行（F8キーでデバック？）してみました。
すると、コンボボックス内に項目が表示されました。

ただし、デバックを繰り返すと項目が2重3重に登録されてしまい
思ってた挙動になりません。
どうしましょうか？

MsgBoxのボタンにXPスタイルを使うことってできる？
ボタンだけ古いスタイルでちょっと困っている。

>>77
form自作

Class_Terminateから例外をあげるとデバッガにとっ捕まるのは何故？
例外が伝播してくれないので終了処理できなくてとても困るんですけど。

ちなみにデバッガにつかまった後、「デバッグ｣を選択するとRaise直前に
戻されて永久ループ、「終了」だとその場でプログラムの実行をするけど、
各種変数が初期化されてしまうみたいで超使えない。
まったく触っていないはずのプロパティが消滅しているので参ったわ。

>>71　
　ありがとう
　

>>72

Sheet1　にコンボボックス(OsBox)
Sheet2　のA1〜A7にOS名一覧
Sheet2　のCommandButton1でOsBoxに一覧セット
'-----------------------------------
Private Sub CommandButton1_Click()
　　Sheets("Sheet1").OsBox.List = Range("A1:A7").Value
End Sub
'-----------------------------------

>>76
コードの最初に、OsBox.Clear　がないので質問のようになる
Additemを使うときは必ず入れるようにしておくとよい。
それよりも何よりも、Changeイベントでのセット拙いと思う、、
　

ＶＢＡの基礎がよくわかってないんだけど、

�@ユーザーフォームにリストボックスを作成
�Aリストボックス内に.rowsourceプロパティを使って、項目を作成
�Bコマンドボタンクリックでリストボックス内のどの項目が選択されたかを
MsgBoxで表示する

この一連のマクロ？をエクセルシートを開いたときに実行するようにしたいんだけど
実際にはVBEで実行(F5)しないと実行できない。
何が足りてないんでしょうか？

This Workbookに
openイベントとして書かないと

WAN側IPアドレスを引っ張る方法とかって有りますか？
サンプル等があれば助かります

Excel2007です

コンボボックスに複数列のデータを表示させるのはどうすればできるんでしょうか？

▼をクリックした時に2列のデータが表示はされるんですけど、行を選択すると左のデータのみしか表示されません。
ちなみにデータの格納はrowsourceではなく配列を入れています。

コンボボックスのプロパティで
ColumnCountを2に設定してます。

Private myList() As String

For i = 1 To UBound(structtbl)
With structvertbl(i)
myList(1, i) = .id
myList(2, i) = .verdata
End With
Next

Me.combo_data.Column = myList

excel2000です
素数判定をするプログラムです

Sub 素数判定()

num = Range("数")

If num = 1 Then Range("判定").Value = "素数ではない": End
If num = 2 Then Range("判定").Value = "素数": End

On Error GoTo ErrorHelp

w2 = num Mod 2
If w2 = 0 Then Range("判定").Value = "素数ではない": End
For i = 3 To num / 2 Step 2
c = num Mod i
If c = 0 Then Range("判定").Value = "素数ではない": End
Next
Range("判定").Value = "素数"
Exit Sub

ErrorHelp:
Range("判定").Value = "計算が正しく行えませんでした。"
MsgBox "エラー内容：" & Err.Description
End Sub

Rnage("数") に入力されている数を Range("判定") に判定をするのですが
Range("数") の数が大きすぎるとオーバーフローしてしまいます。
いまはerrorgotoで処理していますがオーバーフローしないようにはどうすればいいでしょうか

>>87
変数の型をCurrencyやDecimal等のもっと大きな数を扱えるものにする。
それでも足りなければ多倍長整数演算ライブラリを使う。
軽くググった限りでは、VBA用にBigIntというものがあるようだが。

86です。

え〜っと、質問を一旦取り消しておきます。

ビジネスSoft板のExcel総合相談所より誘導されてきました。（94-563です。）

まずは環境は以下のとおりです。
　　WIndows Vista ／ Excel 2007( Office 2007のExcel）
　　（一部マシンにはXP ＋ 2003が載っているものがある。）

質問は、イベントについてです。
実験のためのものなので、意味のない内容であることはご容赦を。

＠実験の内容
Msgクラスのインスタンスからイベントを発行すると、
２つある別のクラスのインスタンスからそれぞれイミディエートウィンドウに
メッセージを出すというもの。

○標準モジュール
・宣言部
　　Msgクラスをとる変数を作成
・Mainプロシージャ
　　Msgクラスのインスタンス作成
　　Class1クラスのインスタンス・Class2クラスのインスタンスの作成
　　Class1.Aメソッド実行

○Msgクラス
・Mメソッド
　　イベントMessege（String)を発行

（続きます）

○Class1クラス
・宣言部
　　Msgクラスをとる変数をPublic WithEventsで作成
・Initialize
　　宣言部で作成したMsgクラスのインスタンスを代入
・Messegeイベントのレシーバ
　　イミディエートウィンドウに「Class1: 'Str'」を出力（'Str'はイベントの引数）
・Aメソッド
　　Msg.Mメソッドを実行

○Class2クラス
・宣言部
　　Msgクラスをとる変数をPublic WithEventsで作成
・Initialize
　　宣言部で作成したMsgクラスのインスタンスを代入
・Messegeイベントのレシーバ
　　イミディエートウィンドウに「Class2: 'Str'」を出力（'Str'はイベントの引数）

＠結果。
実行するとClass1の出力はされるのですが、Class2の方はされません。

＠質問
１．Class2にもイベントをレシーブするようにするにはどうしたらよいでしょうか。
２．上の実験では何が問題だったのでしょうか。

以上、お願いいたします。

>>90
とりあえずコード晒せ

>>90
とりあえずお前がやりたいであろうことをやってみた
結果、ちゃんと動く
問題はお前のコードにある

検証コード

標準モジュール
Public gMsg As Msg
Sub main()
    Set gMsg = New Msg
    Set c1 = New Class1
    Set c2 = New Class2
    Call c1.a("Go!")
End Sub

MSGクラス
Public Event Messege(ByRef str As String)
Public Sub m(str As String)
    RaiseEvent Messege(str)
End Sub

Class1クラス
Public WithEvents lMsg As Msg
Private Sub Class_Initialize()
    Set lMsg = gMsg
End Sub
Private Sub lMsg_Messege(str As String)
    Debug.Print "Class1:" & str
End Sub
Sub a(str As String)
    Call lMsg.m(str)
End Sub

Class2クラス
Public WithEvents lMsg As Msg
Private Sub Class_Initialize()
    Set lMsg = gMsg
End Sub
Private Sub lMsg_Messege(str As String)
    Debug.Print "Class2:" & str
End Sub

まあ、グローバル変数にインスタンス保持して違うクラスで使いまわすのは
設計としてはあんまりよろしくないが、あくまで検証ということで

あと、変数は作成じゃなくて宣言な
つか俺眠れんからって何やってんだかw

>>93-95
ありがとう。
出かける前なんでまだちゃんと読んでないけど、解読してみる。

OOPの考え方がよく分からないんで、インスタンスをどう保持すればいいか
正直よく分からないんだけれど、いろいろなクラスで使い回したい場合、
やっぱり引数でやりとりした方が良いんですか？

正直、OOPの考え方が分かるような本があれば読んでみたいと…

数を作ってれば体で覚えるよ。好きなものを作るといい。
最終的にオブジェクト指向にはそこまでこだわらんでもいいと気づく
超巨大なプロジェクトなら必須なんだろうかね、って程度

むしろ規模がでかい程体力重視で新人、素人ばっか

オブジェクト思考は共通機能にのみ適用って感じ

巨大な程に細分化してパーツ単位で作業するからな
指示不測のまま放り込まれた応援外注と新人がミス
→そんな状態じゃ監督者も面倒見切れて無いから直前とか稼動後に発覚、がパターンｗ

excelにワークシート1と2を作りました。
ワークシート2にボタン1をおいてそのボタンをクリックすると、
ワークシート1から上半分だけを抜き出したリストを
ワークシート2の上に作ろうと思います。
今現在ボタン1には何を記述すべきでしょうか。
検索してもまだ勉強２日目でいまいち要領を得ないので、
参考にできそうなサイトなどを教えてください。

>>101
別のシートに指定した範囲をコピーするのは、こんな感じで書けばいい
シートの名前とセルの範囲を書くと、右から左に内容がコピーされる

Worksheets("ワークシート2").Range("D11:F20") = Worksheets("ワークシート1").Range("A1:C10").Value

これでコピーはできました。ありがとうございます。
次は自分なりに勉強して特定の文字などの入っている行だけを抜き出して
あたらしいふぁいるにするのに挑戦していきます。

セルをダブルクリックした場合に、セルを指定色で塗りつぶし、既に塗りつぶしてある場合は元に（塗りつぶし無し）戻す、というコードを書きたいです。
その際、A1をダブルクリックしたら赤、A2をしたら青…とA3、A4までの範囲で、それぞれ違う色を指定したいです。
ググってhitしたHPがありましたが、1色しか指定できませんでした。
そのコードのカラー指定部分を変更して2つ並べてみましたがエラーが出ます。
どなたかアドバイスお願いします。

ちなみに↓が参考にしたコードです。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　If Intersect(Target, Range("A1:A4")) Is Nothing Then Exit Sub

　With Selection.Interior
　　If .ColorIndex = xlNone Then
　　　.ColorIndex = 4
　　Else
　　　.ColorIndex = xlNone
　　End If
　End With

　Cancel = True

End Sub

書き忘れました。エクセルのバージョンは2003です。

select case

ググってるのですがちょっと分からないです…。
もう少し簡単に教えてもらえないでしょうか…。

104です！
ttp://www.excel.studio-kazu.jp/kw/20070119132330.html
に同じような質問があったので参考にしたところ、思うように行きました！
ありがとうございました。失礼しました。

VBAでエラトステネスのふるいってできる？

エラトステネスではないが素数をrange上限で指定した数に一番近い素数を求めるのなら

Sub 素数サーチ()

On Error GoTo Error

num = Range("上限")

Range("結果").Value = "Searching Now..."

If num <= 1 Then GoTo 終わるよ

num = num + 1
戻るよ:
num = num - 1

If num = 2 Then GoTo two

guusuu = num Mod 2
If guusuu = 0 Then GoTo 戻るよ
For i = 3 To num / 2 Step 2
a = num Mod i
If a = 0 Then GoTo 戻るよ
Next

Range("結果").Value = num

Exit Sub

two:
Range("結果").Value = 2
Exit Sub

終わるよ:
Range("結果").Value = "素数なし"
Exit Sub

Error:
Range("結果").Value = "error!"
MsgBox "エラー内容：" & Err.Description
End Sub

もっと効率のいい方法あったら教えてくれ

>>109
できないわけがない
もちろん範囲によってはちょっと工夫が必要になるけど

検索と抽出についての質問なんですが

シート１に入力
シート２にn列ｎ行のデータの一覧とします。

シート１に入力した内容と一致するデータをシート２の該当部分から
すべて抜き出してシート３にコピーするという作業を考えてるのですが

Findで検索対象をさがして
セル番地を取得して、その番地の行をコピーして
シート３に貼り付け　ってのをloopやforで繰り返す処理しか思い浮かばないのですが
上記のような作業を行う場合はこれでよいでしょうか？

なんか変なやり方してる気がしますし
findの使い方がいまいち理解しづらく頭がいたいです。。

set Rng = sheets("シート2").columns(1).find(FindStr)
if not Rng is Nothing then
Rng.EntireRow.copy sheets("シート3").cells(65536,1).end(xlup).offset(1)
end if

みたいに使う事が多いよ。
findで見つかった結果をRange型変数にsetして、検索結果が見つかっていたら処理をするって使い方が便利だと思う。
データの構造や持ち方がはっきり分からないからこれ以上は書けないけど、
ちょっと工夫してみれば出来ると思うよ。

大変参考になります。
サンプルまで書いていただきありがとうございます。
よく調べてみます。

長文失礼します。下記を前提としてBefore_Closeで処理がしたいのですが問題にブチ当たっています。
(1) マクロを仕込んだxlsファイル(仕込んでないものも)も同時に複数開かれる想定。
(2) キャンセルされた場合は処理をしない。(または処理前の状態に戻す必要がある。)

・Before_Closeが処理された後、未保存ブックの保存確認でキャンセルされると困る。
→キャンセルされた後に発生するイベントが無い!?
→自前で保存確認して、
　vbYesなら処理後に自前で保存してThisWorkbook.Saved=Trueにして本物の保存確認を回避、
　vbNoなら処理後にThisWorkbook.Saved=Trueにして本物の保存確認を回避、
　vbCancelならCancel=Trueで対応。

・ブックを2つ開いて2つとも未保存のままExcelを終了しようとする場合、上記だと1つ目がvbNoで2つ目でvbCancelだと1つ目のSavedがTrueのままなので、再びExcelを終了しようとすると1つ目が保存確認せずに閉じられてしまう。
→うああああ結局キャンセル後に対処が必要じゃん！

というところで手詰まりしています。苦肉の策として、
→Before_Closeで実装するのをやめてAuto_Closeに実装、
※Auto_Close()であればマクロからCloseした場合にはイベント発生しないため。
　vbYesなら処理後に自前で保存して自前で閉じる、
　vbNoなら処理後に自前で閉じる、
　vbCancelならApplication.ExecuteExcel4Macro "HALT(TRUE)"で対応、
としてとりあえず妥協しましたが、これだと1つ目で[はい]とした時点で1つ目が保存＆閉じるので、2つ目で[キャンセル]しても1つ目がキャンセルされず通常の動きとは変わってしまう。。。

上手い解決方法はないでしょうか。Excelは2007〜です。

(2) キャンセルされた場合は処理をしない。　ってあるけどユーザーがマクロ実行後の結果を見て保存するかどうか決めるのかな？
それならブックをコピーしてマクロで自動処理をさせて元ファイルと比較をした方が分かりやすいと思います。

>>117
いえ、保存せずに閉じようとした場合に表示される保存確認ダイアログですが、
表示されるのはBefore_CloseやAuto_Closeが終わった後なので、
[はい]か[いいえ]の場合だけ処理したい場合にキャンセルだと困るのです。
キャンセルの後で発生するイベントは存在しないようなので、
確実に[はい]か[いいえ]の場合だけ処理したいのであれば、
イベント処理の中で自前（MsgBox等）で保存確認ダイアログを表示するしかないようなのです。。。

クライアントの端末でファイルをコピーしたり削除するような処理は許可がおりません。

Excel上でWebbrowserコントロールを使って
ページの上半分がグーグルマップ、下半分が表になるようにしてあります。

このシートを印刷をしたいのですが普通に印刷すると上半分が印刷されません。

下記の記述で上半分は印刷できるのですが今度は下が印刷されません。

Sub ボタン2_Click()


ActiveSheet.Webbrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 0, 0 ' 印刷


End Sub


IEの領域は表にはかぶってないのですがどうすれば両方印刷できるのでしょうか？

Before_Closeは終了処理書けないしホント用途不明。
Before_Closeで他のブックも保存確認して処理しちゃうのはどう？

画像に取り込んでビットマップとして印刷したら？

>>113の方の質問に似ているのですが
シート1にずらずら入力しているデータと
シート2にずらずら入力しているデータを比較して
マッチしているデータ行をシート1のマッチしたデータの下の行(既に数行空けてある)に
返す処理って可能でしょうか？

今まで手書きで処理していたため(前任)引き継いだ途端にテンパってます。
前任は音信不通…
泣きそうです

データ量とデータのある範囲とまっちさせる範囲と優先順位

A列だとするとこんな感じか？

for i = 1 to シート1のデータ量マッチしてるならfor n=0tocells(i,1)のマッチ件数-1
シート3セル(m,)=マッチデータ
m=m+1
マッチなし
シート3セル(m,)=マッチデータ
next
next
シート3をシート1に張り付け

>>121
CopyPictureではイメージの取得ができなかったのですが他に手はありますか？

>>124
SendKeysイベントでprintscreenキー操作すれば？

APIを利用して領域選択した後に加工したシートに張り付けかなあ
場合によってはスクロールして合成

シートの上webbrowserと他のオブジェクトがあるだけでそ
なんで印刷出来ないのかね
手動印刷でも反映されないの？

mac板で質問したのですが、レスがつかないのでこちらに
おじゃまします。

Excel2004で作成したプロシージャで、

ActiveWorkbook.SaveAs Filename:="（ファイル名）", _
FileFormat:=xlHtml, PublishOption:=xlSheet

として複数枚あるシートのうちの一枚だけwebページ保存して
いるんですが、2011で走らせるとブック丸ごと保存してしまいます。

仕様変更があったのかと思い、マクロの記録をしてみましたが、
正に上記のコードが出力されます。ちなみに、手動で保存をすると
シート一枚をhtml出力させることができます。

参考書（2002用）を見てPublishObjects.Addなんかも試してみたんですが
意味がよくわからないうえに、うまく動きません。


誰か、たすけて。

>>127
Win　2010でマクロを記録してみた

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"C:\Users\User\Documents\Book1.htm", "Sheet1", "", xlHtmlStatic, "Book1_26441" _
, "")
.Publish (True)
.AutoRepublish = False
End With

これでどう？

versionは2007の間違いね

>>128

ありがとうございまーーーーす！！
winではPublishObjects.Addで記録されるのですね。

まだ動いてません（438エラー）が、ものすごくヒントになりました。
もうすこし調べながらがんばってみます。

また、救助を求めるかもしれません。よろしくお願いします。

>>126
単純に、エクセルはブラウザ領域の描画を担当してないからでしょ？

質問させて下さい。
環境はwin XP(SP3),excel 2003です。

サイズが512×512の2次元配列C(a,b)をセ
ルに貼付ける事を考えています。
ただし、Excel 2003では、列数が256なのでこのままで
は不可能なので
a=0 to 511, b=0 to 255をまず512行256列のセルに貼
付けて、
残りのa=0 to 511, b=256 to 511をその下の512行
256列(行番号513~1024)に貼付けようと考えています。

貼付け方は、処理を高速で行える様に
Range(・・・)=C
としたいのですが、貼付け先の並びが上述した様に不規則ですので
良い方法が浮かびません。

上手い方法を教えていただけないでしょうか。
宜しくお願いします。

>132
512×512の配列から512×256のふたつの配列にfor〜nextループ使って分けるしかないのでは？

>>133
ご返信ありがとうございます。

やはりその方法しかないですか。
それでも、配列をfor 〜 nextループで直接書き込むよりは速いですよね。

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

配列に格納するときに、257を越えてたら(+512,-256)にすりゃいいのでわ？
別ブックから持ってくるなら初めから配列２つ用意すりゃいいだけだし

>>132
前半256列はFor〜Nextで回さなくても
Range("A1").Resize(512, 256) = C
と書けば、配列の前半だけを一発でコピーできる。

後半もIndex関数を使えば1列分(512個)の要素が一気にコピーできるのでループは一重でいい。

>>134
' 配列Cの前半0〜255列をコピー
Range("A1").Resize(512, 256) = C

' 後半256〜511列を257行目にコピー
For i = 1 To 256
　　Cells(513, i).Resize(512, 1) = Application.Index(C, 0, i + 256)
Next

excel2003

検索条件を入力させてシート内を検索させたいのですが
単一の条件での処理はうまくできましたが
複数条件の場合どのように記述すればよいのでしょうか？

findの条件にＡＮＤを使ってもだめでした。

説明不足でした。

条件Ａ　条件Ｂを入力してもらい

　ＡかつＢをシート内から検索したいと思ってます。

検索対象と条件はＡはＡ列　ＢはＢ列のように列ごとにわけてあります。

>>138
A列検索してヒットしたら
B列検索してヒットしたらOKとすりゃいいだけ
エスパーするとAとBは同じ行じゃなきゃ駄目なんだろうから
Bの検索は(ヒットしたA列の行,B).valueで取得すりゃいい

>138,139
ここ↓と>140さんの処理を組み合わせればいいと思う。
OfficeTANAKA すべて検索する
http://officetanaka.net/excel/vba/tips/tips123b.htm

Win XP、Excel2003(SP3)ですが、
初歩的な質問をさせてください。

Workbooks.Open Filename:="○○○.xls"
Range("A1").Select
Selection.Copy
Windows("Book1.xls").Activate
Range("B2").Select
ActiveSheet.Paste
End Sub

これの ○○○ の部分に、
Book1のC3の値（文字列）を入力することはできませんか？

c3&".xls"

Dim strBookName As String

strBookName = Workbooks("Book1.xls").ActiveSheet.Range("C3").Value
Workbooks.Open Filename:="C:\pathname\" & strBookName & ".xls"

　
Sub test()
　With Workbooks("Book1.xls").Sheets("Sheet1")
　　　Workbooks.Open .Range("C3") & ".xls"
　　　ActiveWorkbook.Sheets("Sheet1").Range("A1").Copy .Range("B2")
　End With
End Sub

Book1がThisWorkbookと別フォルダーにある場合はPathを指定する
また、シート名は明示するべき
　

仕事でエクセルに数字を入力したら、となりに計算された結果がでてきたから、関数でも入ってるのかとそのセルをみてみても、何も入ってないんだけど、そんなことＶＢＡでできるん？
valueじゃ普通入力されるよね

( ･`ω･´)

すまんｗ
エクセル昨日の保護だったかｗ
普通にわすれてたｗｗｗ

worksheet_chenge()
ターゲットが数字なら計算してターゲットセルの右に出力

>>149
ごめんごめんｗ説明が悪かった

ＶＢＡで計算した結果を反映するのはできるけど、
結果の数字がセル内にみえなかったから、ＶＢＡでやってるのかとおもっただけｗ

全くわからん説明だ
>結果の数字がセル内にみえなかった
>となりに計算された結果がでてきた
なんにしても意味わからん

セルの書式設定⇒保護⇒表示しない
がかかってたんだろ

エクセル機能を理解してればその説明でピンとくる

数式がセル内に見えなかったって書けばよかったんだろ？
結果は見えてるんだから。

>>153
セル内に見えなかったって書いてあるぞ

計算した結果が出るはずのセルが空白であった。
にも関わらずそのセルを参照したセルに計算結果が表示されたって
ことだと無理やり解釈した結果。
計算結果セルのフォントが白だったで一件落着

セル内にはいってなかったって書いてるんだから、数式バーぐらいみてるだろ

ユーザーフォーム上に2つのトグルボタンで
互いに片方が押されたら片方が飛び出るようにしたいのでそれぞれクリックイベントに

（togglebutton1には）
togglebutton1=True
togglebutton2=False

と

（Togglebutton2には）
togglebutton1=False
togglebutton2=True


を書き込んだのですが、思うように動きません。
オプションボタンを使わずに実現したいのですが
どのようにすれば実現できるでしょうか？

Debug.Printして、どのイベントがどんな順番で何回実行され、
その前後でボタンの状態がどうなっているか確認しようか。
そういう話だと思うよ

結果的に実現できるでしょうか？
クリック時とダブルクリック時で動作が違うのですが・・・。

>>157
何がやりたいのかよくわからん
常に逆の状態にしたいだけなら

Private Sub ToggleButton1_Click()
　　ToggleButton2 = Not ToggleButton1
End Sub

Private Sub ToggleButton2_Click()
　　ToggleButton1 = Not ToggleButton2
End Sub

たぶん、条件を後出ししてくると見た

出来るからこれをやって考えてみて。
理由が分かるはず。

Private Sub ToggleButton1_Click()
Debug.Print "ボタン1クリック" & ToggleButton1.Value & ":" & ToggleButton2.Value
ToggleButton1.Value = True
Debug.Print "ボタン1をTrueにした" & ToggleButton1.Value & ":" & ToggleButton2.Value
ToggleButton2.Value = False
Debug.Print "ボタン2をFalseにした" & ToggleButton1.Value & ":" & ToggleButton2.Value
End Sub
Private Sub ToggleButton2_Click()
Debug.Print "ボタン2クリック" & ToggleButton1.Value & ":" & ToggleButton2.Value
ToggleButton1.Value = False
Debug.Print "ボタン1をFalseにした" & ToggleButton1.Value & ":" & ToggleButton2.Value
ToggleButton2.Value = True
Debug.Print "ボタン2をTrueにした" & ToggleButton1.Value & ":" & ToggleButton2.Value
End Sub

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

そのままです。
実験的な意味合いが強いかも。。。

>>161
ありがとうございます。
試して考えて見ます。


分からなかったらまたくるかも・・・ｗ

ワークブックに張りついている画像をすべてファイルに保存しようと思い、
以下のようにしてみたのですが、型が一致しません。といわれてしまいます。
どうすればよいでしょうか。

Sub test()
Dim myPic As Picture
Dim myWS As Worksheet
Dim count As Integer

For Each myWS In Worksheets
myWS.Activate
For Each myPic In myWS.Pictures
SavePicture myPic, "test" & count & ".png"
count = count + 1
Next
Next
End Sub

>>163
シートに直接張り付けてある画像はShapeオブジェクトになってしまうのでPicture関係のメソッドは使えない
画像をまとめて保存するには、ブック全体をHTML形式で保存するぐらいしか方法はないと思う

サブフォルダの中にオリジナルの画像データと、プロパティをいじって見た目を変えた後のデータが
それぞれ保存される

エクセルでシートが複数あります。
閲覧用のシートには項目a,b,c…と並んでいて
データ保存用シートから
変数Xを取得したいのですが

閲覧用のシート
項目　変数
a Xa
b Xb
c Xc

データ保存用シート
項目 a b c
変数Xa Xb Xc

データ保存用シートは4つあり
項目は約1000個あります。
閲覧用シートの項目とデータ保存用シートの項目数は
一致しないこともあります。
閲覧用シートにある項目の変数を取得したいのですが
どうすればよいでしょうか。

もしかして、４つあるシートのそれぞれ１０００データから、閲覧と一致する項目があったら、データを抜き出して、閲覧シートに転写するってこと？
それとも閲覧用シートにある項目の変数を取得したいってこと？

>>165
エスパーまみの私でも無理

>>166
前者です…。
ＶＢＡで一つ一つ検索することは出来るのですが…

一つ一つを繰り返せば？

一つ一つ総当たりで繰り返すんじゃなくWorksheetFunction.CouttIfで1以上かどうかで判定したら？

>>170
countifも総当たりだぞ？
ループの中でcountifなんて昨今のマシンじゃ配列の二重ループにも負けるくらいだ。
どっちもウンコだけど。

おまえらすごいな
質問者のやりたいことがどうにもよくわからん

エスパーじゃなきゃここでは勤まらないんだよ。

で、プログラマはまだか

171だが俺も実はやりたいこと分らんｗ
ただ>>170の考えが間違ってることだけはわかる。

find使うとかmatch使うとかいろいろあるが
簡単なのは3重ループかけて全件数処理
多少は次回かかるが

3重ループですかorz
考えないようにしてましたが…

シートが少ないから2重ループ複数回でも
データを別シートに書き出してからループでも
VBA使わずに数式入れるでも

保存用シートが4つしかないんなら数式でINDEXとMATCHを4つ並べればいいじゃん

>>177
3重ループくらい普通にやれよ
パスワード解析でBFやる時なんて文字数分ループさせんだから

シート四つなら４重ループじゃないのか？ｗ
ここは馬鹿の一つ覚えでdictionaryだな。

>>181
えっ

Dim s1 As Range, f1 As Range
Dim a1 As Range, i As Integer
Worksheets("list").Activate
i = 3
For Each a1 In Range("S3", "S900")
Set s1 = Worksheets("1").Range("A1").CurrentRegion.Rows(1)
Set f1 = s1.Find(what:=Cells(i, 1).Value)
If Not f1 Is Nothing Then
Cells(i, 19).Value = f1.Offset(1, 0).Value
Else
Set s1 = Worksheets("2").Range("A1").CurrentRegion.Rows(1)
Set f1 = s1.Find(what:=Cells(i, 1).Value)
If Not f1 Is Nothing Then
Cells(i, 19).Value = f1.Offset(1, 0).Value
Else
Set s1 = Worksheets("3").Range("A1").CurrentRegion.Rows(1)
Set f1 = s1.Find(what:=Cells(i, 1).Value)
If Not f1 Is Nothing Then
Cells(i, 19).Value = f1.Offset(1, 0).Value
Else
Set s1 = Worksheets("4").Range("A1").CurrentRegion.Rows(1)
Set f1 = s1.Find(what:=Cells(i, 1).Value)
If Not f1 Is Nothing Then
Cells(i, 19).Value = f1.Offset(1, 0).Value
Else
End If
End If
End If
End If
i = i + 1
Next

できた。

インデントつけてみても意味が分らんけど、実質的に５重ループじゃね？
Dim s1 As Range, f1 As Range
Dim a1 As Range, i As Integer
Worksheets("list").Activate
i = 3
For Each a1 In Range("S3", "S900")
　　Set s1 = Worksheets("1").Range("A1").CurrentRegion.Rows(1)
　　Set f1 = s1.Find(what:=Cells(i, 1).Value)
　　If Not f1 Is Nothing Then
　　　　Cells(i, 19).Value = f1.Offset(1, 0).Value
　　Else
　　　　Set s1 = Worksheets("2").Range("A1").CurrentRegion.Rows(1)
　　　　Set f1 = s1.Find(what:=Cells(i, 1).Value)
　　　　If Not f1 Is Nothing Then
　　　　　　Cells(i, 19).Value = f1.Offset(1, 0).Value
　　　　Else
　　　　　　Set s1 = Worksheets("3").Range("A1").CurrentRegion.Rows(1)
　　　　　　Set f1 = s1.Find(what:=Cells(i, 1).Value)
　　　　　　If Not f1 Is Nothing Then
　　　　　　　　Cells(i, 19).Value = f1.Offset(1, 0).Value
　　　　　　Else
　　　　　　　　Set s1 = Worksheets("4").Range("A1").CurrentRegion.Rows(1)
　　　　　　　　Set f1 = s1.Find(what:=Cells(i, 1).Value)
　　　　　　　　If Not f1 Is Nothing Then
　　　　　　　　　　Cells(i, 19).Value = f1.Offset(1, 0).Value
　　　　　　　　Else
　　　　　　　　End If
　　　　　　End If
　　　　End If
　　End If
　　i = i + 1
Next

フラグを使って、見つかったらループ抜けるようにするといいんじゃね

For Eachが意味をなしてねーなｗ
i = 3とi = i + 1は要らないだろ？
Cells(i, 19)のところはa1だし。
Findも初期状態だと部分一致だがいいのか？

糞ソース読みが得意な俺様はやりたいことが分ったよ。
>>186
一応Findで抜けるようになってる。

質問です

特定のブックを開いたときに動作するマクロではなくて、
どのブックを開いたとき（エクセルを立ち上げたとき？）にでも動作するマクロってできるんですか？

>>189
アドインとクラス使えば出来るんじゃね？
Applicationレベルのイベントを捕まえればいいんだし。

workbook.openイベントじゃあなくて？

190だがクラスモジュール(クラス名は仮にClass1)に
Public WithEvents Hage As Application
Private Sub Hage_WorkbookOpen(ByVal Wb As Workbook)
'処理例
MsgBox "禿げ"
End Sub
ThisWorkbookのOpenイベントで
Private X As New Class1
Private Sub Workbook_Open()
Set X.Hage = Application
End Sub
としてアドインとして保存。
後はこのアドインにチェックをつければブックが開くたびに"禿げ"と出る。

だ、だだだだだれがははははは！

>>185はExcel2003以前ならたった898行のデータを、4シートのせいぜい多くても256列1行から探して
その下のデータを記入するだけだからFindでもいいが、多くなると毎回先頭の次から検索するから無駄もいいとこ。
3重ループを考えないようにしてると言ってるのに実質5重ループやってる。

>>189
余計なシートが開いちゃうけどXLSTARTにWorkbook_Openが一番簡単かな

まあ自力でやったんだからいいじゃないか

俺なら作業シートに5シート分の全データをコピーして
検索の数式入れて結果を元のシートに値貼り付けとかやってみるかな
コードは確実に短くなると思うけど、スピードはVBAでループするのとどっちが速いかな

おそらく数式使うほうが早いんじゃないかね

>>195
1回だけなのか？
俺は複数のブックを開いて実行するマクロだと思ったが？

>>197-198
数式使うにしても単純な検索関数じゃ速くならん。
速く計算するならソートは必須。
VBAなら素人の定番dictionaryが簡単かねぇ。

すまん上は>>196-197だった。

>>165
えーと、複数シートから検索するのって
VBAなんか使わなくてもこれだけでいいと思うんだけど…
T3=IFERROR(INDEX('1'!$2:$2,1,MATCH(S3,'1'!$1:$1,0)),"")&IFERROR(INDEX('2'!$2:$2,1,MATCH(S3,'2'!$1:$1,0)),"")&IFERROR(INDEX('3'!$2:$2,1,MATCH(S3,'3'!$1:$1,0)),"")&IFERROR(INDEX('4'!$2:$2,1,MATCH(S3,'4'!$1:$1,0)),"")

そんな糞式VBAスレでさらすな。

誤爆にレス
データが1000個横に並んでるって書いてるから2003以前はありえない

なるほど1000列かよ。1000が898になったと勘違いしてたわ。
だったら2007以降だな。

250個x4シートだと思ってた

もっと褒めてほしい。
250×4が横に並んで
縦に1000という感じ。
エクセル2003です。

>>187
For Eachとiは共存しなくてもできるのか。。
Findの初期状態が部分一致なの始めて知った、けどＯＫ。
本見ながら試行錯誤したんだよね。

>>199
dictionary最初に教えてくれ（；；）

>>196-197
一応書いたのはデータを一個取ってくるだけだけど
最終的には一つの項目に対して
複数のデータを取りたいので
そういう形にはしたくなかったのです。

>>206
自分で考えたんなら褒めてやらんでもないが基本がまったくできてない。
CurrentRegion.Rows(1)とか書けるのに何でだ？
お前ネタで変なコード書いたんじゃないのか？
ネタに混じれ酢かも知らんが、Cells(i,1).Valueすなわちa1.Offset(,-18).Valueを最高4回も取得してるが
何度も使うものは変数に入れて使いまわさないと。
またFor EachもA列のデータ範囲を回すのが普通だと思うが、まぁこれはおいといて
　　If Not f1 Is Nothing Then
　　　　Cells(i, 19).Value = f1.Offset(1, 0).Value
　　Else
すなわち
　　If Not f1 Is Nothing Then
　　　　a1.Value = f1.Offset(1).Value
　　Else
も4回も書く必要ナス。
1回でいい筈だ。
dictionaryに手をつけるにははまだ早いねぇ。

最初は誰だってこんなもんだよ
局所的に必要な処理を順に積み上げていくと冗長なコードになる
全体を見渡して効率のいいコードが書けるようになるには訓練が必要だからね

とりあえず、データを4つのシートに分けた理由が「幅が足りない」だったら
データは縦に並べて1枚にまとめた方がいい、とだけ言っておこう

俺は幅が足りても縦に並べるべきだと思うな。
下へ下へと伸ばしていくのがExcelの流儀だからな。

VBAつかうんだったらわざわざシートに乗せる必要もないしな
テキストなりに格納して必要な所だけ抜き出せばいい

| Ａ | Ｂ | Ｃ |
�C|五月|金額|累計|
�D|六月|\200|\200|
�E|七月|\300|\500|
�F|八月|\400|\900|


Ｃ列にあるような累計を出すプロシージャを作りましたが、うまく機能しません。

どなたか、下記の間違いを指摘していただけませんか？


Sub 累計()

Dim i As Long

i=5

Do While Cells(i,2).Value<>""
Cells(i,3).Value=Cells(i,3).Value+Cells(i,2).Value

i=i+1

Loop

End Sub

>>211
5月のところにまともなデータが入ってないけどそれでいいの？

Sub 累計()
　　Dim i As Long
　　Cells(5, 3).Value = Cells(5, 2).Value
　　i = 6
　　Do While Cells(i, 2).Value <> ""
　　　　Cells(i, 3).Value = Cells(i - 1, 3).Value + Cells(i, 2).Value
　　　　i = i + 1
　　Loop
End Sub

>>212

ありがとうございます。
『五月』ではなく、項目名の『日付』でした

セルズプロパティではなく、アクティブセルプロパティを使って書くのはできたのですが、

こうしてみるとセルズプロパティーだと長くなってしまうんですね

アクティブセルプロパティを使って書くと、

Sub 累計()

Dim total as long

Range("B5").Select

Do While Activecell.Value<>""
total=total+Activecell.Value

Activecell.Offset(0,1).Value=total
Activecell.Offset(1,0).Select

Loop

End Sub


こうなりますが、

>>211のDo Whileのステートメントの下の
Cells(i,3).Value=Cells(i,3).Value+Cells(i,2).Value
なぜ、これは駄目なんでしょうか？

今書いたアクティブセルプロパティでは、
total=total+Activecell.Value
でオーケーなので。


ここが特に理解に苦しみます。

>>214
totalは1つしかないけど
Cells(i, 3)はiの数だけあって常に0だから

ちなみにプログラムを短くしたいならこういう方法もある

Sub 累計()
　　Dim c As Range
　　Cells(5, 3) = Cells(5, 2)
　　For Each c In Range(Cells(6, 2), Cells(Rows.Count, 2).End(xlUp))
　　　　c.Offset(0, 1) = c + c.Offset(-1, 1)
　　Next
End Sub

質問なんですが、シート上にある無作為にあるオブジェクト（オートシェイプや画像など）をすべて抽出する方法ってありますか？

>>216
オブジェクトって色々あるけど、オートシェイプと画像だけなら
For Each s In ActiveSheet.Shapes

Vista
Excel 2007

質問させていただきます。

Dドライブに、2つのファイルiiyo.xlsxおよびkakuyo.xlsmを作りました。
kakuyo.xlsmの標準モジュールには、次のマクロ（kakuyo）を記述しました。

Sub kakuyo()
Workbooks.Open Filename:="D:\iiyo"
Cells(1, 1) = 123
End Sub

また、マクロkakuyoには、Ctrl＋Shift＋vのショートカットを割り当てました。

このとき、マクロダイアログボックスの一覧から選択してマクロkakuyoを実行すると、iiyo.xlsxのA1セルに数値123が書きこまれます。ところが、同じことをショートカットで実行しようとしても、iiyo.xlsmを開くところまではいいのですが、数値123を書き込むことができません。

なぜ、ショートカットでは最後まで実行できないのでしょうか。また、ショートカットで最後まで実行するにはどうすればよいのでしょうか。

>>217
できた！ありがとう！！

>>218
それじゃどこのCells(1,1)か分からないだろ？
どこのブックのどこのシートのCells(1,1)か明示したら？

質問です

セルからすこしはみ出たオートシェイプをきちんとセル内の上に置く方法ってありますか？
ピクセル計算とかして割り出すしかないですか？

>>221
いちいち計算しなくてもこんな感じでできる

Sub 図形をセルにピッタリおさめる()
　　Set cell = Range("B2")
　　With ActiveSheet.Shapes(0)
　　　　.Top = cell.Top
　　　　.Left = cell.Left
　　　　.Width = cell.Width
　　　　.Height = cell.Height
　　End With
End Sub

XP
Excel 2003

シートにあるグラフ内をマウスでクリックしたとき、グラフの左下を原点(0,0)として
左上が(0,1)、右上が(1,1)、右下が(1,0)となるように正規化したクリック位置が得られるような
VBAマクロを作ろうとしていますが、うまく正規化できず困っています。
現状は ThisWorkbook 内で

Private WithEvents evchart As Chart
Private Sub Workbook_Open()
If evchart Is Nothing Then
Set evchart = Worksheets("シート名").ChartObjects("グラフ名").Chart
End If
End Sub

を準備した上で
Private Sub evchart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
の中で、x,y の座標値と Worksheets("シート名").ChartObjects("グラフ名").Chart.PlotArea.InsideLeft などのポイント値を
対応付けようとしていますが、座標値←→ポイント値の換算を考慮しても、グラフサイズを変えたときでも正規化がうまくいくような
記述に持ち込めません・・・

クリックイベントx,yをこう処理すれば冒頭の正規化がなされた値にできる、ということが分かる方が居ましたら教えてくださいm(_ _)m

>グラフの左下を原点(0,0)として

これは「グラフのXY軸が左下で交わる点を原点(0,0)として…」とする方がより正しいですね。

>>220
早速ありがとう。

Sub kakuyo()
Dim iiyo As Workbook
Set iiyo = Workbooks.Open("D:\iiyo")
iiyo.Sheets(1).Cells(1, 1) = 123
End Sub

こうしても同じ（つまりショートカットではファイルを開くところまでしか実行しない）だったよ。

>>218
別のショートカットキーを割り当ててもダメ？
なんか2007のバグっぽい気もするけどキーが他で使われるとか？
どうしてもショートカットキーでやりたいなら別の手段があるけど

>>223
ここはVBAスレなのでVBの話題はスレチ

>>226

他のショートカットも試してみました。
すると、Ctrl＋vのようなShiftなしのショートカットなら最後まで実行し、Ctrl＋Shift＋vのようにShiftを使うと、ファイルを開くところまで終わりました。
Shiftを使わないショートカットでは、すでに多くの機能が割り当てられているため、隣のキーを押したりして操作ミスの可能性も高まります。できればShiftを使いたいので、別の手段をご教示ください。

>>222
おお　スペシャルサンクス

>>227
VBAの話ですよ・・・

>>227
おまえの存在がスレチｍ9

この動画みたいに上半分固定して下を自動でスクロールするにはどうすればいいのでしょうか
http://www.youtube.com/watch?v=EEOYOjzXRM8&feature=related

ウインドウ枠の固定をマクロ記録してみたら

できました
ありがとうございます
この機能を知りませんでした・・・

>>228
もしかして、Shiftを押しながらブックを開くとマクロが無効になる機能が誤作動してんのかな？
だとしたらShiftを押さない方法を考えた方がいいかも

excel2007
月日を2桁で表示させたくてコード書いたら何故か

MsgBox CStr(Year(Now()) & "-" & Format(Month(Now()), "mm") & "-" & Format(Day(Now()), "dd"))

2010-01-11
と表示されてしまってるんですけど、どうして？？？？？

システム日付は当たり前のことながら 2010-12-12になってるんですけど
Cstrで文字列に変換しているのはこの後の処理で文字列として使うのがあるからなんですけど

MsgBox CStr(Format(Now(), "yyyy") & "-" & Format(Now(), "mm") & "-" & Format(Now(), "dd"))

余計なことしすぎみたいな？ w
ありがとう

>>236
すでに回答が出てるが、Format(Month(Now()), "mm")の部分はシリアル値12、すなわち1900/1/11の月を
求めているから当然01となる。
Format(Day(Now()), "dd")も1900/1/11の日だから11.。

そもそもなんでそんな面倒なことするの？
下で都合が悪いのか？
MsgBox Format(Now, "yyyy-mm-dd")

Cstrが入ってるから
MsgBox Format$(Now, "yyyy-mm-dd")
だったわ

>>239

いや、それで全く問題無いです^^;

>>235
おっしゃるとおり「Shiftを押しながらブックを開くとマクロが無効になる機能」が関係していそうですね。
この機能のことは知りませんでした。ありがとうございます。

無効になるなら、最初から動かないんでないかい？

わるかった。バグとしてはあり得る。

新しく開くブックをマクロ無効で開くってことだろ

検証すんのが面倒だからアイデアだけ
マクロの先頭で数秒間スリープして、その間にキーを離せば
誤作動かどうか確認できるんじゃない？

マクロを有効にして開くオプション付けてもシフト有線されんのかね

>>228
shiftをどうしても使いたいんだよな？
winショートカットキーでマクロファイル指定すりゃいい

for each x in range("a1:a5")
next
msgbox x is nothing
ってするとエラーになります。
なんで？
ループが終わればnothingになると思いましたが...

True

>>249
Option Explicitくらい書けよ。
変数宣言してないに1兆円だな。
Variant型だったらループを回りきればEmptyだからx Is Nothingじゃエラーになるわな。
オブジェクト型ならエラーにはならん筈だ。
もちろんこの場合はRange型な。

>>251
すいません、そのとおりでした。

アドバイス願います。

ｘｌ２０１０でシートにファイルから写真を挿入

（○）手動でサイズ変更　＞　ブック保存
　　　保存したブックを開く＞　原形サイズは（１）の時点と同じ
　　　これは意図したとおりでＯＫ．

（×）上記（１）に対象にして以下を実行後、ブック保存

　　Selection.ShapeRange.ScaleHeight 0.5, msoTrue

　　　再度開くと、（１）の時点の原形サイズが
　　　保存時の５０％縮小のサイズになっている
　　　当然ながら図の書式ダイアログのサイズの拡大縮小ボックスも
　　　１００％になっている
　
ＶＢＡでやるとなぜ原形サイズを保持できないか
理由がわかる方、ヒントでもいいのでアドバイス願います。
　

選択した画像を50%にするコードに読める。
よってそのコード通りの処理がされているだけなのでVBAは何も悪くない。

質問です。
二次元配列を縦横入れ替えるとき、WorksheetFunction.Transposeと自前ではどちらが速いですか？

>>255
自分で計ってみれば分るだろ？
もっともまともに公平に比較計測できる人少ないけどな。

>>256
そのとおりですね。
自分では何度やっても自前が速いけど、人によってはTransposeが速いという人もいるので環境によって違うのかとおもって。

>>257
俺はTransposeは遅いが常識だと思ってたがそんな人いるのか？
そもそも速い遅い以前にi色々問題があって使いたくないけどな。

ちなみに今10*40000のString型配列(6〜9文字のランダムなアルファベット)でやってみたが、5回平均で
自前：　595ミリ秒
Transpose：:　992ミリ秒
だったぜ。4割自前が速いな。
変換後は自前はString型、Transposeは仕様によりVariant型だ。
セルへの書き出しは時間に入れてない。

環境は
Excel2007
メモリ:4GB
CPU: Core2Duo E8500
OS:Vista 32ビット

そんなに急いでどこへ行きたいんだ？

そう、速さより確実性だ。
速さも確実性も備わってりゃ言うこと無し。
その点WorksheetFunction.Transposeは不合格ってこったな。
Excl2003なら使えなくもないかな？
昔の2000とかでは配列ではしょぼすぎて使えない。

差が1秒イカならコードがすっきりする方を選ぶでゲソ

>>261
同意。それが結局トータルでは速くなったりするわな。

自前の変換の関数くらい誰でも持ってるんじゃね？
WorksheetFunction.Transpose使うやつは俺が知ってる限り下手くそばっか。
WorksheetFunction.Transposeってより何故かApplication.Transposeだが。

セルをクリックしたらオートフィルターかかようにしたら、
かかったり、解除されたりしてデバッグになる＞＜

一応、フィルターモードを確認してるんだけど、なんで解除されたりするんだ・・・

WorksheetFunction.Transposeねぇ。
これってどっちかの次元が65536超えたらアウトだろ？
俺もまず使わない。
エラーにはまずならない2003の頃でも使わなかった。
理由はVariant型で遅いから。

>>264
フィルターモードの確認なんて必要ないだろ？
With Range("A1").CurrentRegion
.AutoFilter Field:=1, Criteria1:="***"
End With
なんて書けば絶対にフィルターモードにならないか？

>>266
まじか・・・
それかいてるんだけど、はずれたりするんだよね。
そのまえの
heets("Sheet1").Rows("1:1").AutoFilter
が余計かな

>>267
そんなもの書いちゃいかんよ。
例えばこんなのは無意味だ。
With Range("A1").CurrentRegion
　　If Not .Worksheet.FilterMode Then
　　　　.AutoFilter
　　　　.AutoFilter Field:=1, Criteria1:="a"
　　　　'処理
　　　　.AutoFilter
　　End If
End With

最初からこう書けば良い。
With Range("A1").CurrentRegion
　　　.AutoFilter Field:=1, Criteria1:="a"
　　　'処理
　　　.AutoFilter
End With

間違った。こんなのが無意味ってことね。
With Range("A1").CurrentRegion
　　If Not .Worksheet.FilterMode Then　’無意味
　　　　.AutoFilter '無意味
　　End If '無意味
　　.AutoFilter Field:=1, Criteria1:="a"
　　'処理
　　.AutoFilter
End With

>>268-269
あれ？そうなの？
普通使わない？
たとえば
http://www.mrexcel.com/forum/showthread.php?t=24500

>>270
If Not .Parent.FilterMode Then .AutoFilterの部分か？
If .Parent.FilterMode Then .AutoFilterでも最終的な動作は同じだろ？
無駄だと思うなぁ。
しかし.Parentかよ。

OS：XP
Excel：2003

超初心者ですが質問させてください。
現在、YahooID自動取得プログラムなるものを作ってます。
(三流氏のソースを引用してます)

IEを使ったものだとうまくいったのですが、
Firefoxだとうまくいきません…。

自動入力の対象がFirefoxの場合は、このようなことは無理なのでしょうか？
できるとしたら、どのようにやればよろしいのでしょうか…orz

実際のファイルを貼っておきます。
http://www.dotup.org/uploda/www.dotup.org1298680.zip.html

動かし方は、IEでヤフーのID取得画面を表示させた状態で
原紙シートのF1をダブルクリックするだけです。

プログラム上のFor文の中でIEを探して、objIEに起動中のIEをセットしてるので、
For文をなくして、起動中のFirefoxのウインドウを入れてみても、うまくいきませんでしたorz

具体的には、For文の処理をコメントアウトして、下記を追加しました。

Set objIE = objShell.Windows(0)

わかるかたがいらっしゃいましたら、ご教授の程、宜しくお願い致します。

いろんな意見どうもです。
Transposeが速いって方、ここではいませんね。
あそこで聞いてみるかなぁ。

>>258
それって縦横変換部分だけの時間ですか？
例えば
t = timer
v = worsheetfunction.transpose(配列)
debug.Print timer - t
みたいな。

>>275
そうか、俺は毎回10*40000のランダムな文字列作ってたわ。
Rnd(-1)としてるから毎回同じだけどな。
上の計測はその作成部分も入ってる。
縦横変換された配列作る処理だけ計ったら109ミリ秒と178ミリ秒だった。

サイズ間違えたわ。
10*40000なら399ミリ秒と644ミリ秒な。

>>276-277
了解です。
うちとはCPUとOSが違いますが、だいたい似たような傾向です。

質問なんですが、 Worksheet Change イベントで、
Application.ScreenUpdating = False
をつかうと、画面が固まるの仕様？

ちなみにエクセル2000と2003です

>>274
ソース見てないけど
FFのプロセスIDやウィンドウ名を取得すればできる
残念ながらWScript.Shellなのでスレ違いなんだぜ
上のヒントを参考に頑張れ
意外と直ぐに出来ると思う

質問！！
だれかしってたらおしえて！！

シートの保護つかわないで、オートシェイプをうごかせないようにする方法ない？？

>>281
オートシェイプの固定はシートの保護を使わないと無理
データを入力できるようにしたいんなら、逆にそのセルのロックを解除しとけば保護されなくなる

>>279
仕様も何も、自分で固まらせてんじゃん

Excel2007です。

ワークシート上に直接、
・フォームコントロールのコンボボックス
・ActiveXコントロールのコンボボックス
がそれぞれ一つずつ、計二つ配置されているとします。

これらに設定されているテキストを取得したいのですが、
後者は、
MsgBox ActiveSheet.ComboBox1.Text
で取得できます。

では、前者の方は取得できますでしょうか。
フォームコントロールをActiveXコントロールに変更できない
事情がありまして、
フォームコントロールのコンボボックスの値をどうしても取得したいのです。
よろしくお願いします。

>>283
ｋｗｓｋ

データをシートにロードする場合に、その過程がユーザーに見えちゃったらカッコ悪いでしょ
見た目的に
そのために画面描画を停止させる事が出来るんだよ
falseにしたら何が起きようとも必ずtrueに戻してね

>>284
つ記録マクロ

>>280
アドバイスありがとうございます。
単語の意味すら全くわからんけど、なんとか頑張ってみますｗ

Excel2007

ワークシートに貼りつけたボタンでシートのクリアをしているんですけど（見出し部分は除く）、
ワークシートを移った時に自動的にしようと思い、以下のコードをワークシートモジュールに書いたんですけど、
RangeクラスのSelectメソッドがしっぱいしました
って実行時エラーになってしまいます。


Private Sub Worksheet_Deactivate()
Dim tate As Long

Cells(1, 2).Clear
Range("a10000").End(xlUp).Offset(1).Select ←ここでエラー
tate = Selection.Row
If tate >= 3 Then
Range(Cells(3, 1), Cells(tate, 7)).Clear
End If

End Sub

どうすればいいですかね

>>289
シートをDeactivateしたらそのシートのセルはセレクト出来ないのは当然。
アクティブになったシートなら
Activesheet.Range("a10000").End(xlUp).Offset(1).Select
としないと動かん。
その前のCells(1, 2).Clearもお前の考えてるシートのセルじゃないと思う。

はじめまして、質問です。

EXCEL2003で、次のようなマクロをシート上のコマンドボタンに登録して使っておりました。
「通常使用するプリンター」以外で毎回そのシートを印刷したかったときです。

Application.ActivePrinter = "EPSON PM-3300C ESC/P R on Ne08:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="EPSON PM-3300C ESC/P R on Ne07:", Collate:=True

このたび会社のPCが変わりまして、EXCEL2010になったのですが、このマクロがエラーになります。
ESC/P R on Ne08　の、08を01〜09に変えて試しましたが、変わりませんでした。

ためしに、マクロの記録で同じ動作を記録してみましたが、「何もなかったこと」にされています。
EXCEL2010では　activeprinter 自体が認識されないのでしょうか？？？

すみません、わかりました。
activeprinter の問題ではなく、ただ単にプリンターの指定が間違っていました。

お邪魔しました。

>>290
>シートをDeactivateしたらそのシートのセルはセレクト出来ないのは当然。

あっ確かに w

けどそうすると、ワークシートが変わったときにって判断は無理？

>>289

Private Sub Worksheet_Deactivate()
　Dim tate As Long
　Cells(1, 2).Clear
　tate = Cells(Rows.Count, "A").End(xlUp).Row
　If tate >= 3 Then Range(Cells(3, 1), Cells(tate, 7)).Clear
End Sub

Rangeオブジェクトにはシート名を付加した方がいいが、
今回の場合は、あえて付加しなくても可。
また、Selectは必要最小限にした方がベター。
　

>>294
添削ありがと！

勉強しなおしてきます！

テキストボックスで半角ｶﾅを強制したいと思い、プロパティで[fmIMEModeKatakanaHalf]を指定しました。
マクロは動いたのですが、その後ワークシートに戻ってキーボードで日本語入力をONすると半角ｶﾅになってしまいます。
いちいち入力モードを変更したくないのですが、マクロ内でIMEモードをリセットする方法はありませんか？
リセットと言うか、次回日本語入力にしたときに全角ひらがなモードにならないでしょうか？

テキストからフォーカスが外れた時にIME変更汁

>>297
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.IMEMode = fmIMEModeHiragana
End Sub

↑付けたら希望通りになりました。ありがとうございました。
これで正解でしょうか？（とりあえず動けばOKの精神なので細かい事は分かりません）
他にいい記述があったら教えて下さい。

その節はありがとうございました。
その後、教えてもらったコードも438エラーを
解決できず、これはバグに違いないだろうとMSのサポートに
TELしたのですが、VBAのサポートは内容により有償になると
言われました。（3万8千だって）
不具合報告があるかどうか確認したかっただけなのに…
びびって有償サポートにはTELできませんでした。

仕方がなく、一旦別のブックにコピーしてからWeb用に保存する
なんともスマートじゃない方法で凌いでいます。

MSって…

このスレに質問するレベルで「MSのバグ」というのは100年早いレベル

>>299
Excel2011、試してみた

最初に言っておくとMacは初心者なのでミスはあるかもしれない

しかし、マクロの記録時にはシートのみで保存が出来たにもかかわらず
同じマクロを(先に保存されたHTMLファイルはリネーム済み)走らすと
確かにBookでしか保存されない

PublishOptionが正しく反映していない気がする

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target = Range("C3:T20") Then
If Target.Value = "" Then
Target.Value = "壁"
Else
Target.Value = ""
End If
End If
End Sub

C3:T20のいずれかをダブルクリックしたときの動作のことなのですが
C3:T20ではエラーがでてしまうのでC3,C4･･･T19,T20と一つ一つ書かないとダメなのでしょうか

>>302

Intersectを使って

If Not Intersect(Target, Range("C3:T20")) Is Nothing Then
　

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

すみません":="の意味を教えていただけないでしょうか。
通常の"="と違いがあるのでしょうか。
ググっても全く出て来ず、発狂しそうです。
よろしくおねがいします。

If MsgBox("ほげ", vbYesNo) = vbYes Then

If MsgBox(prompt:="ほげ", Buttons:=vbYesNo) = vbYes Then

>305
「+VBA 名前付き引数」でぐぐる。

ありがとうございます。
キーワード引数を使う場合は:=を使わなければならない、という仕様ということですか。
ほんとVBAは意味不明な仕様だらけで心底爆発して欲しいです…orz

自分がそれに慣れていないだけの話やんけ、ヴォケ

名前付き引数というか名前付きパラメータ自体は、
他の言語でも一寸したトリックっぽい書き方で使われてたりするから、
VBAが特別という程の話でもない。

普通は=だと思うんですけどねえ…。Pythonとか。
引数の与え方で()省略があるとか、オブジェクトの代入はsetだとか、無駄に冗長な仕様が多くて嫌いです。

Pythonの代入演算子=は値を返さないからな。
VBAだと比較演算子になるし、他言語でも値を返すことが多いから、
明確に意味合いを変えられるPythonの方が珍しいかと。
()省略強制とかSetとか鬱陶しいのは同意。

迷路探査AIで詰んだ

>>301
重ね各々ありがとうございます。
やっぱり僕だけじゃなく、不具合なんですよね。

MSに知らせた方がいいと思うんですが、思い切って
有償窓口にTELしちゃってもいいですかね？

>>300
重々承知していますが、win95以降くらいからMSが
ダイッ嫌いなんです。
できればOfficeもOpen Officeに切り替えたいんですが…

あとは、察して下さい。

sortに失敗したとエラーで止まって、再開するとVBAが無限ループにおちいることがあるな

下記のソースコードに、
16進数の文字列"8FFFFFFF"を負のバイナリ値(-1879048193)に変換するアルゴリズム書ける人いますか？
16進数の文字列"7FFFFFFF"を正のバイナリ値(2147483647)に変換する処理はできたんですが…

Public Const DATALEN_MAX As Long = (8)

Sub Macro1()

Dim sInput As String
Dim bCode() As Byte
Dim lResult As Variant
Dim lDigit As Variant
Dim iLen As Integer
Dim i As Integer

On Error GoTo Error

sInput = "8FFFFFFF" '変換後期待値=(-1879048193)
'sInput = "7FFFFFFF" '変換後期待値=(2147483647)

'最大で8桁(4byte)の入力まで受け付ける

iLen = Len(sInput)
ReDim bCode(iLen - 1) As Byte

'文字列を1桁ごとにバイナリ変換してByte配列に格納する
'例. "ABCD"なら、bCode[0x0A][0x0B][0x0C][0x0D]
i = 0
Do While i < iLen
'16進数以外の文字が入力されるとここでエラーとなる
bCode(i) = "&H" & Mid(sInput, i + 1, 1)
i = i + 1
Loop

'各バイトの値を桁数に対応した数値に変換して、
'変換後の各桁の値を加算した結果が求めるバイナリ値
'D + (C * 16) + (B * 16の2乗) + (C * 16の3乗)
i = 0
lDigit = 1
If bCode(0) < 8 Then
'正の値
Do While (i < iLen) And (i < DATALEN_MAX)
lResult = lResult + (bCode(iLen - i - 1) * lDigit)
lDigit = lDigit * 16
i = i + 1
Loop
Else
'負の値
'★ここにどんな処理を実装すれば
'★負のバイナリ値を算出できるのかわかりません

End If

Debug.Print lResult

Exit Sub

Error:
Debug.Print "abnormal input"


End Sub

Val("&H" & Hex)

>>319
できました！
自分で関数作った私がバカでした…。

-1してビット反転で絶対値を取って符号を付けて完了、
ってのを自前でやれって宿題か？

ＶＢＡでバイナリ処理とかしたことないけど、でも出来るんだよな
ＥＸＣＥＬメモリエディタ作れたら読み出しが楽かも

>>321
はい。でも>>319のやり方でできたので、作る必要なくなりました

えー
宿題ならむしろ>>319つかっちゃだめだろｗ

あ、いや宿題ぢゃなくて、ツール作りたいだけ

>>314
前は、 MSDN インシデントを使って、いくつか報告した事あるけど、
十中八九、報告しなくても修正されると思いますよ
(報告したところで、致命的でなければ他の修正とまとめてリリースでしょうし)


Macは詳しくないけれど、2008でVBAマクロ機能が除去されて
2011で復活したばかりのようなので、他にも色々ありそうな気はします＾＾；

ＩＳ演算子の振る舞いについて。

セルＡ２をアクティブにしたらという処理で
通常はこんなことはしないが、試に、
ＩＳ演算子を使ってみたところ、Ａ２クリックで反応なし

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target Is Range("A2") Then
　　　　MsgBox "A2"
　　End If
End Sub

で、以下を試したところ

Sub Test()
　　Dim A As Range, B As Range, C As Range
　　Set A = Range("A2")
　　Set B = Range("A2")
　　Set C = A
　　MsgBox "ＡisＢ= " & (A Is B) & vbLf _
　　　　　& "ＡisＣ= " & (A Is C)
End Sub

結果は　ＡisＢ＝False、ＡisＣ＝True

なぜこうなるか理由がわからん、情報求む！

on error でエラーを無視＆エラーログをとる方法ってありますか？

マクロを有効選択で開き、途中ボタンクリックで無効にする方法ってありますでしょうか？

>>328
ある
resumeしてlog吐いて終了

>>329
ある
途中が何の途中なのか分からんがExcel中でもマクロ実行中でも出来る

>>327
この辺が参考になると思う

ttp://www.excellenceweb.net/vba/object/range.html

>>326
>他にも色々ありそうな気はします


不安です…

2008。買ったんですけど、買った後にVBA非搭載を知り
返品しました。
ソフトを返品するって、初めてでした。道義的にありえない
行為ですから。
でも、販売店には悪い事したけど返品しました。
VBAが使えないなら、OpenOfficeで充分ですからね。

ハイブリッド車がほしくてプリウスを買ったら、
実はただのガソリン車だったとしたら…
と例えたら、販売店は納得してくれました。

16進文字列⇒バイナリ値変換の話、

0x80000000を負の値として扱う場合は>>319が適当だが、
これをUnsignedの正の値に変換したい場合は>>319じゃ無理な気がしてきた。

0x80000000をUnsignedのバイナリ値に変換したい場合、
>>316のような自作関数を使うしかないんじゃないの。これ。

>>333
不安にさせたのは申し訳ない

意外にすぐパッチ当たる気も、同時にしてしますけどね

これに限らず最新版は必ずしも安定しているわけでないので
古いバージョンをあえて使うのも一つの見識かとは思いますよ

>>330
resumeしてもログはけるの？

>>332

情報感謝！

提示のサイトに書いてあるように
別オブジェクトと考えればそのような結果にはなるが、
なぜ、Range("A1")とRange("A1")を別オブジェクトと
見なさないといけないのか（見なしているのか）は、ん？状態。
Sheet、WorkbookはTRUEということを考えると
Rangeオブジェクトは特異な存在ということに。。
そんなもんだと思えばそれでいいが、ちょとすっきりしないので
ここは閉めて、別なところでも質問投げてみたいと思ふ。

何れにしろ、迅速な情報感謝。ありがとう。

教えてください。
以下のコードでファイルをオープンしてwb変数にいれた後、
ForEachで現在開いているブック全部見てtmpWbに入れますが、
直前にオープンしたはずのwbが取得できません。
取得するにはどうすればいいでしょうか？
CreateObjectを使ってるからいけないのでしょうか？
都合があって参照したブックを裏で開きたいのです。
普通に開くとブックが見えてしまう。
開いた後にWindows.visibleをFlaseに設定しても
開いてるところが一瞬チラッと見えてそして隠れてしまいます。

Dim objXls As Object
Dim wb As Workbook
Dim tmpWb As Workbook

Set objXls = CreateObject("Excel.Application")
Set wb = objXls.Workbooks.Open(ファイル名)
For Each tmpWb In Workbooks
・・・・・
Next

>>338
どこからつっこめばいいのか

>>339
じゃあ俺は前からでいい？

>>340
じゃあ後ろ二つもらうわ

じゃあボクは上から失礼・・・

>>338
質問の焦点がバラけ過ぎで何を知りたいのかわかりませぬ。

>>338
CreateObjectしたExcelで
オープンしたブックのコレクションは

For Each tmpWb In objXls.Workbooks
・・・・・
Next

で取得かな
てか
直前にオープンしたブックは 変数 wb を使えばいいんじゃないの

>>344
どうもありがとうございます。
実は、とある処ｇ理でchangeイベントが発生する度に参照したいブックがあり、
そこそこ大きいファイルなので毎回open→closeは無駄。
しかも見せたくないので普通にopenしたくない。
なので参照元ブックopen時に１回だけopenして、後はchangeプロシージャー
内でそのオブジェクトを取ろうと思ったのですが、
For Each tmpWb In Workbooks
では取れなかったので質問させて頂きました。
今回は回答して頂きましてありがとうございました。
大変助かりました！

>>336
だれか教えてくださいこれ・・・

>>334
vbaって整数型は符号付きだからね
何したいのか、分からんけど、vba以外を使えばって感じかな

例
Dim a As Long
On Error Resume Next
a = 1 / 0
If Err.Number <> 0 Then
MsgBox Err.Description
End If

>>337
Rangeというのは、ひとつあるいは複数のセルを示した『矢印』と
考えれば納得いくかも？

実際、特異だとは思う

WorkSheetの中にはWorkSheetは無いけれど、Rangeなら

For Each rngEach In rngData

とか書けるし、『Rangeの中のRangeの中のRangeの中の・・・』と
無数に入れ子に出来る（RangeオブジェクトのRangeプロパティはRangeを返す)

>>348
はげしく感謝

a=a+1を乗り越えたやつなら理解できるだろ。

最近はBASICも知らず
いきなりVBAってやつも多い

いや普通は知らんだろ
BASICが必須科目だったのってせいぜい第一次マイコンブームの頃の話だし
数年後にはC言語が主流になってたし

VisualBasicは、元々
Microsoftが開発したものではなく
他社から買収したものである
豆知識な

>>336
errorがあったかなかったかを判定できれば何でもいいけど

>>355
エラーの有無はErrオブジェクトで判定できる
例
If Err.Number Then MsgBox("エラー発生")

discription

教えてください。
ブックオープン時にファイルを以下のように開いて、
このWorkbook_Open内で開いたブックオブジェクトを
getObjectTestサブルーチンで取得するにはどうしたら
良いか教えてください。
よろしくお願いします。

Sub Workbook_Open()

Dim xls As Object
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open(ファイル名)

End Sub

Sub getObjectTest()

End Sub

>>359

いくつかあるが、xlsをPublic変数で宣言して

＝＝＝＝標準モジュール

Public xls As Object　　' (or Excel.Application
Public xlsBook As Object　'（or Excel.Workbook

Sub getObjectTest()
　　MsgBox xlsBook.Name
End Sub

＝＝＝ThisWorkbookモジュール

Sub Workbook_Open()
　　Set xls = CreateObject("Excel.Application")
　　Set xlsBook = xls.Workbooks.Open("C:\AAA\Test.xls")
End Sub

　
　

>>360
どうもありがとうございます。
素人で申し訳ないですが、Workbook_OpenでxlsBookに
ワークブックオブジェクトをセットしてWorkbook_Open
が終わっても、xlsBookにセットされた値は有効なんですか？
static以外の変数はサブルーチンが終わったら開放される
と聞いたことがあるので。

>>361

>static以外の変数はサブルーチンが終わったら開放される

360のコードを実行すればわかると思うが、、
実行してないにゃぁ。。

Publicを調べてみること。
　

>>362
重ね重ねすみません。
実行できる環境が学校にしかないので。
Publicについて調べてみます。
ありがとうございました！

>>363
http://home.att.ne.jp/zeta/gen/excel/c04p10.htm

ＶＢＡは遅いから、パブリック宣言はできるだけ少なくした方がいいよ
２０個とか宣言したら、激重い

そうか？
20個くらいなら普通に使ってるが。
まぁ、間違い無くスコープを意識した方が良いとは思うけどね。

敢えてPublicを使うと言う明確な意思があるなら、使って構わないかと。
良く分からないからPublicってのはダメだね。

こんにちは、教えて下さい。

例えば
３０秒毎に、セル（Ａ１からＡ３）のデータを抽出し、Ｂ１からＢ３に
順に表示することはＶＢＡで可能でしょうか？
できるのであればそのプログラムをご教授いただければ嬉しいです。
宜しくお願いします。

>>367
できます
sleepとRangeでぐぐりましょう
1分も有れば完成しますよ

Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Sub test()
For r = 1 To 3
Sleep 30000
Cells(r, 2) = Cells(r, 1)
Next
End Sub

>>367です。
早速のレスありがとうございます。

私の言葉足らずで申し訳なかったのですが、
>>369さんのだと
・sleepを使うと他の作業もsleepしてしまうので止まらないようにする
・３０秒毎に全部同時に抽出＆表示
することができないかな？ということです。

お分かりになる方いましたらよろしくお願いします。

３０秒ならWaitのほうがDoEvent

>>370
「だいたい」30秒でいいならsleep 30000でもいいけど、
きっちり30秒間隔でやりたいなら、時刻を覚えておいて30秒を足していくとかしないと

Public n　　' 基準時刻

Sub timer_start()
　　n = Now
　　main
End Sub

Sub main()
　　Dim a()
　　a = Range("A1:A3")
　　Range("B1:B3") = a
　　n = n + TimeValue("00:00:30")
　　Application.OnTime n, "main"
End Sub

郵便局で買取してくれないのっておかしいと思う

>>365
初めて聞いた、理由は？
20で遅くなるってありえないでしょ。
定数は全部Const.batに放り込んでそれだけで100個とか普通だし。

365のPCが激糞なだけでは？

それか他の原因で重くなっているのをそれにこじつけているだけとか

>>372
レスありがとうございます。
こんなに短いプログラムでできるなんて！
早速試してみます(*^_^*)

こんばんは。教えてくだい。

G列のハイパーリンクが張ってあるセル(例えばG30)をクリックすると
I列の同じ行のセル(I30)に今日の日付が挿入される物を作りたいです。

このようなことか可能ですか？宜しくお願いします。

一行でできるだろ？
小学生じゃないんだから、宿題の主旨を示せ。

小学生ならあやまる。

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Cells(30, 9) = Date
End Sub

とか

>>379
挿入だから
Cells(30, 9) = Cells(30,9).Value & Date
じゃね？

裏技で、アクセス解析からデータ引っ張るとか。

>>377

Ｇ列でハイパーリンクの設定してあるセルは、ひとつ（Ｇ３０）だけか
リンク先は、Ｉ３０か、違うのか
これだけでもコードが違ってくる。（ちょこっとだが）

質問者のレベルであれば
>>378の言うように、実際のものを俎上に！
　

>>379
こういうことですか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'選択セルが一つ、G列を選択、ハイパーリンクが張られている場合
If Target.Count = 1 _
And Target.Column = 7 _
And Target.Hyperlinks.Count > 0 Then
'同じ行のI列に日付を挿入
Me.Cells(Target.Row, 9) = Date
End If

End Sub

>>377
ブックマークの管理か？
リンク先がURLで縦一列に並んでるなら

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
　　Selection.Offset(0, 2) = Date
End Sub

リンク先がワークシートのセルだとちょっと面倒
俺には無理だ

>>384

引数Targetを使えば、
リンク先（URL,Folder,Cellなど）は考慮に及ばず、だと思うが。。

Ｇ列ハイパークリックで、同行Ｉ列に今日を入れる場合

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
　　If Target.Range.Column = 7 Then
　　　　Target.Range.Offset(0, 2).Value = Date
　　End If
End Sub


リンク先が"Cell"の場合だけ処理したいなら、
それを判定するコードを追加するだけ。

リンク先が"Cell"で、Ｉ列に限らず
そのリンク先に今日を入れる場合も似たようなもの。。

ところで、質問者はどこ行ったんだぁ。
　

>>385
質問者はハイパーリンクで飛ばされた

グリードアイランドみたいなもんか

配列の代入について教えてください。（XPSP3、Excel2002）
Array関数で複数値を格納したDataについて、条件があったDataだけ2次配列Mtrxに代入しています。
真ん中あたりのある For Each 〜 Next を使わないで他にいいやり方はないでしょうか？
Cntは最大20ほどになります。

Cnt = 0
For i = 0 to 10000
(中略)
Data = Array(a,b,c,d,e,f,g,h)
（中略）
cond = True
（中略）
If cond = True then
k = 0
For Each Item In Data
Mtrx(k, Cnt) = Item
k = k + 1
Next
Cnt = Cnt + 1
Next i

（中略）

For m = 0 To Cnt
For k = 0 To 7
Cells(Rec, k).Value = Mtrx(k, m)
Next k
Rec=Rec + 1
Next m

Mtrxを２次元配列じゃなくて配列の配列にすればいいんじゃね

>>388
もしかして探してるのはUboundか？

配列変数じゃなくてワークシートにどんどん入れてくとか
それなら一気に代入できるし

>>388
なんだかよくわからんがこういうことか？
ジャグ配列に入れる方法もあるけどそっちが速そうだが。

Dim Count as long
Dim i as long
Dim ArraySize as long
For i = 0 to 10000
　(中略)
　Data = Array(a,b,c,d,e,f,g,h)
　ArraySize = Ubound(Data) - Lbound(Data) + 1
　(中略）
　If Condition then
　　Count = Count + 1
Cells(Count, 1).resize(1, ArraySize).value = Data
　End If
Next i

やりたいことは
(1) シートAの1行20データから8データを抽出、Dataに格納　←Array関数
(2) シートBにDataを転載する　　　　　　　　　　　　　　　　　　　←これが抜けていました
(3) (1)-(2)を最大10000行分繰り返す
(4) 条件にあったDataは一旦2次配列に格納、(1)-(3)処理後シートBの続きに転載


今後Dataを分ける条件が増えた場合の転載行の管理が面倒と考え、
配列を使えばと思いました。
Array化したDataを2次配列に代入するところでうまくいかず、
For Each〜Next でゴリゴリやっていますが、他にいい方法があればと
質問しました。

>>392
データに差し支えなければサンプルUPしてみてよ。

エスパーってみる。こういうことがしたいんじゃないかと。

Dim Data(2)
Data(0) = Array(1, 11, 111)
Data(1) = Array(2, 22, 222)
Data(2) = Array(3, 3, 333)

With WorksheetFunction
Range("A1:C3").Value = .Transpose(.Transpose(Data))
End With

そもそも、ステップ(1)でArray化しなくて、最初から二次元配列に
入れておけばいいんじゃないか？

>>392
SQL書けるならADOがすげー速い。
http://www1.axfc.net/uploader/Ne/so/98228.zip

>>395
きれいに書くな
勉強になるわ

>>395
知ってると思われるが、開いてるBookへのADO接続は
バージョンによってメモリーリーク有り。

http://support.microsoft.com/kb/319998/ja
http://blog.goo.ne.jp/end-u/e/0742f01ce763033f59eff8c6a5f0bd77

>>395

配列の方が速い！！！

　

２次元配列のペーストは速いね。
ソースは煩雑になりがちな気がするけど。

セルと配列では 0 base と 1baseの違いもウザイ。

Redim Preserve とかコスト高いイメージだけどどうだろうか。

たまにVBA書くと楽しいな。

>>395は何やってんの？
AdvancedFilterで一瞬なんだが？
>>398
配列なんて必要ないよ。

　
>>401
配列が必要かどうかじゃなくて
「ADOがすげー速い、、」ただその一点に対してのコメント

ところで、Application.Transpose
xl2000では制限があって要素数が多いと不可。
ま、今どきxl2000を使ってるのがいるかどうか分からんが。。
　

>>402
別にすげーって程じゃないじゃん、普通だろ？
AdvancedFilterの方が速いし。

>>395は>>392を満たすだけならまわりくどいが、
ADOのRecordSetは色々と使い道がある。

別にプロバイダ経由しなくても、メモリ上にいきなり持てるよな。
SQLちっくにSortとFilterは使えるし、XMLやバイナリでシリアライズできるし、
わりと使える。

>>397
> >>395
> 知ってると思われるが、開いてるBookへのADO接続は
> バージョンによってメモリーリーク有り。

メモリリークはするんだけど、開いていないエクセルファイルに対するSQL(ADO)は
うまくいかない時がないか？経験則だけど

単純にデータを取ってくるだけなら問題が出たことないけど、
SQL上で文字列の結合(フィールドの結合?)をしたりするときに
データファイルが開いてない時には結合されるフィールドの結果がNULLになる時がある。

結果Recordsetの数が少ないときは問題なさそうだし、
データファイルが開かれている時にはこの問題がでたことはない。
＃データファイルとVBAを実行しているファイルは別ファイル

原因が分からないから、SQL上でcsv文字列を作ったりするときは諦めてデータファイルを開くコードも入れてる

教えて下さい。

例えばbook1のa1からa5のデータでー３以下・３以上のデータ行を
book2のb2に常に新しい抽出データを表示し、古いのは下にしていく
プログラムを教えて下さい。
よろしくお願いします。

なんだかどのタイミングで抽出して、
古くなるのかわかりづらい話だな。

>>403
手数を掛けてすまん。
先の書き方ではそう取られても仕方ないな。

配列の話をしてるときに
「ADOがすげー速い」というのがあったから
「うんにゃ、配列が速い」と言いたかっただけ。

>>397, >>405
メモリリークの情報、ありがと。頭の隅に入れとく。
　

Excel2007で仕事で使うマクロファイルを作っているんだけど、
他のシートを検索してそのセルをペーストさせる処理を入れたあたりから、コンボボックスいぢるたびに「メモリ不足です。完全に表示できません。」というExcelのポップがあがるようになった。
調べたらExcelの仕様っぽいんだけれど、これってどうやって回避できる？
試しにExcel2010の試用版をインストールしても相変わらずだし、もう頭抱えてる。

Excelは最新バージョン、OSはビスタです。

>>409
仕様っぽいって、下記サポート情報のこと？

「ズームが設定された Excel シートのコンボ ボックスや
リスト ボックスを操作すると メモリ不足が発生する」

http://support.microsoft.com/kb/842231/ja

これ2010でも未対応のようだから、100%で表示するしかないと思ふ。

これでなかったら、「仕様っぽい」の根拠を提示すると同時に
処理内容をも少し具体的に提示してみたらどうだらう。
さすれば、誰からか目から鱗のアドバイスがあるかもしれん。

連続投稿、すまん。

いま>>410で提示したサイトの再現部分をxl2010やってみた。
エラーが出た、が、ダメもとで、
リストのあるシート（Sheet1）のサイズを１００％にしてみたらエラーなし
参考になれば。。。

４０９です。「Sheet1」シートに配置したコンボボックスで染料名を選択し、その染料の色データを「List」シートからコピーさせています。

以下、コンボボックスのコード
Private Sub Cmb1c_Change()
Dim FoundCell As Range, FirstCell As Range, SecondCell As Range
x1c = Cmb1c.Value
cad1(6) = "I8"
Set FoundCell = Worksheets("List").Cells.Find(what:=x1c)
If FoundCell Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
Set FirstCell = FoundCell
Set SecondCell = FirstCell.Offset(, 1)
SecondCell.Copy Range(cad1(6))
End If
End Sub


「List」シートにはB列に染料名、C列にその色をグラデーション表示しています。グラデーション使ってるのが悪いのかな・・・

>リストのあるシート（Sheet1）のサイズを１００％にしてみたらエラーなし

411のコメントを見落としてました。スミマセン。
サイズを１００％にしたら無事解消しました。ありがとうございます。

本当はもっと大きなサイズで使いたいのですが、ここはもう妥協するしかないですね。

>413
表示倍率は１００％のまま、フォント、行の高さ、列幅を大きくして、
印刷の設定を逆に小さくしたらダメですか？

>>406です。
わかりにくくてすいません。
ちょっと書き直しますと

例えばbook1のa1からa5のデータは常に数字が変わっています。
そのa1からa5のデータから-3以下・3以上のデータを抽出し、
book2のb2に抽出データをリアルタイムで常に表示し、
抽出した古いデータは1行ずつ下がっていくプログラムを
できますようならお願いしたいのです。

どうかよろしくお願いいたします。

>>415
下がるタイミングを決めないと。
下がるイベントの発生条件は？

>>416
抽出データが発生して、それをbook2にコピーする前です。

>>415

sheet A のWorksheet_Changeイベントに次のように書くとか。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim v
　
　If Intersect(Target, Me.Range("A1:A5")) Is Nothing Then Exit Sub
　For Each v In Target
　　If v <= -3 Or v >= 3 Then
　　　Worksheets("B").Range("B1").Insert Shift:=xlDown
　　　Worksheets("B").Range("B1") = v
　　End If
　Next

End Sub

シート間じゃなくてブック間か。

>>418ありがとうございます。
何か思ってたより難しい言葉が使われてて
短いプログラムで感動してます(*^_^*)

今その後をやってまして、
実は抽出元データに
=IF(ISERROR(),"",()
を使って#DIV/0!を表示しないよう空白になるように設定してます。

ですが、データの中に1つでも空白（#DIV/0!）部分があると
オートフィルターで抽出できません。（エラー）

どうすればいいでしょうか？

いろいろ参考になりました

>>395
ありがとうございました

>>421
いえいえ。

>>415です。

やりたいことをまとめますと
例えばbook1のa1からa5のデータは常に数字が変わっています。
そのa1からa5のデータから-3以下・3以上のデータを抽出します。
book2のb2に抽出データを常に表示しますが、
抽出データが発生して、それをbook2のb2にコピーする前に
その前に抽出した古いデータは1行下がります。
全ての処理は終わることなく続きます。
こんなプログラムを作っています。

しかし、データ元の数字には#DIV/0もあって、
これを
IF(ISERROR((式),0,(式)
を使って0にしてるのですが、
実行時エラー「型が一致しません」と出て先にすすみません。
エラーを数字の０にしてるから大丈夫じゃないのかと思ってますが
駄目なんでしょうね(+_+)

どなたかわかる方いましたらプログラム・アドバイスお願いします。

もうちょっと放置したらさらに後だししてくれるとえすぱー

>>423
>>418の改変

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim v
　Dim modRange As Range
　
　Set modRange = Intersect(Target, Me.Range("A1:A5"))
　For Each v In modRange
　　If IsNumeric(v) Then
　　　If v <= 3 Or v >= 3 Then
　　　　Worksheets("B").Range("B1").Insert Shift:=xlDown
　　　　Worksheets("B").Range("B1") = v
　　　End If
　　End If
　Next
　　　　
End Sub

これはシート間の例だけどWorksheets("B")をうまくBook2のシートに変えてあげればいいんじゃないの。

ありがとうございます。
標準モジュールにコピーして実行しましたが何も反応無しです。
Ｆ８キーでコマ送りしても反応無しです(+_+)
エクセル２００３を使ってますがこれで作動しますか？
それか他に問題が？

vの判定まてｗ

標準モジュールじゃなくてシートに貼るんだろ・・・。

標準モジュールじゃなかったのですか！？(+_+)
ごめんなさいシートというとワークシートしか思いつかないです。
文字をコピーしただけに見えますが、何かやり方が！？
他にメニューから「シート」を探してみましたがわかりません・・・

ループの前に　is Nothing 判定もいれろ

>>429

VBEditorの画面で対象のシートをダブルクリックする
横に新しいモジュールシートが出てくる　それがシートモジュール
んで、シートモジュールの上に Generalってあるから▼をクリックするとWorksheetって出てくる
次に右隣のタブにいろんなイベントが出てくるから対象のイベントを選択する
そうすると、モジュールに雛形がでてくる

ここまで説明すりゃ大丈夫だろw

質問者よ、一体どんなコードを使ってるんだ。
何やかやの前にそのコードを提示したらだうだ。

その前に、
Ａ１−Ａ５に、式、が入ってるんなら
Worksheet_Changeじゃだめだらう。
　

　
言葉足らずあり、訂正してお詫び申し上げる。。

Ａ１−Ａ５に他のセルの参照式が入ってるだろうから
Worksheet_Changeで●Ａ１−Ａ５●をIntersectしちゃめだらう。
IF(ISERROR((式),0,(式) の式の対象となってるセルをチェックせねば。
　
以上。

式がもともと入っているのではなく、エラーを回避したいがために
入れたとエスパーしてみるが。

　
さうか、さうなら、再度、お詫び申し上げねばならんが。。。
　

別の箇所にあるデータを更新すると数式で加工するんだろうな

初めから数式使わないのがベストじゃね？

>>423です。自宅ＰＣ今起動しました。
>>431さん。シートモジュール出し方わかりました。ありがとうございます。

以下はシートモジュールの意味が分からない前、自分が作ってる途中のです。
わがまま言ってすいません。以下のを指摘・改良してもらうと、
自分も理解できて完成以降も自力で改善できそうなのですが・・・

Sub 条件抽出()
Select Case Range("a1:a5").Value
Case Is >= 3
Windows("book2").Activate
Rows("2:2").Select
Selection.Insert shift:=xlDown
Range("b2").Select
Case Is <= -3
Windows("book2").Activate
Rows("2:2").Select
Selection.Insert shift:=xlDown
Range("b2").Select
Case Else
End Select
End Sub

これにオートフィルターとコピー・貼り付けを足す作業しようと思いますが。
エラー出まくりで中々進まず(+_+)

むだにselectとActiveを使うのヤメれ

あれ？タブスペースが抜けちゃってる何でだろう？

続きです。
a1からa5に入ってる式は
IF(ISERROR(((F6-E6)/E6),0,((F6-E6)/E6)
です。

ＶＢＡ独学で始めてまだ２週間です。

>439
２ちゃんねるでは、レスの各行の先頭にあるタブや半角スペースは無視されます。
全角スペースは有効です。インデントを明示したいときは、全角スペースを入れるといいです。

超初心者な質問ですみません。他に見つからなくて
XPpro　sp3　excel2007です

今日の日付と曜日をA1に取得するのに下のようなのを使ってます

Sub 日付取得()

Worksheets("sheet1").Cells(1, 1) = Date & "(" & WeekdayName(Weekday(Date), True) & ")"

End Sub

すると
2010/12/29(水)
って表示されます。この曜日の1文字だけ、もし”日”の時は赤にしたいんですがどうすればいいでしょうか？

2010/12/29 (水)
　　　　　　　　　↑
この1文字だけ”日”の時は赤に変えたいです

セル内の関数でどうぞ。

InStr関数とCharacters関数でできました
ググり方が足りなかったです
ごめんなさい

>>431
＞次に右隣のタブにいろんなイベントが出てくるから対象のイベントを選択する
＞そうすると、モジュールに雛形がでてくる

右隣のタブに出てくる中で、どれが適したイベントなのかわからなかったです。

>>444
Change

>>445ありがとうございます。
chageにコピーしてＦ８でコマ送りしても無反応です・・・

upしたらみんな見てくれると思う

Activeセルが特定のRange内にあるかどうか判定する方法をご教授ください。

.row

>>448
Intersect

>>448 これこれ、これです。お世話になりました。

>406,415,417,420,423,426,437,439,446
Ａ１〜Ａ５のデータが常に変わっている　とはいうものの、ここには数式が入っている。
>439では
＞a1からa5に入ってる式は　IF(ISERROR(((F6-E6)/E6),0,((F6-E6)/E6) 　が入っている
というけど、全部この式が入っているはずがない（Ａ１〜Ａ５全部同じ結果になるよ）
というか、この式を試そうとしたら誤りになった。カッコの位置がおかしい。正しくは
=IF(ISERROR((F6-E6)/E6),0,((F6-E6)/E6))　になるはず。エスパーして、
Ａ２セルには　=IF(ISERROR((F7-E7)/E7),0,((F7-E7)/E7))　・・・（中略）
Ａ５セルには　=IF(ISERROR((F10-E10)/E10),0,((F10-E10)/E10))というふうに
なっているものと仮定する。そしたら、ＶＢＡでチェックすべきセル範囲はＥ６：Ｆ１０になる。
Set modRange = Intersect(Target, Me.Range("A1:A5"))　を実行しても、modRangeはNothingのまま。
しかも、一度にＥ６：Ｆ１０をチェックすることはマズイ。（実際やってみた）
Ａ１〜Ａ５の内容が上から順に１，２，３，４，５となっている場合に、Ｅ６かＦ６のどちらかの
セルに入力した結果、Ａ１セルが−３になった場合、抽出対象はＡ１〜Ａ５のうち、Ａ１だけでなく、
Ａ３，Ａ４，Ａ５も含まれることになるから、計４セル分ずれることになる。
最初の質問ではＡ１〜Ａ５のどれか内容が変化したセルの値が−３以下or３以上のときに・・・・・と
あったので、Ａ１の値の元となるＥ６：Ｆ６、Ａ２の値の元となるＥ７：Ｆ７、（中略）Ａ５の値の元となる
Ｅ１０：Ｆ１０というように５とおりに処理を分ける必要がある。で、結局次レスのマクロでＯＫ。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, y As Long, v As Variant
MsgBox (Target.Address)　'入力したセルアドレスを表示（デバッグ用）
x = Target.Column
y = Target.Row
If x = 5 Or x = 6 Then　　'Ｅ列かＦ列
　If y >= 6 And y <= 10 Then　　'６行目〜１０行目
　　v = Cells(y - 5, 1).Value　　　'値をチェックするのはＡ列
　　If IsNumeric(v) Then
　　　If v <= -3 Or v >= 3 Then
　　　　Worksheets("B").Range("B1").Insert Shift:=xlDown
　　　　Worksheets("B").Range("B1") = v
　　　End If
　　End If
　End If
End If
End Sub

Ｅ６かＦ６に入力したらＡ１だけチェックして−３以下または３以上のとき抽出する。
他のセルの場合も同じ。

>>452
カッコの位置はコピーする時の何かで間違ってしまったようです。
Ａ５セルまでに入ってる式当たりです！

＞Set modRange = Intersect(Target, Me.Range("A1:A5"))　を実行しても、modRangeはNothingのまま。
この辺りから私には言葉が難しく理解できません・・・。

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

無料RPG製作ツール「ロープレジェネレーター」
http://sekisekki.net/index.htm

直感的操作で簡単なゲームが作れます。 簡単に配布可能な状態に出力することができます。
(HSP製のソースコード付きで、スクリプトの知識があれば自由度の非常に高いカスタマイズ
ができます）
他にも仲間預かり機能（100人も）や、仲間の状態/状態異常を細かく設定できたり、
乗り物が作れたり、ゲーム中に画像を差し込んだり、回転やフラッシュなどのエフェクト
なんかも簡単に作れる様です。
移動は矢印キーの他に、キャラがマウスを追っかけたりするとのこと。
戦闘はデフォだとドラクエ系。
他にはオートアクションというのがあってオリジナルシステムの製作に役に立つかも
しれない機能です。これは、マップエディタで設定することで、「マップに入った時・
出た時・一歩歩いた時・戦闘開始前」に自動的に実行されるアクションを設定できる
機能です。
■他にもいろいろ進化中。要望や分からないことは掲示板へどうぞ。

どんなゲームが作れるかはこれを見れくれ。HSPのカスタマイズはしてないとの事。
「眠られぬ獅子〜序章〜」
http://www.freem.ne.jp/game/win/g02773.html

>454
>453のマクロを実行してみるばわかるはずだけど、Ｅ６セルに入力した時点で
マクロが起動して、メッセージボックスに　$E$6　と表示されるはず。
http://www.moug.net/tech/exvba/0050131.htm　を見てもらうと
〜引数に指定したRangeオブジェクトへの参照の共通部分への参照を返します〜
と説明がある。入力したセル位置（Targetに設定されている$E$6）と、マクロ内
に記した　A1:A5　には共通部分がないので、結果は　Nothing　になる、ということ。
同じ事を、自分のマクロでは　Target　の列位置x　と行位置y　がそれぞれの範囲内で
あるかどうかでチェックしている。ただしTargetのセルは１個だけという前提。
（コピペでもしない限り、セル１個ずつの入力しかできない）

>>456
え〜と・・・今の状況を言いますと、教えてもらったプログラムをコピーしても作動しません。
おそらく　>>431　のやり方が初めてで、プログラムの貼り付け先が間違ってるとかだと思います。

以下貼り付け先
＞VBEditorの画面で対象のシートをダブルクリックする
ＶＢＡｐｒｏｊｅｃｔメニューのsheet1ってことでいいのでしょうか？
＞横に新しいモジュールシートが出てくる　それがシートモジュール
これはわかりました
＞んで、シートモジュールの上に Generalってあるから▼をクリックするとWorksheetって出てくる
Generalをworksheetに変更できました。
＞次に右隣のタブにいろんなイベントが出てくるから対象のイベントを選択する
changeってことでいいのですよね！？
＞そうすると、モジュールに雛形がでてくる
そこに教えてもらったのをそのまんまコピーしました。

メニューの再生ボタンを押すとマクロポップアップウィンドウが出て、
過去に作ったマクロファイルと実行・編集ボタンやらが出てきてしまいます。
そして再生ボタンではなくＦ８を押しても無反応です。

教えてもらったプログラムは、並行して自分で作ってるのと同時に作業してます。
（これも原因？）

>>457
changeイベントはAlt＋F8などのマクロで実行するものではないです。
シートモジュールのシートの内容が変わった際に自動的に稼動します。
コードにブレークポイントを付けておけば動きがわかるはずです。

>457
まずは、新しいシートを追加し、>457の手順でひながたをつくってください。
次にモジュールのひながたに１行追加して、下記の画面イメージと同じにしてください。
http://www.dotup.org/uploda/www.dotup.org1330150.png

で、Ａ１セルに何か入力して[Enter]キーを押したら、メッセージボックスに　$A$1　と表示
されるかどうかだけテストしてレスしてください。
シートのＶＢＡマクロは、この3行だけにしてください。

>457
間違って他のシートのマクロを消してしまうとまずいので、ひとこと。
すでに何か書いているマクロを消すことではありません。
新しく増やしたシート（マクロはまだ何もない状態）に、さきほどの3行だけ存在する状態でテストするということ。

$A$1出ました

>461
了解　今、次の解説を書いているところ、しばし待って

>457
ひながたを作らなくても、シートにマクロが何もない状態で
マクロソースをコピペしても動きます。
さっきの3行をまるごと削除してから、>453のソースをコピペしてください。
http://www.dotup.org/uploda/www.dotup.org1330223.png
の画面と同じになるはず。ＶＢＥの画面は閉じて、当該シートのＡ１、Ｅ６、Ｆ６セルに
式と値を入れてみてください。
Ａ１に式を入力したときにメッセージボックスに$A$1、
Ｅ６に数字を入れたときに　　　　同上　　　　　$E$6、
Ｆ６に数字を入れたときに　　　　同上　　　　　$F$6、
Ａ１セルの数字が抽出対象であったとき、シートＢのＢ１にＡ１セルの内容が転記されているはず。
（Ｂ列の内容が１行ずつ下にずれた状態で）

ふたつのシートを横に　整列　させるとよくわかるはず。うまくいったら、
MsgBox (Target.Address)　'入力したセルアドレスを表示（デバッグ用）
の部分は削除してもいいし、先頭に　'　を付けてコメント化したらいいです。
ところで、本来動かしたいシートで動かすマクロがこれひとつだけなら、
あなたが今書いている作成途中のマクロ『Private Sub Worksheet_Change(ByVal Target As Range)
で始まるもの』とは、同居はできないので消してください。

Alt＋Ｆ８から動かすマクロ『Sub　マクロ名　で始まるもの』は同じシートに同居できます。

>>463
おお！！
動いた！！
ありがとうございます。

>465　それじゃ、Good Night!

>>464
先が明るくなりました^^

同居できないマクロは同じタイミグの時に動くマクロだけですか？
それとも、その前後に入れてあるマクロも全部ですか？

>>466
あっ、おやすみなさいm(__)m

>>468
これどう？
http://www1.axfc.net/uploader/Sc/so/189319.zip
A1:A5に他のセルを参照する式が入っている場合。

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim r As Range

　For Each r In Me.Range("A1:A5")
　　If Not Intersect(r.DirectPrecedents, Target) Is Nothing Then
　　　If IsNumeric(r.Value) Then
　　　　Worksheets("B").Range("B1").Insert Shift:=xlDown
　　　　Worksheets("B").Range("B1") = r.Value
　　　End If
　　End If
　Next

End Sub

オートシェイプを設置するときに
ActiveSheet.Shapes.AddShape(msoShapeOval, x, y, sizex, sizey).Select
ですがこれだとアクティブになってしまいます。
ならないようにはどうすればいいでしょうか

>>470

Selectしてるからアクティブになるのは当然だらう。

で、selectと引数を囲ってる（）カッコを除去して、

ActiveSheet.Shapes.AddShape msoShapeOval, x, y, sizex, sizey

これでいいと思うが。。
　

>>468です。

>>453　今、詳細を見て自分なりに勉強してます。

＞　v = Cells(y - 5, 1).Value　　　
この式の()の中のy-5,1の意味が分かりません(+_+)
教えていただけると助かります。

↑
あっ。今、理解できました(^^
昨日から何時間も悩んでたけど、簡単なことだった・・・

>467,472　新年早々からお仕事ですか、おつかれさま＆あけおめ
＞同居できないマクロは同じタイミグの時に動くマクロだけですか？
＞それとも、その前後に入れてあるマクロも全部ですか？

新規にシートを追加して（新規ブックでもいいけど）以下のマクロが作れるか試してみてください。
Private Sub Worksheet_Change(ByVal Target As Range)
　　msgbox("あ")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
　　msgbox("い")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
　　msgbox("う")
End Sub
たぶんできないと思う（同じ名前は使えないとかなんとか表示されてエラーになった）
シートの何かのセルに入力した（削除でも貼り付けでもいいけど）タイミングで起動できる
マクロの名前はシートにひとつしか許されないはず。
だから、先頭（Sub　とか　Private Sub　とか　Function　の行）が同じものが同居できない
だけで、Sub macro_A()　Sub macro_B()　みたいに名前が付けられるものや、別のイベントを
受けて起動するものは同居できます。
上記の例で言えば、あるひとつの処理（Worksheet_Change）をうけて、複数の処理を行いたい場合は、
Private Sub Worksheet_Change(ByVal Target As Range)
　　処理　Ａ
　　処理　Ｂ
　　処理　Ｃ
End Sub
みたいにするといいです。で、処理Ａ〜Ｃは、シートではなくモジュールに書くといいです。

>>469ごめんなさい。まだ>>453のプログラム解析中でそこまで行ってません（汗

>>453
問題があります。

セルＡ１からＡ５で条件の数字を検出した時に
どの項目の数字が検出されたのかわからないので
ＢとＣ列に書いてある項目も数字と同時に検出したいです。
（B列が名前、Ｃ列が数字）

それと、複数同時に検出しても１つしかワークシートＢに
コピーされないのを、全て同時にコピーしたいです。

何かいい方法はないでしょうか？
よろしくお願いします。

>>474あけましておめでとうございます。年末はお世話になりましたm(__)m今年もよろしくお願いします。

同居の件了解です。
私が作ったのは標準モジュールで本当に簡単なものだけです。
大丈夫そうですね(^^ゞ

>476
＞どの項目の数字が検出されたのかわからないので
Target　という変数に入力したセル位置がセットされています。
Private Sub Worksheet_Change(ByVal Target As Range)
　　msgbox(Target.Address)
End Sub
>463で上記の簡単なマクロをテストしたときに、メッセージボックスに表示されたから
わかるはずです。
それとも、抽出（転記）したのがＡ１〜Ａ５のどれか、知りたいということであれば、
Msgbox(Cells(y-1,1).Address)　で　$A$1　などと表示できます。$をとりたいなら
Msgbox(Replace(Cells(y-1,1).Address,"$","")で。

＞ＢとＣ列に書いてある項目も数字と同時に検出したいです。
「検出」というよりも、Ａ１〜Ａ５セルの中の抽出したセルの右隣の２つのセル内容も
転記したいということであれば、
Worksheets("B").Range("B1").Insert Shift:=xlDown
Worksheets("B").Range("B1") = v
の部分を
Worksheets("B").Range("B1:D1").Insert Shift:=xlDown
Worksheets("B").Range("B1") = v
Worksheets("B").Range("C1") = Cells(y - 5, 2).Value
Worksheets("B").Range("D1") = Cells(y - 5, 3).Value
にしたらできるはずです。

>477の変更後の部分の最後の３行は、
Worksheets("B").Range("B1").value = v
Worksheets("B").Range("C1").value = Cells(y - 5, 2).Value
Worksheets("B").Range("D1").value = Cells(y - 5, 3).Value
の方がいいです。（値の転記であることを明示）

すごいですね・・・短時間に。
感謝の気持ちでいっぱいです。

寝不足気味なので、>>478やったら今日は寝たいと思います。
ありがとうございます。

>475
＞それと、複数同時に検出しても１つしかワークシートＢに
＞コピーされないのを、全て同時にコピーしたいです。

「複数同時に検出」ということは、Ｅ６：Ｆ１０セルにキーボードから入力ではなく、
貼り付けで入力する場合があるということでしょうか？
そういうことであれば、>469さんの方法が最適です。
DirectPrecedents　で、計算式の参照元がわかるそうです。（自分は試してません）

>>478まで完了です。ありがとうございます。

>>469さんのは、どこかを訂正する形で書き換えるってことですよね？
それらしき場所にコピーしたもののエラーばかりで作動しません(+_+)

>481
当方（Excel2003）で試したら、そのままでばっちりでしたよ。>469さんの方法は
複数セルへの対応もできています。
1列２行のセルを貼り付けたら２個、２列１行のセルを貼り付けたら１個のセルを
抽出しました。

>474でも書いたように、Private Sub Worksheet_Change　のマクロはシートに
ひとつだけしか置けません。>453のマクロと全部置き換えてください。

>>482
私のエクセル２００３でも>>469さんのは作動しました。
>469、>481さんありがとうございます。

ただ３以上、３以下の条件の数字だけを抽出したいので、その条件を
抽出できる>>453さんのマクロに繋げられないものかと思って四苦八苦してます。

>483　　>469さんのは値範囲のチェックがありませんでしたね。
>469さんのマクロの
If IsNumeric(r.Value) Then
　　Worksheets("B").Range("B1").Insert Shift:=xlDown
　　Worksheets("B").Range("B1") = r.Value
End If
を
If IsNumeric(r.Value) Then
　If v <= -3 Or v >= 3 Then　　'←追加
　　Worksheets("B").Range("B1").Insert Shift:=xlDown
　　Worksheets("B").Range("B1") = r.Value
　End If　　　　　　　　　　　　　　'←追加
End If
にするだけですよ。

>>484
なるほど。ありがとうございます。
しかし>>475のもう一つの問題が残っているのと
If Not Intersect(r.DirectPrecedents, Target) Is Nothing Then
のとこが私には難しく、後に自分で変更・管理できる自信なく
>>453をベースに出来上がってきたのでいこうと思います。

>485
>469さんのマクロの
Worksheets("B").Range("B1").Insert Shift:=xlDown
Worksheets("B").Range("B1") = r.Value
を
Worksheets("B").Range("B1:D1").Insert Shift:=xlDown　←セル範囲を拡張
Worksheets("B").Range("B1").Value = r.Value　←変更なし
Worksheets("B").Range("C1").Value = r.Offset(0,1).Value　←追加
Worksheets("B").Range("D1").Value = r.Offset(0,2).Value　←追加
に変えるだけです。

If Not Intersect(r.DirectPrecedents, Target) Is Nothing Then　の部分は、
変更する必要がありません。もし、Ａ１〜Ａ５の式で参照している部分が他の
シートになったとしたら、>469さんのマクロでも対応不可ですが、同じシートを
参照しているのであれば、何も変える必要はありません。私(>453)の方は、
Ａ１〜Ａ５の式の参照先セルが変わったら、それに応じて
If x = 5 Or x = 6 Then　　'Ｅ列かＦ列
　If y >= 6 And y <= 10 Then　　'６行目〜１０行目
の部分を変更しなければなりません。>469さんの方が、より汎用性があるということです。
VBAで使う単語　の意味は　excel vba と組み合わせて
例えば　excel　vba　DirectPrecedents　などとしてググればわかります。

懇切丁寧だな。

>>486なるほど。
参照先セルはこの先変更したいので、その方法が分かって
目から鱗がでるほどです。

とりあえず明日仕事場に持って行って、テスト運用です。
バタバタしてるので>>469さんのは明後日以降に書き換えて
使ってみようと思います。

ほんと懇切丁寧で、ここまで来る事ができて感謝です。
その間に色々学べました。本当にありがとうございました。
m(__)m

>>488です。こちらで教わったマクロにちょっと手を加えて、仕事場でテストしてきました。
Ｅ列とＦ列５行〜５７８行には会社の機械から抽出した数字（整数）がでるようになっています。
Ｇ列にはＥ列とＦ列のそれぞれの行の計算をした結果（小数点あり）を表示しています。
そのＧ５には
IF(F5=0,0,(E5-F5)/F5)
の式が入ってます。６行目には６行目の数字が計算されるようになっていて
５７８行まであります。そして以下のマクロを入れてます。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, y As Long, v As Variant
x = Target.Column
y = Target.Row
If x = 5 Or x = 6 Then 'Ｅ列かＦ列
　If y >= 5 And y <= 578 Then '６行目〜１０行目
　　v = Cells(y, 7).Value '値をチェックするのはＡ列
　　　If IsNumeric(v) Then
　　　　If v <= -0.015 Or v >= 0.015 Then
　　　　　Worksheets("B").Range("B2:D2").Insert Shift:=xlDown
　　　　　Worksheets("B").Range("B2").Value = v
　　　　　Worksheets("B").Range("C2").Value = Cells(y, 3).Value
　　　　　Worksheets("B").Range("D2").Value = Cells(y, 4).Value
　　　　End If
　　　End If
　　End If
　End If
End Sub

しかし、シートＢに抽出データが入ってきません(+_+)
なぜでしょうか？問題のご指摘していただけると助かります。

適切にme.cellsとかつけた方がいい。

↑もっと正確に状況を書きますと
Ｅ列・Ｆ列にテスト的に手動で適当な数字を入れると
シートＢに抽出されて表示されますが、仕事場の機械からの
数字の計算結果は抽出されないという状況です。

年末からずぅ〜っと続いてんの、これ？

すいません続いちゃって。

>>490さん。どの辺りにme.cellsとかつけるのでしょうか？


>>489と同じ条件でマクロを組むと>>469さんのでいくと
こうゆうことでしょうか？
こちらは手動で適当な数字入れてもワークシートＢに抽出されません(+_+)

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim r As Range
　　For Each r In Me.Range("G5:G578")
　　　If Not Intersect(r.DirectPrecedents, Target) Is Nothing Then
　　　If IsNumeric(r.Value) Then
　　　　If v <= -0.015 Or v >= 0.015 Then
　　　　　Worksheets("B").Range("B1:D1").Insert Shift:=xlDown
　　　　　Worksheets("B").Range("B1").Value = r.Value
　　　　　Worksheets("B").Range("C1").Value = r.Offset(0, 1).Value
　　　　　Worksheets("B").Range("D1").Value = r.Offset(0, 2).Value
　　　　End If
　　　End If
　　End If
　Next
End Sub

　
>>493のコードを全部削除して、
標準モジュールに以下のコードをコピペして実行せよ


Sub Test()
　Dim r As Range
　For Each r In Range("G5:G578")
　　If r.Value <= -0.015 Or r.Value >= 0.015 Then
　　　Sheets("B").Rows(1).Insert Shift:=xlDown
　　　Sheets("B").Range("B1").Value = Cells(r.Row, "E").Value
　　　Sheets("B").Range("C1").Value = Cells(r.Row, "F").Value
　　　Sheets("B").Range("D1").Value = Cells(r.Row, "G").Value
　　End If
　Next
End Sub
　

VBA習い始めということらしいからごちゃごちゃしたのは抜き。。
　

つーかExcel買えよ
仕事場の往復じゃ効率悪いだろ

>489
そもそもの出発点から確認します。
＞Ｅ列とＦ列５行〜５７８行には会社の機械から抽出した数字（整数）がでるようになっています
機械から抽出した数字がでるというのは、そのパソコンと「機械」がなにかのインターフェース装置
（ＲＳ２３２ＣとかＧＰＩＢとかの）でつながって、キー操作なしで入力されていくってこと？
それを確認するには、>459で示した３行だけのプログラムを「機械とつながっているパソコン」で
試してください。入力のあったセル位置の表示がなければ、いくら中身を調べてもムダです。

Private Sub Worksheet_Change(ByVal Target As Range)　というプログラムは、キー操作による
ワークシートへのなんらかの変更をきっかけに起動するものだから、インターフェース装置からの
入力では起動しないものかもしれません。

>495
質問者の自宅にもExcelはあると思う。真夜中の質問が多い。>457-461　のやりとりを見るとわかる。
ただ、何かの「機械」からのデータ入力で起動するマクロなので、自宅で検証ができないのがツライところ。

機械からのデータを受けてシートに入力するということは、当該ブックでは
なにかのマクロが動いているはずなので、そのマクロがシートに「入力」
しても、Worksheet_Change　イベントが発生するんだろうか？

バッチ処理か何かで、そのExcelに書き込んでいるんだろうな。
しかしその詳細は知らないと見える。

DBエンジン経由とかで書き込んでたら、
Worksheet_Changeイベントは発生しないかもな。
そうだとすると辛いところです。

>489
自分で試してみたら、メッセージボックスが表示されて［ＯＫ］をクリック
するまでマクロが止まることに気付き、どこか適当なセルに刻々と表示する
簡単なものを作ってみました。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False　'←イベント受付停止
Range("E1").Value = Replace(Target.Address, "$", "")　'←書き込みセル位置はよく考えて
Application.EnableEvents = True　'←イベント受付再開
End Sub

上記のマクロを、機械とは関係のないＰＣの新規ブックのシートに書いて試してみてください。
当該シートのどこにデータを入力しても、３行目で指定した場所（例ではＥ１セル）に入力した
セル位置を表示するはずです。

これでうまくいったら、同じマクロを機械のデータを時々刻々と表示しているＰＣのマクロで
試してみてください。Ｅ１セルがまずければ、どこか適切なセル位置を指定すること。
何も変化がなければ、機械のデータを受けてシートに表示するマクロがイベントを受け付けない
ように設定していると推測できます。もしくは>499さんのとおりかも。

上記マクロの２行目で「イベント受付停止」としているのは、３行目の書き込みを受けて、また
このマクロが起動し、堂々巡りにならないようにしているものです。（マクロ４行目で再開）

>>496さんので理解できました。
仕事場の機械からＰＣに自動でブレた数字が表示されるようになってます。
仕事場のＰＣに数字をキー操作でテスト入力したのは表示されるのに、
機械を動かして表示されるのは無反応でした・・・
そういうことだったのですね。


>>497さんのおっしゃる通りです(^^ゞ

>>500さん。せっかく書いていただいたのに申し訳ないです。
Worksheet_Changeイベントは発生しないことがわかりました(+_+)

本日残業中、急遽>>494さんのマクロ入力。これは機械から抽出成功でしたが、
マクロ再生ボタンを押した瞬間の１回のみの抽出でした。
何秒かおきにこのマクロを起動させて抽出し続けるのが必要と考えてます。
何とかこのあたりを改良できないでしょうか？
これができれば完成です！

>>501
バッチ処理（？不明）がそのExcelファイルに書き込むのと同じタイミングで、
マクロをキックしてもらうしかないね。

処理の記述はWorksheet_Changeイベントじゃなくて、マクロにする必要がある。
あと、キックする方はマクロを実行出来る権限のあるユーザーじゃないと無理かも。

バッチ処理は別の人が作ったものだろうから改変するのは色々と面倒だろうけどね。
まぁ、バッチ処理の方を改変するのなら要件を満たす方法はマクロ以外にもありそうだが。

>>501
指定した時刻にマクロを実行する
http://www.moug.net/tech/exvba/0130013.htm

>501
やはり、そういうことでしたか。定期的にマクロを起動させることはできますが、機械によるデータ入力のタイミングってどういう感じですか？
画面見てたらわかりませんか？タイミング（間隔）は一定ですか？不規則ですか？
不規則な場合、最小間隔よりも短いタイミングでマクロを定期的に動かさないと「データの取りこぼし」が起こります。
時刻指定でマクロを起動させるサンプルとして、別のスレ（Excel総合相談所93）にあったものを紹介します。これは、新規ブックの標準モジュールに書いてください。
（標準モジュールはわかりますよね？）
起動はマクロ一覧から　スタート　を実行、停止はマクロ一覧から　ストップ　を実行です。
１秒毎に　時・分・秒　をＡ１セルに書きます。
Private flgStop As Boolean
Sub スタート()
flgStop = False
現在時刻
End Sub

Sub 現在時刻()
If flgStop Then End
Application.OnTime Now() + TimeValue("00:00:01"), "現在時刻" 　'←※
Range("A1").Value = Format(Now, "hh:mm:ss") 　　　'←実際にやりたいことをここに書く
End Sub

Sub ストップ()
flgStop = True
End Sub
←※で示した行の　00:00:01　を　00:00:05　に変更すると、５秒毎の更新になります。
やりたいこと　の部分には、前回起動時とどこが変わったかを検出する部分が必要になります。

書き込もうとしてリロードしたら、>502さんが書いてくれてますが、機械からデータ入力する処理の変更が無理なようなら、私の方法も検討してみてください。

もとの質問を読む気にもならんのは、オレが正月ぼけ
だからなのか？

>505
>406　からすでに１０往復近いやりとり（自分でも数えてません）があるので、「途中参加」の方は眺めるだけにしておいた方がよろしいかと・・・・・

メールででもやれよ。迷惑だなーって事を書いたんだよ。

自演にも見えて来る。

質問は随時受付中ですよ。

迷惑ですね。ごめんなさい(>_<)
指定時刻だと１回のみの実行になってしまうような気がしますが、どうなんでしょう？

ここに１５秒ごとに抽出をするプログラムがあります。

Public n ' 基準時刻

Sub timer_start()
n = Now
main
End Sub

Sub main()
　Dim a()
　　a = Range("e5:e578")
　　Range("f5:f578") = a
　　n = n + TimeValue("00:00:15")
　　Application.OnTime n, "main"
End Sub

>510の続き
これにさらに>>494さんのプログラムを付け足すことできますか？

Sub test()
　Dim r As Range
　　For Each r In Range("G5:G578")
　　　If r.Value <= -0.015 Or r.Value >= 0.015 Then
　　　　Sheets("B").Rows(1).Insert shift:=xlDown
　　　　Sheets("B").Range("B2").Value = Cells(r.Row, "E").Value
　　　　Sheets("B").Range("C2").Value = Cells(r.Row, "F").Value
　　　　Sheets("B").Range("D2").Value = Cells(r.Row, "G").Value
　　　End If
　　Next
End Sub

適当だと思うところにコピペの試行錯誤してますが・・・
何せ知識が無く、柔軟に言葉を足したりとかできないのでうまくできません。
・順番は１５秒抽出プログラムの前に>494さんのプログラムを実行。
・そしてその１５秒ごとの動きを繰り返す。

>511　

>501の
＞本日残業中、急遽>>494さんのマクロ入力。これは機械から抽出成功でしたが、
＞マクロ再生ボタンを押した瞬間の１回のみの抽出でした。
＞何秒かおきにこのマクロを起動させて抽出し続けるのが必要と考えてます。
＞何とかこのあたりを改良できないでしょうか？
＞これができれば完成です！
について、以下の問題があります。

>494さんのマクロを定期的に動かして完成ではないし、機械からのデータ入力の都度
動かせるようになっても完成ではありません。
Ｅ５：Ｆ５７８の範囲のセルが一度に書き変わるのであればともかく、この範囲のセルの
どこか（１個〜複数）が書き変わるということであれば、変更があったセルだけを調べる
部分が必要になります。

もうひとつ、定期的に動かすマクロと、機械が当該シートに書き込もうとする処理が
瞬間的にもぶつかるときに、遅れた方の処理が待ってくれるものなのかどうか。
十分に検証する必要がありますよ。

機械からのデータは不規則でかなりの数の更新があって、
全てを抽出できないので、１５秒に１回抽出するのみでいいと考えてます(*_*;
１５秒に１回、その時の数字を抽出できればいいです。
漏れがあるのは気にしてないです。
宜しくお願いします。

Public n ' 基準時刻

Sub timer_start()
n = Now
main
End Sub

Sub main()
　Dim a()
　　a = Range("e5:e578") 　'←これは何をしているところなんだろう
　　Range("f5:f578") = a　　'←同上
　　n = n + TimeValue("00:00:15") 　'←ここで次の起動時刻の設定をしてます。Nowは日付・時刻なので、日付が変わってもＯＫ
　　Application.OnTime n, "main" 　'←ここで次の起動命令（目覚ましセット）
　　Call test　'←追加
End Sub

たぶん、これでいけるはず。testのマクロも同じ標準モジュールに　同居　させておく。（試してません、あしからず）

＞５１４さんありがとうございます。
同じ標準モジュールシートに書くってことですか？
別シートと同じシートに書き込んでやってみましたが、駄目でした(+_+)
タイマーの抽出は今まで通り抽出しますが、
>>494さんの抽出は１５秒ごとに動きません。
１回で終了となってしまいます。

>515
ごめん、Callで呼ばれるプログラムは　Private　Sub　ってしなきゃならなかったかも。
こっちでもテストしてみる（毎日がeveryday　な身分なので夜更かしＯＫ）。

>515
こちらでは１５秒毎にシートＢに出力できてます。
Sub　でも　Private　Sub　でも、どちらでもＯＫ。

あくまでも標準モジュールに書いてください。シートの方に書いても動きません。
どうしてもシートに書きたいのであれば、
Application.OnTime n, "main"　→　Application.OnTime n, "シート名.main"
みたいにしないと、エクセルが動かすべきマクロを名前から探し出せません。

>515
タイマーは動いているけど、抽出（シートＢに出力）しないってのは、
シートＢを表示している（シートＢがアクティブになっている）からでは？

シートＢをアクティブにしてたら、
　　For Each r In Range("G5:G578")
　　　If r.Value <= -0.015 Or r.Value >= 0.015 Then
の部分はシートＢの方のセルの値をチェックします。
ふたつのシートを並べて表示して、元のシート（Ｅ，Ｆ，Ｇ列にデータがある方）を
アクティブにして、やってみてください。

rangeとか、cellとか、どのシートのものか、ちゃんと修飾したほうがいいよ。

>515　　>519さんの言うとおり、シート修飾をしてみました。

Public n '基準時刻
Public flgStop As Boolean '停止用フラグ
' 開始するときは　マクロ「スタート」を実行
Sub スタート()
　　flgStop = False　　' 停止しない　設定
　　n = Now　　　　　　' 現在の日付・時刻
　　Call main
End Sub
' 停止するときは　マクロ「ストップ」を実行
Sub ストップ()
　　flgStop = True　　' 停止する　設定
End Sub
' タイマー処理部分
Sub main()
Dim a()
　If flgStop Then End
　Worksheets("A").Activate　　　　 ' 元データのシートに強制的に切り替え
　a = Range("e5:e578")
　Range("f5:f578") = a
　n = n + TimeValue("00:00:15")　　' 何秒間隔で実行するか
　Application.OnTime n, "main"　　 ' 次の起動セット
　Call test　　　　　　　　　　　　　　　' 実際に処理する部分
End Sub
続きます

続きです
Sub test()
Dim r As Range, sh_1 As Excel.Worksheet, sh_2 As Excel.Worksheet
　Set sh_1 = Worksheets("A")　' 元データのシートをオブジェクト変数に設定
　Set sh_2 = Worksheets("B")　' 出力先シート
　For Each r In sh_1.Range("G5:G578")
　　If r.Value <= -0.015 Or r.Value >= 0.015 Then
　　　sh_2.Rows(1).Insert shift:=xlDown
　　　sh_2.Range("B2").Value = sh_1.Cells(r.Row, "E").Value
　　　sh_2.Range("C2").Value = sh_1.Cells(r.Row, "F").Value
　　　sh_2.Range("D2").Value = sh_1.Cells(r.Row, "G").Value
　　End If
　Next
　Set sh_1 = Nothing: Set sh_2 = Nothing　' オブジェクト変数の開放
End Sub

シートＢの方をアクティブにしていても、強制的に元データのシート（例ではシート「Ａ」）
に切り替わります。

今きたんだがすごい事になってるな

これはエクササイズです。

>>521さん　ありがとうございます！

抽出条件のＧ列には
=IF(F5=0,0,(E5-F5)/F5)
の式（行はそれぞれに合わせた行）が入っていて、
テストで手動でＧ列に数字を入れた時は抽出されますが
ＥかＦに数字を入れて計算結果をＧに表示させた場合は
抽出されないです。
何かいい方法はないでしょうか？

>524
>520-521を見てもらうとわかりますが、マクロが動くタイミングは
n = n + TimeValue("00:00:15")　　' 何秒間隔で実行するか 　の部分です。
Ｅ，Ｆ列に数字を入れたタイミングではありません。

また、抽出するかどうかは、Ｅ，Ｆ列の値ではなく、Ｇ列の値（計算式があるならば
計算結果）次第です。
If r.Value <= -0.015 Or r.Value >= 0.015 Then 　からわかるように、Ｇ列の
値が条件に合っていますか？また、自動再計算する状態になっていますか？

>>521
やりとりは全然読んでないんだが
>　　　sh_2.Range("B2").Value = sh_1.Cells(r.Row, "E").Value
>　　　sh_2.Range("C2").Value = sh_1.Cells(r.Row, "F").Value
>　　　sh_2.Range("D2").Value = sh_1.Cells(r.Row, "G").Value
これって
sh_2.Range("B2").Resie(,3).Value=r.Offset(,1).Resize(,3).Value
って書けるんじゃないか？

>526
質問者がＶＢＡ初心者ということなので、極力トリッキーなものは使いたくないのと、
質問者の条件後出しが多く、転記元、転記先が隣接した状態で確定するかどうかも怪しいんです。
（最初の方では、Ａ１〜Ａ５セルの中から抽出したい、と言う話。Ａ１セルの計算式でＥ５，Ｆ５セルを
参照している、という話から、ここまで変わってきた）

>>525　タイミングと計算結果次第ということ了解です(^_^)v
しかし反映されないです(+_+)
１つの標準モジュールに>>520と>>521の順番にそのままコピーして
使ってるのですが、これは順番が逆とか・・・そういうの関係ありますか？
なんかそういうイージーミスが原因のような気も。

>>526さんアドバイスありがとうございます。書き直してみます。

>528
標準モジュールの中に書く順番は関係ないと思う。
Worksheet_Change　で起動するマクロは完全に削除してますか？
関係ないとは思うけど、念のため。

>>527　ほんとに申し訳ないです(+_+)

>>529了解です。他のマクロは他のエクセルファイルにとってありますが
作業中のファイルでは使ってないので大丈夫だと思います。

どうもここからは、仕事場の機械との兼ね合いでしょうか・・・限界が見えてきました。
ここまでアドバイスしていただいた方々ありがとうございましたm(__)m

あっ、悪く誤解しないでください。
「限界」の意味は、掲示板のやりとりで独自開発の機械を改善させる難しさのことです。

ＶＢＡ初心者です。ネットで調べてみたけどわかりません。

ブックＡとブックＢがある。
ブックＡのマクロをコマンドボタンから実行すると
ブックＢを参照して計算した結果を
ブックＡのボタンのあるシートに書き出す。（ブックＢは閉じる）

ブックＢはユーザに選択させる。また参照するだけで書き換えたりしないので別に開かなくてもよい。
マクロでは計算結果を二次元配列に入れてそれをセルに書き出している。

これのやり方を教えていただければ幸いです。
WinXP
エクセル２００７
ＶＢ６．５

>>532
ファイルを選ばせる Application.GetOpenFilename
開く Open
閉じる Close

>>530です。
自分で改良して完成しました。
完璧です！！ほんとうにどうもありがとうございました！！
２ｃｈってすごいです＼(^o^)／

>530
マクロ　test　だけ単独で実行したら、どうなりますか？
うまく行くようであれば、>520の部分がおかしいことになります。
自分としては、
a = Range("e5:e578")
Range("f5:f578") = a
の２行が何が目的なのか、さっぱりわかりません。>510が初出です。
Ｅ列とＦ列に違う数字が入っていても、１５秒毎に同じ内容にしているので、Ｇ列に
=IF(F5=0,0,(E5-F5)/F5)
のような計算式があれば、結果は　０　で、抽出はしない（条件に合わない）はず。
「直接Ｇ列に抽出条件に合う数字を入れたらうまくいく」から、ここが怪しい。

ここまで書いて、アップしようとしたら、ＯＫだったようですが、
上記のことが原因だったのでは？

>>527
3行で書くにしても行番号を使った悪い方法を教えちゃいかん

年末からのは漸く解決したのか

完成した最終形をみたい！

Dim varTest as Variant
varTest = ThisWorkBook.WorkSheets(1).UsedRange

みたいなRangeを配列に代入するのってMSが公式にサポート表明してたっけ？
KB213798ぐらいしか見つからんかったが、いつから出来るようになったんだっけ？

ageちゃえ！

でふぉ

>>539
そのKBの対象としてExcel97が含まれているのだから、
少なくともExcel97の時点では既に対応していたんじゃないか？

>>539
Excel95でもl出来たが、せいぜい数千個までのセル範囲だったような記憶がある。

数千個はExcel5だったかも知らん。

それRangeを配列に入れてるんじゃないだろ
配列をバリアント型変数に入れてるだけだ

バリアント型変数が配列を取れるのはVBAの仕様
たぶんVBAがEXCELに乗ったときからできてる

んだな。
右辺がThisWorkBook.WorkSheets(1).UsedRange.Valueで２個以上の範囲の場合は２次元配列になってる。
ちなみに下のようにVariant型の配列に代入できるようになったのはExcel2000からだ。
Dim varTest() as Variant
varTest = ThisWorkBook.WorkSheets(1).UsedRangeValue

Valueプロパティの省略時の疑問？？？

-------------------------------------
セルＡ１,Ａ２　に値が入力されてるとして
Ａ１,Ａ２の値をＢ１,Ｂ２へ代入する場合

（１）
　　Range("B1") = Range("A1")
　　Range("B2") = Range("A2")
（２）
　　Range("B1:B2") = Range("A1:A2")

▲結果▲
（１）は、ＯＫだが
（２）は、Ｂ１,Ｂ２には何も代入されない
----------------------------------------
　
なぜだ？？？
　
　

>>547 Excel2007での検証
B1にA1と違う値を入れてやってみれば判るが
（２）は間違いだな。空白に上書きされてる

（２）の式は.Valueの省略とはみなされてないんじゃないか
Range("B1:B2") = Range("A1:A2").Valueならちゃんと動く

>>547
バグに近い仕様じゃないの？
Range("B1:B2") = Range("A1:A2").[_Dfault]と同じ結果になるのが自然だと思うけどな。
ただその症状は昔からよく知られてるからみんな省略しないね。

単にvalue以外になってるだけだろ

Valueの省略と言えばバージョンで動作が異なるものがあったよな。
たとえばComboBox1.List = Range("A1:A10")なんてのはExcel97では動いたそうだが
Excel2000以降では右辺に.Valueをつけないと動かん。

>551
>536さんみたいに　行番号を使うのをやたら非難する人はいる（数スレ前にも話題になってた）けど、
.value　の省略に目くじらたてる人はあまりいませんね。

Valueはつけよう

dictionaryのkeyにvalue付けなかったら色々ぶちこまれた

>>552
>>536はごく当たり前の主張だな。
行番号を取得してCellsで使うなんてアホもいいとこだ。
Valueは分かってるやつはつけなくても良い。　
俺は必ずつけるけど。

>>554
別にいろいろぶち込まれはしないだろ？
単なる参照だよ。

あぁ言ってる意味が分かったわ。
A1〜10が全部同じ値でも
For Each c In Range("A1:A10")
dic(c) = Empty
Next
MsgBox dic.Count
なんてやると10になるわな。
dic(c.Value) = Emptyなら1だな。

仕事で初めてVBA関連のシステムを作ることになりました。
そこで質問があります。
複数の各エクセルファイル内のプログラムで使用する共通ファンクションを
サーバーに置いて保守（バグ/仕様変更対応）しやすいようにする事を検討しています。
そのような理由からローカルにあるマクロプログラムからサーバーに置いてある
共通プログラムを実行する事を考えているのですが、どのような仕組みが良いか
アドバイスを頂けたら助かります。

以下が満たしたいと思っている条件です。
・サーバーに出来るだけ付加を掛けたくない。
・ローカルのプログラムからサーバーのプログラムを呼んだ際に、
　そのサーバーのプログラムのウィンドウが表示されないような仕組みにしたい。
　（裏で動きユーザーがサーバーのプログラムが動いている事を意識しないようにしたい）

何か良い仕掛けをアドバイスして頂けると助かります。。。
上記条件を満たせないとしてもどのようなやり方があるかを教えていただけるだけ
でも参考になります。

>>552
数年前までは、デフォルトプロパティを省略すると動作が遅くなるから必ず書けと言われていた
今は有意な差がほとんどなくなったんで、指摘するとむしろ年寄り乙と言われる
そもそも計算速度を重視するんならC#とかもっと高速な言語を使うべきだし

>>558
ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=29305&forum=7

>>559
昔からItemプロパティの場合、Valueは省略した方が速かったぞ？
Cellsで計ってみなよ。
事前バインドではほとんど差がなかったが。

>>561
多分559はOffice TANAKAあたりを鵜呑みにしてるんじゃね？
あれって計測は当時からいい加減だったからなぁ。

>>562
今高速化テクニック読んできた。
なるほどValueの省略は書き直されてはいるね。
しかし当時も今もCellsでは省略した方が速いんだよね。
いまどきCells主体のコード書く人はあまりいないけど。

コメントくれた皆、ありがと。

Rangeオブジェクトのプロパティの省略が
意図したとおりに動作するかどうかの明確な基準は不明で
質問した件については、どうもバグっぽい、ということようだな。

>>549
これが既知の問題だとは知らなかった。
アホゥな質問をしたことになるな、猛省！
　
●それから文言は正確な方がいいと思うので訂正しとく

　簡単のために「Valueプロパティの省略」と書いたが
　正確には「Rangeオブジェクトのプロパティの省略」
　

図が重なっていた場合のIF文を書いたのですがこれだとうまくいきません
If ActiveSheet.Shapes("B").Top = ActiveSheet.Shapes("char").Top And ActiveSheet.Shapes("B").Left = ActiveSheet.Shapes("char").Left Then

図の移動は
ActiveSheet.Shapes("char").Top = Cells(y, x).Top + 1
ActiveSheet.Shapes("char").Left = Cells(y, x).Left + 1

ActiveSheet.Shapes("B").Top = Cells(y2, x2).Top + 1
ActiveSheet.Shapes("B").Left = Cells(y2, x2).Left + 1
こうしています

どうすればかさなっていることを判定できるでしょうか

ピボットテーブルのフィルタを複数選択可にしたリストボックスと連動させたいのですが、
時間がかかりすぎて困っています。
フィルタ項目のカテゴリは1000以上あり、最初の1つは基準になっているのでリストボックスには入れていません。
一つずつ変化させる場合の動作、全て表示させるボタン、基準を除いてすべて非表示にするボタンを
それぞれ以下のように設定していますが、Listbox1OFFをクリックすると５分程度かかります。
もっと効率化できないものでしょうか。

Private Sub Listbox1_Change()
Dim i As Integer
With Worksheets("PIVOT").PivotTables("PIV").PivotFields("項目")
For i = 0 To UserForm1.Listbox1.ListCount - 1
If .PivotItems(UserForm1.Listbox1.List(i)).Visible <> UserForm1.Listbox1.Selected(i) Then
.PivotItems(UserForm1.Listbox1.List(i)).Visible = UserForm1.Listbox1.Selected(i)
End If
Next i
End Sub

Private Sub Listbox1ON_Click()
Dim i As Integer
For i = 0 To UserForm1.Listbox1.ListCount - 1
UserForm1.Listbox1.Selected(i) = 1
Next i
Worksheets("PIVOT").PivotTables("PIV").PivotFields("項目").ClearAllFilters
End Sub

Private Sub Listbox1OFF_Click()
Dim i As Integer
For i = 0 To UserForm1.Listbox1.ListCount - 1
UserForm1.Listbox1.Selected(i) = 0
Next i
Call Listbox1_Change
End Sub

>>565

TopLeftCell, BottomRightCellを使ったらどうだ


Sub test()
　Dim RngB As Range
　Dim RngC As Range

　With ActiveSheet
　　Set RngB = .Range(.Shapes("B").TopLeftCell, .Shapes("B").BottomRightCell)
　　Set RngC = .Range(.Shapes("char").TopLeftCell, .Shapes("char").BottomRightCell)
　End With

　If Not Intersect(RngB, RngC) Is Nothing Then
　　　MsgBox "重なっとる"
　Else
　　　MsgBox "離れてとる"
　End If
End Sub

　
●TopLeftCell, BottomRightCell, Intersectについては
　必ず、ヘルプ参照のこと！
　

>>566
とりあえずScreenUpdatingをFalseにしてみたら？

>>568
行数制限があるため省いていましたが、ScreenUpdating = Falseは既に入れています

>>566
そのまえにまず変数の使い方覚えた方がいいんじゃないの？
何度同じ記述が出てくるんだよ。
特にListbox1_Changeはひでーな。

1回クリックで5分もかかるレベルだと、小手先の修正じゃ改善は無理
根本的にロジックとアルゴリズムを考え直さないと

計算はもちろん手動にしてるよね？

570だが変数をうまく使えば速くなると言ってるわけじゃないからな。
コーディングの基本を勉強するのが先と言ってるだけ。

どこの処理で時間掛かってるか時間計ってみれば？
.とりあえずPivotItems(UserForm1.Listbox1.List(i)).Visibleで判断しないで
そこだけ別に保存しとけば？
ピポッドテーブルなんて使った試しが無いから
どれだけ時間がかかるかわからんが、そういうのって時間かかりそうじゃん。

>>570
失礼いたしました。勉強します。

>>571
AutoCalculation = Falseは入れてみましたが、かかる時間が変わりませんでした。
自動計算とは無関係なようです。

>>573
前に、If判断自体を外したことがありますが、余計に時間がかかりました。
.PivotItems(UserForm1.Listbox1.List(i)).Visible = UserForm1.Listbox1.Selected(i)
の部分が時間を食うようです。

外したって↓みたいな感じじゃないよな？
どっちにしろピボット止めない限りそれなりに時間かかるんじゃないか？

'If .PivotItems(UserForm1.Listbox1.List(i)).Visible <> UserForm1.Listbox1.Selected(i) Then
.PivotItems(UserForm1.Listbox1.List(i)).Visible = UserForm1.Listbox1.Selected(i)
'End If

AutoCalculation=Falseってなんだ？
未宣言の変数にFalseを代入か？
やっぱ変数の勉強が先だな。
オプションの「変数の宣言を強制する」にチェックつけろ。
それが上達の第一歩だ。

Application.Calculation = xlCalculationManual
入れてなかったって事か？単なる書き間違えか？

Worksheet.EnableCalculationの間違いです。すみません。

>>575
元々、おっしゃるとおりのIfが入っていない形で作成して、
あまりにも時間がかかるのでIfを入れたのが現状です。

Listbox1_Change ってイベントだよな？
これ、コードでSelected変更したときに実行されてないか？
だったらCall Listbox1_Change いらないと思うが

>>580
投稿する際に省略してしまいましたが、イベントを実行するかどうかを制御するために、
FEnableEventsという変数を作成し、その中身を切り替えることによって、
Selectedの部分で呼び出されたChangeからはすぐ抜けるようにしています。

>>560
回答ありがとうございます。
早速試してみたいと思います！

お騒がせしております。
改めてMSDNを見直していて.VisibleItems、.HiddenItemsというプロパティを発見し、
根本的な対策にはならないと思いますが、多少の負荷軽減を図ろうとしたのですが、
テストで書いたスクリプトが、ページフィールドの項目に対して予想通りの動作をしません。

Dim ThisItem As PivotItem
With ActiveSheet.PivotTables("PIV").PivotFields("項目")
.ClearAllFilters
.PivotItems("A").Visible = False
.PivotItems("B").Visible = False
.PivotItems("C").Visible = False
MsgBox "Visible: " & .VisibleItems.Count
MsgBox "Hidden: " & .HiddenItems.Count

For Each ThisItem In .VisibleItems
MsgBox ThisItem & " is visible."
Next ThisItem
For Each ThisItem In .HiddenItems
MsgBox ThisItem & " is hidden."
Next ThisItem
End With

どのようにフィルタをかけていてもVisibleItems.Countが1でHiddenItems.Countが残りの選択肢数となり、
(All)がVisible、残りはHiddenという扱いになっています。
項目をページフィールドから行フィールドに移して実行すると希望通りの動作をするのですが、
何か方法を間違えているのでしょうか？

A列
0,-525
0,24525
4000,-525

上記座標データを使って新しい座標列を作っているが
うまくいかない。XP sp3 + Excel2000。

C列
0,-425
-100,-625
100,-625
0,-425

0,24625
-10,024,425　　　・・・・�@
10,024,425
0,24625

4000,-425
3900,-625
4100,-625
4000,-425

�@は　　-100,24425 とならない。
修整法をおしえてください。

Sub 計算()
Dim chker As Range
Dim dstn As Range
Const dif = 100#

Set chker = Cells(1,1).CurrentRegion
Set dstn = chker.Item(1).Offset(0, 2)

k = 1
With chker
For i = 1 To .Count
myArray = Split(.Item(i), ",")
x = myArray(0): y = myArray(1)
dstn.Offset(k, 0) = "": k = k + 1
dstn.Offset(k, 0) = CStr(x) + "," + CStr(y + dif): k = k + 1
dstn.Offset(k, 0) = CStr(x - dif) + "," + CStr(y - dif): k = k + 1
dstn.Offset(k, 0) = CStr(x + dif) + "," + CStr(y - dif): k = k + 1
dstn.Offset(k, 0) = CStr(x) + "," + CStr(y + dif): k = k + 1
Next i
End With

Set chker = Nothing
Set dstn = Nothing
End Sub

　
結果セル（Ｃ列）の表示形式を"文字列"にしとかないと拙いだらう。

手動で設定した後、実行する、
または、コードでやるなら先頭に下記のどれかひとつを追加

dstn.EntireColumn.NumberFormatLocal = "@"
Range("C:C").NumberFormatLocal = "@"
Columns(3).NumberFormatLocal = "@"
Range("C1").EntireColumn.NumberFormatLocal = "@"

　

>>586

たすかりました。

Excel:2007 OS:XP

Chr関数について教えて下さい〜

cells(1,1)に今"う"という1文字が入っているとして
MsgBox AscW(Cells(1, 1))
とすると
12358
と表示されます。んで、次に
MsgBox Chr(AscW(Cells(1, 1)))
とすると
0
となってしまうんですけど、元の文字（この場合は"う"）が返ってきて欲しい
んですけど…

ExelのVBAでおみくじに画像を貼り付けたいのですが…
「大吉」「小吉」などごとに様々な画像が出るようにしたいのです

よろしければ教えてくださいませんか？

またすごい質問が来たな

>>588
Shift JISでやりたいなら Chr(Asc(r
Unicodeでやりたいなら ChrW(AscW(r

長くなりそうだな

>>589
まず画像だすのはおいといて、おみくじ本体部分は完成してるのか？

>>593
MsgBoxでおみくじ本体は作っているのですが・・・

おみくじの画像表示するだけだったら、
あらかじめ画像をシートに貼り付けておいて
表示するときにシートをVBAで切り替えちゃえば？

じゃあ画像だす方法を決めろ
MsgBoxに任意の画像出すのは難しい。それっぽいフォームを自作するとか>>595のようにするとか

>>591

ありがとう！
ChrWで出てきました

Excel2002、OSはWinXP(SP3)を使用しています。

エクセルからMSCommや他モジュール(EasyComm等)を使ってシリアル通信をするマクロを
組もうとしています。
Asciiの送信は特に問題は無いのですが、コマンドに^A(ctrl+A)というのがあり、
これの送信方法がわからずに困っています。
^A(ctrl+A)を送信するとき、送信バッファにはどう入れればよいのでしょうか？

>>598
キーコードを送信したら？

>>598
ゴメン
文字コードでダメならキーコードで

>>598
Chr(1)

>>566
ボトルネックをぐぐれ。
・・・したいことは分かるが、めんどい。
それを完全に再現出来るxlsあげれば暇な時に調べてやってもよい。

>>589
めんどい。BitBltとLoadPicture調べろ。
IPictureDispとかもあるが、さらにめんどい。

>>602
ボトルネックは調べてみましたが、この場合の何がボトルネックに相当するのかよく分かりませんでした。

データをダミーデータにし、余計な部分を削ったものを上げました。
http://u3.getuploader.com/madcatz/download/304/test.rar
（パスはメール欄）
ダミーデータでサイズが大幅に減っているためか、全OFFにした際、5分もかからなくなりましたが、
実用的ではないことには変わりません。
軽量化のヒントをいただけますと幸いです。

開くことすらできんぜよ

rarかよｗ

鯖busyで落ちない

rarがまずいようですので、zipで上げなおしました。先ほどのは消しておきます。
http://u3.getuploader.com/madcatz/download/305/test.zip

>>607
2007? 2010?
環境くらい書いてくれ。

>>608
何故か書いたつもりでおりました。ごめんなさい。2007です。

行の削除についてなんですけど、、例えば
2行目から4行目を消すなら
Range("2:4").Delete
ってしますよね。

これを変数を使ってn行から n+100行を削除したいんですけど、どの様にすればよろしいのでしょ

>>610
Rows(n).Resize(100+1).Delete
すなわち
Rows(n).Resize(101).Delete

少し不細工な書き方なら
Range(Rows(n),Rows(n+100)).Delete

も一つ不細工な書き方もあったか
Range(n & ":" & n + 100).Delete

Resizeっての、初めて知りました。ありがと！

>>566
Pivotなど使ったことないんでなんだが
全てクリアーなんだからフラグでも使ってChangeのForを飛ばしたらどうだらう
で、メンテ部分だけ。。
--------------------------------
Private Flag As Boolean
------------------------------------
Private Sub Section_Change()
　With Worksheets("PIVOT").PivotTables("TABLE").PivotFields("部署")

　　　If Flag Then
　　　　　Flag = False
　　　　　i=Form.Section.ListCount - 1
　　　Else
　　　　　For i = 0 To Form.Section.ListCount - 2
　　　　　　If .PivotItems(FS.List(i)).Visible <> FS.Selected(i) Then
　　　　　　　.PivotItems(FS.List(i)).Visible = FS.Selected(i)
　　　　　　End If
　　　　　Next i
　　　End If

　　　.PivotItems("(blank)").Visible = FS.Selected(i)
　End With
End Sub
--------------------------------
Private Sub SectionOFF_Click()
　Flag = True　　'▼必要な場所（例えば先頭）
End sub
---------------------------
　
それにしても何て寒いんだぁー、、底冷えの鹿児島より
　

>566
確認した。
使用詳細がわからんので、使える方法で。

(1) Section_Change
For文のToで指定してるところをローカル変数にする
Dim iIndex As Long
iIndex = Form.Section.ListCount - 2
For i = 0 To iIndex

(2) 自動計算をやめる
停止 Application.Calculation = xlCalculationManual
再開 Application.Calculation = xlCalculationAutomatic

(3) SectionOFF_Click
Section_Changeをやめる。
Worksheets("PIVOT").PivotTables("TABLE").ClearTableでクリアしたあとで
UserForm_InitializeやItemSet等の中から必要な処理を追加。

あとは、ステータスバーの「処理中」を、細かく処理状況がわかるようにすると
長く待っているストレスが軽減される(気分的に)

>>566
次に重い If .PivotItems(UserForm1.Listbox1.List(i)).Visible <> UserForm1.Listbox1.Selected(i) Then
一番重い→ .PivotItems(UserForm1.Listbox1.List(i)).Visible = UserForm1.Listbox1.Selected(i)

だからPivotItems(UserForm1.Listbox1.List(i)).Visibleを変数に変える様前言ったんだけど
結局どうなったの？やって大して変わらなかったの？
ピポッドテーブル使う設計自体が良くないと思うんだけど変えるのはまずいの？？

>>616
俺も変数使えといったけど、たしして変わらんと思うなぁ。
それにPivotItems(UserForm1.Listbox1.List(i)).Visibleは変数にできないんじゃない？
上は取得で下は設定だし。
もちろんUserForm1.Listbox1.List(i)は変数にできるが、これの取得にはそれほど時間
かかってないと思う。

ところでみんなに聞きたいんだがSection_Changeの変数FSって何型が適当？
Object型なら変数使わないで
　　　　　　If .PivotItems(Section.List(i)).Visible <> Section.Selected(i) Then
　　　　　　　.PivotItems(Section.List(i)).Visible = Section.Selected(i)
なんてやった方がまだいいと思うんだが、変数にするときの型が分からん。
ListBox型だと思ったら型不一致になる。

>>617

　　Dim FS As MSForms.ListBox

意味取り違えてたら勘弁！
　

　

皆様レスありがとうございます。
>>614
For文をとばしてしまうと、実際にフィルタが変更されないと思うのですが……

>>615
(1)、(2)はそれぞれTimerで計測してみましたが変化がありませんでした。
(3)はテーブルをクリアした状態でフィルタを変更しろということでしょうか。
試してみます。

>>616
.Visibleまで含めて変数に入れるということが発想に浮かんでおりませんでした。
しかし、PVという変数をObjectで宣言しておいてSet PV = .PivotItem(FS.List(i)).Visibleとやると、
型が違うというエラーになります。
なお、元々ピボットテーブルでやっているものに補助で操作パネルをつけるという経緯なので、
ピボットをやめるというのは難しいです。

>>615
SectionOFF_Clickの最初にWorksheets("PIVOT").PivotTables("TABLE").ClearTableを入れ、
末尾にWorksheets("PIVOT").PivotTables("TABLE").PivotFields("部署").Orientation = xlPageFieldと
Call ItemSetを入れると、速度が劇的に改善されました。
十数秒はかかりますが、今までに比べれば許容範囲内です。
早速本体の修正にとりかかります。
ありがとうございました。

>>618
あ、そうかMsFormsだったか。

>>618
VisibleプロパティってTrueかFalseしか返さないだろ？
エラーになるのは当然だな。

アンカー、ミスったわ

>>621
PVという関数があるようでしたので、後に別の変数名に変えて試していますが、
Booleanにしても、Dimで型を指定しなくてもエラーになります。
単純にイコールで代入するということならば、フィルタの変更には使えないので、
iが変わるごとに1度ずつしか参照されず、代入分が余計に負荷になると思うのですが、
認識が誤っているのでしょうか。

もうね、ピボットテーブルやめて、生データ自分で拾って表を作り直した方が早いんじゃない？

>823
.Visibleまで含めて変数に入れてもしょうがないんだよ。
>>617に理由書いてるだろ？

>>824
おれもそう思う。

>>625
元々、
If .PivotItems(UserForm1.Listbox1.List(i)).Visible <> UserForm1.Listbox1.Selected(i) Then
.PivotItems(UserForm1.Listbox1.List(i)).Visible = UserForm1.Listbox1.Selected(i)
End If
としていたのに対して、変数を使うようにというアドバイスをいただいたと認識しているのですが、
結論としては、UserForm1.Listbox1をMSForms.ListBox型の変数に入れる以外には、
ここで変数を使うメリットはないということですね。
となると>>617の方の意図がよく分からなくなりますが……

ピボットをやめた方がいいというのは重々承知しておりますが、
いくつか有効なアドバイスもいただけましたので何とか使えるものになりそうです。
ということで、これにて失礼させていただきます。皆様ありがとうございました。

>>589
はい。思ってるのと違うかもしれんが。参考にならなかったらごめん。
http://www.dotup.org/uploda/www.dotup.org1363610.zip.html

最近学び始めたど素人です。
セルの文字列値を読み取って、処理したいのですが、
moji = LEFT(A1,1)
のように書けば、A1のセルの左端1文字目をmojiに収納することができるのでしょうか？

その書き方だと、A1（という変数）の左１文字
A1のセルなら、moji=LEFT(Range("A1"),1) だな

Rangeの前に、どのシートなのか書いといた方がいい
Rangeの後に、中身の文字だってのも書いといた方がいいかもしれん
Rangeの代わりにCellsってのもあるけど、最近つかわれてないなぁ

>>629　なるほど。とても分かりやすい解説ありがとうございます。
早速行ってみます。

Cells表現って使われなくなってきたん？
VBA使うなら圧倒的にCellsの方が可読性が高いと思うんだけど。

自分もCells派だ。

Rangeのいいところ：名前でセルを指定できる

シートが違ってセルの位置が変わっても名前付きセルなら同じコードで対応できる
つーか、Range(\\\"A1\\\")みたいにマジックナンバーを使うんじゃねえ！

ループの中で使うならRangeもCellsもどちらも駄目だな。
With Worksheets("Sheet1")
　　For i = 1 To ***　Step 2
　　　.Cells(i,1).Value = ***
　　Next
End With
とか
With Worksheets("Sheet1")
　　For i = 1 To ***　Step 2
　　　.Range("A"& i).Value = ***
　　Next
End With
こんなのはどちらもダメだな。
いったんRange型の変数にセットしないとね
Set c = Worksheets("Sheet1")Range("A:A")　'Worksheets("Sheet1")Cells.Resize(,1)などでもいい
For i = 1 To *** Step 2
　　c(i).Value = ***
Next
みたいな感じ。

Cellsしか使わないなぁ

XP SP3 + Excel2000

シートを3枚選択して縮小をかけるマクロで、�@のArrayを十何枚ものシートにも
対応できるように簡単にできないでしょうか？

Sub zoom85()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select　　　�@
Sheets("Sheet1").Activate
ActiveWindow.Zoom = 85
Sheets("Sheet3").Select
End Sub

>>636
http://ideone.com/y39mK

VBAの処理でセルの値をクリアして、その結果、
specialcells(xlcelltypelastcell )で取得できる範囲を更新する（縮める）には、
一度ブックを保存するしかないのでしょうか。

オブジェクト（角丸四角形）とコネクターがツリー構造でつながっていて

そのツリー構造をセルに出力したいんですけど。。。。

セルに文字で上位、下位情報を出力したいです。オブジェクトの上位下位を考える際に座標位置で探るのかなぁと思ったんですが、どうすればいいのかわからなくて。。。。

いまいち書き方がわかりませんでした。教えてください！！

例
　　どうぶつ
　　　 ∧
　いぬ　 ねこ
　 ｜　
　柴犬

みたいなツリーに対して

どうぶつ　　いぬ
どうぶつ　　ねこ
いね　　　　柴犬

こんな感じで出力したいです。＾＾

エクセル2003のマクロを2010で使用しようとしたら、エラーメッセージが出ました。
なにか変換ソフトがあるのでしょうか？

>>637

>>Worksheets.Select ' --全てのシート

arrayに引きずられていました。

ありがとうございます。

>640
最低でも、エラー内容と、エラー発生した行の内容くらい書かないと、誰も答えてくれないでしょ。
エラーがExcelのバージョン違いによるものなのか、ＰＣ環境の違いによるものなのかもわかりません。

>>642
ただ単にボタンを押すと時間を取り込むものなのですが、
「このブックでマクロが使用できないか、全てのマクロが無効になっています」
と表示されます。セキュリティでマクロ有効にしたのですが、無理です。

>>643
セキュリティセンターの設定で信頼できる場所にエクセルファイルの置いてあるフォルダを追加

お邪魔します、VBA初心者です。
現在、１時間に観測したデータ１０個を平均して１個にし、
次に１時間後のデータを同じく平均して１個にするのを約１か月分繰り返す計算を考えています。

平均の出し方や同じ計算を繰り返す方法は大体分かったのですが、
次の行に行かず、２時の計算が終了したら３時の計算に移りたいんです。
なので、次に計算する範囲を先読みして指定して繰り返すのにいい方法はありませんか？

>645
計算対象のデータがどういう風にシート上に配置されているのかわからないので、
回答したくても、できません。

>>645
B1=AVERAGE(A1:A10)

>646 説明不足でした、すみません。
Aに日時　Bに観測値　
Aは同じ日時が10個縦に並んで連続してる状態です。
たとえばCに1時間ごとの日時を並べて、それに合わせて平均値を詰めて行きたいです。

A　　　　　　　B 　　C 　　　D
1/1/00:00　　１０ 1/1/00:00 0時の平均
1/1/00:00　　１２ 1/1/01:00　1時の平均
1/1/00:00　　１４ 1/1/02:00　2時の平均
：　　　　　
　：
1/1/01:00　　２０
1/1/01:00　　１３

＞647
そこから次の時間の平均計算に移動する方法をお聞きしたいです。

>>648
D1=AVERAGE(B1:B10)
D2=AVERAGE(B11:B20)
D3=AVERAGE(B21:B30)

>>648
無理してVBA使わないでピボットテーブル使えば？

>>648
Dim b As Long, d As Long, i As Long, cnt As Long, ttl As Double
d = Cells(60000, 4).End(xlUp).Row
If d <= 1 Then
　b = 1
Else
　b = 10 * (d - 1) + 1
End If

Do While Cells(b, 2) <> ""
　cnt = 0
　ttl = 0#
　For i = 0 To 9
　　If Cells(b + i, 2).Value <> "" Then
　　　ttl = ttl + CDbl(Trim(Cells(b + i, 2).Value))
　　　cnt = cnt + 1
　　Else
　　　Exit For
　　End If
　Next i

　If cnt < 9 Then
　　Exit Do
　Else
　　Cells(d, 4).Value = ttl / 10
　　d = d + 1
　　b = b + i
　End If
Loop

私も649、650に賛成です。

質問者のレベルではピボットは無理かも。。
>>649でいけばいいと思うが。。。
　
　
Sub Test()
　Dim R As Long
　Dim Lst As Long
　For R = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 10
　　　Lst = Lst + 1
　　　Cells(Lst, 3) = Cells(R, 1).Value
　　　Cells(Lst, 4) = WorksheetFunction.Average(Cells(R, 2).Resize(10))
　Next R
End Sub
　

返答ありがとうございます。
とりあえず皆さんのを参考にもう一度チャレンジしてみます！

OLEObjectのTextBoxでBackStyleを0に設定しました
手動でテキストを入力するとBackStyleの設定は0のままなのに、透明ではなくなってしまいます
入力しなくてもクリックしただけで透明でなくなってしまったり、意図しないタイミングでまた透明になったりします
マクロからObject.Textで文字列を入力すると透明のままです
Objectのプロパティの設定だけで絶対に透明を維持する事はできないのでしょうか？

WorksheetFunction について質問します。
"Run-time error'1004':
Unable to get the Atan2 property of the WorksheetFunction class"
が出るようになりました。

Atan2が動いているモヂュールの入ったファイルを別保存していじっていたら
エラーがでました。元ファイルのモヂュールは動きます。

なにか示唆ありますでしょうか？ XP SP3 + Excel2000

アドインが選択されていないと思われ

>>655
ワークシート関数のエラーは、シート上では#NUM!とか#VALUE!とか場合に応じて色々出るけど、
VBAから呼び出した場合はほとんどみんな同じエラー1004になるから原因が追及しにくい。
Atan2のパラメータが両方とも0になってないかチェックしてみ

あと、そのExcelって英語版？

vbaは思ったより奥が深くて飽きないな。

それはvbaの深さじゃない。に
1000点。オッズは256倍

なんの深さと言えば正しいの？

>>657

x,y項の計算結果が ともに先頭で０になっていました。英語版です。
回避ルチンを挿入しました。

ありがとうございます。

複数選択を可能にしたリストボックスをUserForm_Initializeで全選択させておいて
タブでフォーカスを移してカーソルキーでリスト内を移動しようとすると
１回だけChangeイベントが発生します。
また、リストボックスをクリックした場合にもChangeイベントだけ生じて
リストの選択に変化がないことがあります。これは法則がよく分かりません。
回避方法はあるでしょうか？

VBA始めたばかりの超初心者です。
2つご教授願います。

１つめは、A列に400件郵便番号が入っていて
そのA列に1112222とハイフン抜きになっている文字列に関して、
全て111-2222とハイフンを付けたいのですが
どうマクロ組んだらよろしいでしょうか

２つ目はB列のセル内の左端にある
スペースを消して左に文字列を詰めたい場合　[　12345]→[12345]
どうマクロを組んだらよろしいでしょうか。

よろしくお願い致します。

openステートメントで既に開いているファイルをlock read writeで開こうとすると
エラーが出るのは開かれててまともな排他制御できらいからエラーだよんって
解釈でいい？

>>663
Sub 郵便番号修正()
　　Range("A1:A400").NumberFormatLocal = "000-0000"
End Sub

Sub 左詰め()
　　Range("B1:B400").NumberFormatLocal = "@"
　　For r = 1 To 400
　　　　Cells(r, 2) = LTrim(Cells(r, 2))
　　Next
End Sub

愛の深さ
欲の深さ
業の深さ

>>660
プログラミング全般

Excelシートで列を指定してソートってVBAだと一回に3つまでしか指定できないんですか？

Range.Sortメソッドに頼るならそうなるな。

>>668
Excel2007以降なら何個でもいける。
ただし2003までのソートと同じ書き方では出来ないけどな。

sortはpythonと同じようにかければメチャ楽なのになぁ。

PERSONAL.XLSに登録された複数のモジュールを同時にエクスポート&解放したいのですが、
どうすれば良いですか？
一つ一つクリックして、右クリックで解放を選ぶのは非常に面倒です。
検索などしてもどうやっても方法等書かれたページが見つかりません。
どなたか教えて下さい。

>>672
マウスやキーボード操作で一括指定する方法はない
まとめてやるにはエクスポートするVBAを作るしかないと思う

>>673
むぐう、どなたか親切な方、全エクスポート&解放するVBAを教えて下さい。

マクロで作ろうと思っても、VBA上の操作で記録出来ないじゃないですか？
どうやってやれば良いのですか？

>>674
VBAから標準モジュールをエクスポートするためには色々と設定が必要。

まず参照設定を開いて「Microsoft Visual Basic for Applications Extensibility」にチェックを入れる
次にセキュリティセンターを開いて「Visual Basct プロジェクトへのアクセスを信頼する」にチェックを入れる
ここまで準備して、やっとVBProjectオブジェクトが使えるようになる
このオブジェクトでインポート、エクスポート、その他色々な機能が使えるようになる

VBProjectはけっこう強力、かつ危険なオブジェクトなので、使い方を自力で調べられるレベルでなければ
使わない方がいい。

>>672
解放の手順を慎重に調べてuwscとか使えば？
たぶん
コンテキストメニュー → R (解放) → Enter (エクスポート) → Enter (ファイル名決定)
の繰り返しあたりでできるんじゃないかと思う
こういう場合、繰り返しの回数は手動設定が一番簡単

Excel VBAで、フォームボタンを押したらWebページ保存するようなの作ったんですが、
(当然ですが)ボタンもhtmlに保存されてしまいます。
表示しないテクニック(？)はないでしょうか。

イメージ的にはExcelで作ったテーブルをそのままhtmlにしてWebに公開したいような感じです。

選択範囲を保存にして、ボタンを選択範囲外にするとか？

フォームは検証が面倒なので、サンプルうｐしたほうが解決しやすい

フォームじゃないとだめ？
ツールバーにボタンを作るとか、ショートカットキーとか
いろいろ方法はあると思うけど

保存の直前に一時的にフォームを非表示にするとどうなるだろう

>>678, >>680
そういう一般的なテクがあるのかなーと思いまして質問しました。

>>679
ボタンの中身はSaveAsするだけの単純なものです。
あとファイル名とかキャンセル時処理とかごにょごにょ。

>>681
バージョン書いて

>>682
Excel 2003 SP3
ActiveWorkbook.SaveAs Filename:="index.html", FileFormat:=xlHtml ・・みたいな感じです。

試してみたけど、Visible = Falseにしてもデータ自体は表示されないだけで保存されちゃうんだね
保存されたhtmlを直接編集して不要な部分を手作業で削除するとか、新規ブックに必要なデータだけをコピーしてから保存するしかないかも
お手軽にやるならhtmlとxmlをテキストエディタ編集、VBAだけで全自動でやるなら新規ブックで保存かな

なるほどありがとう。
あんまり複雑にしても他の人がメンテ不可能になるし、結局やることは「名前をつけて保存」押すのと同じですから、困ったもんですね・・

でも大変参考になりました。

>>685
フォームじゃなくてツールバーにしたら？
ボタンの登録や削除もVBAからできるよ

KEYの重複チェックってどうやってするのが
効率良いですか？
例えばA列に年、B列に組、C列に出席番号、D列に名前
だとして、全学年6万人ぐらいとかのパターンです。
ループでrow方向にゴリゴリ回すとちょっと遅い様な気がして。
１列だけならfindが早い気がするんですが

>>687
keyってのはユニークな値の入ったフィールドのことだから、その用法は間違い

調べたいのはレコードの重複？
だとしたら一番単純明快なのは全部1つに連結した物を作業列に入れる

>>688
そうですレコードの重複。作業列って事はE列を隠しセルにして
関数で全部くっつけるとかですか？

さすがに足し合わせは初心者過ぎるだろ。
調べたいキーのみSELECT COUNT(*) ・・・ GROUP BY KEY1, KEY2, ・・ でいいだろ

>>689
関数でもいいけど普通は数式で連結
E1=A1&B1&C1&D1
とか入れておく

>>690
まあSQLを使った方が早いわな
でもここはExcelスレだから

SQLだと編集中のレコードがチェック出来なくないですか？
何か勘違いしてるんでしょうか私が

>>691
ああ、すいません関数じゃなくて数式ですね

簡単な方法でできるのにわざわざ難しくて面倒な方法を採用する

>>687
でくしょなり

質問です
ツール→マクロでマクロの選択画面がでてきますよね。
あれに登録しているSubプロシージャが出てきますけど、出さなくする方法ってありますか？
今は出したくない奴については無理やりダミーの引数与えてださなくしているんですけど、そうすると
単独では実行できなくなるし、どうしたものかなぁ…っと思ってんですけど。

セキュリティ云々なんて大層なことではなく、あんまり一杯出てくると紛らわしいってのが理由なんですけどね

>>694
私としても簡単な方がいいので、そういう方法があるのなら教えてください

>>695
でくしょなりは登録する時の全件チェックではやってるんですが
単体チェック（全体チェックでセルの色を変えてるのでそれを戻すチェックです）
だと一回全部登録しないと駄目だから
結局ループするのと大して変わらないんじゃないかと思って使ってないです。
dictionaryに一気に登録する方法があったりするのでしょうか？

>>696
目的のプロシージャを探すのが面倒だっていうのなら、名前の先頭にa_を付ければ
リストの先頭に出てくるようになるよ
ダミーの引数を書くより簡単

Sub test()
↓
Sub a_test()

>>696
privateにするか、出したくないプロシージャをまとめて
ひとつのモジュールに入れるとか。
確かモジュール丸ごと出さなくするのあったはず

>>698
60000件ぐらいたいしたことないでしょ

>>699
確かにそうすると先頭に来るから判りやすいっすね

>>700
privateにすると出てこなくなるの初めて知った w


有難うです m(_ _)m

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1254411767
これ意外と難しいな…
csvの中の3番目の質問の意味が分からんが

>>703
仕様に不明な部分がある
00分ちょうどに出入りがあった場合は台数をどちらにカウントするのか？
分類する時、入出場時間が指定期間外にまたがった車はどう処理するのか？
ユーザーインターフェースや出力はどうするのか？

あと、曜日の列は冗長だな

00分に駐車場内にいる＝駐車している、でいいんじゃね？
つかこれ、VBAじゃなくて関数使ってワークシートで計算する問題じゃね？

ワークシートでやるのか
それでもどうやるんだろうな

ここに書かれたってことはVBAの問題でしょ
時刻がソートされてないからワークシートじゃ効率悪すぎる

>>698
>単体チェック（全体チェックでセルの色を変えてるのでそれを戻すチェックです）

xl2007以上を使ってるんなら、色でフィルター掛ける

それ以外のバージョンなら、色を付けると同時に別セルにフラグでも立てておき、そのフラグでフィルターをかける

その後、SpecialCellsで処理するってのはどうよ

>>707
>時刻がソートされてないからワークシートじゃ効率悪すぎる

問題はみてないが、
ソートがされてないのが効率が悪いと思うなら
ソートして、処理後に戻せばいいだけじゃないのか
VBAで処理するデータはふつうソートなんかされてないぞぃ
もち、ソートもVBAで、
　

　

>>709
いやだからVBAの問題でしょって言ってるんだけど

これC/C++宿題スレで見たことあるぞ

ｗｗｗｗｗｗ

きっと宿題ミスったんだなｗ
どうみてもワークシートでやるレベルのそれにしか見えないけど

>>710

確かにそう言っとるな
　I apologize....