1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2010/01/06(水) 12:34:58

0185デフォルトの名無しさん

2010/02/05(金) 13:21:40

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

0186デフォルトの名無しさん

2010/02/05(金) 21:18:11

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

0187デフォルトの名無しさん

2010/02/05(金) 21:18:21

>>184
もっと良いやり方があるかも知れないけれど
現在のコードを尊重する形で考えてみた
下記ではどうでしょう

Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(Array(235, 180, 200), Array(255, 110, 80), Array(255, 0, 0))
For i = 0 To 2
　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
　Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)(0), myIndex(i)(1), myIndex(i)(2))
Next i
End Sub

0188デフォルトの名無さん

2010/02/05(金) 23:24:09

>>187,185
ありがとう。こうしました。
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(RGB(235, 180, 200), RGB(255, 110, 80), RGB(255, 0, 0))
For i = 0 To 2
　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
　Selection.ShapeRange.Fill.ForeColor.RGB = myIndex(i)
Next i
End Sub

0189デフォルトの名無しさん

2010/02/06(土) 01:32:22

selectしなくてもいいじゃん

0190デフォルトの名無しさん

2010/02/06(土) 01:43:19

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

0191デフォルトの名無しさん

2010/02/06(土) 07:54:23

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

0192デフォルトの名無しさん

2010/02/06(土) 08:27:51

参照設定

0193デフォルトの名無しさん

2010/02/06(土) 08:34:39

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

0194デフォルトの名無しさん

2010/02/06(土) 09:56:19

Range.CopyFromRecordset

0195デフォルトの名無しさん

2010/02/06(土) 10:15:47

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

0196デフォルトの名無しさん

2010/02/06(土) 16:57:38

ログデータから取得したリストがあり、頭に種別を表す連番1～16が振ってあります。
このリストを上からチェックしていき、種別番号が1ならA列から始まる表に、2ならD列から始まる表に
という具合に、種別ごとの表に落とし込みたいと考えています。
それぞれの列に落とし込むことはできたのですが、貼り付ける行が前の列からの続きになってしまい悩んでいます。
具体的には、A1～A10が種別1、D1～D5が種別2、G1～G10が種別3としたいのに、
A1～A10が種別1、D11～D15が種別2、G16～G20が種別3となってしまうのです。

If hantei = 1 Then
Range("A" & i + 100).Formula = (参照式)

0197196

2010/02/06(土) 17:04:34

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

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

0198デフォルトの名無しさん

2010/02/06(土) 17:06:27

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

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

OS：WindowsXp Excel：2000

0199デフォルトの名無しさん

2010/02/06(土) 17:25:22

>>196

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

0200デフォルトの名無しさん

2010/02/06(土) 17:59:03

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

0201デフォルトの名無しさん

2010/02/06(土) 20:24:51

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

0202デフォルトの名無しさん

2010/02/07(日) 02:14:42

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

’各テキストボックスが空欄だった時の対処
If Me.YJ1.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ2.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ3.Value = "" Then
MsgBox("空欄があります。")
・
・
・
（YJ23まで）

’（空欄対処の続きで）各テキストボックスが数字以外だったときの対処
ElseIf IsNumeric(YJ1) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ2) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ3) Then
MsgBox("半角数字で入力してください。")
・
・
・
（YJ23まで）
Else
sum_t = YJ1*0.15+YJ1+0.79+　…（YJ23まで）

という風なプログラムを現在組んでいます。
空欄の検出はしてくれるんですが、YJ23まで半角数字なのに"半角数字で…"のエラーが出ます。
半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？

0203デフォルトの名無しさん

2010/02/07(日) 03:10:19

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

0204デフォルトの名無しさん

2010/02/07(日) 05:20:15

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

0205デフォルトの名無しさん

2010/02/07(日) 06:26:06

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

0206デフォルトの名無しさん

2010/02/07(日) 07:03:38

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

0207デフォルトの名無しさん

2010/02/07(日) 08:07:23

190のcellsは不細工で事前バインドが云々の解説でもしておくか。
配列とかはおいといて、単純に範囲をループする場合の実行時バインドと事前バインドの一例

もっとも不細工(cells(i,1)の形が実行時バインド)
dim i as long
For i = 1 To cells(rows.count,1).end(xlup).row
　　　If cells(i,1).value="foo" then
　　　　　cells(i,2).hogehoge
　　　end if
Next i

まだまだ不細工(Itemプロパティが実行時バインド)
dim r as range
dim i as long
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for i=1 to r.count
　　　If r.item(i,1).value="foo" then
　　　　　　r.item(i,2).hogehoge
　　　end if
next i

上の二つよりまとも(cは事前バインド)
dim r as range
dim c as range
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for each c in r
　　if c.value="foo" then
　　　　c.offset(,1).hogehoge
　　end if
next c

0208デフォルトの名無しさん

2010/02/07(日) 08:10:50

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

0209デフォルトの名無しさん

2010/02/07(日) 08:14:34

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

0210デフォルトの名無しさん

2010/02/07(日) 08:17:38

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

0211デフォルトの名無しさん

2010/02/07(日) 08:23:01

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

0212デフォルトの名無しさん

2010/02/07(日) 09:27:36

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

0213デフォルトの名無しさん

2010/02/07(日) 10:58:03

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

0214デフォルトの名無しさん

2010/02/07(日) 11:09:02

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

0215151

2010/02/07(日) 13:58:07

>>214
技術検索番号は今のところ10001～10165までの数値です。
おっしゃるとおり10でも10001が検索されてしまっていました。今現在は、皆さんの意見を参考にして

Private Sub 技術検索ボタン_Click()
　Dim sn As String
　 '検索番号の設定
　sn = 技術検索番号.Value
　'検索の処理
　　With Sheets("全データ")
　　　Set found = Worksheets("全データ").Range("B:B").Find(sn, , LookAt:=xlWhole)
　　'見つからない場合の処理
　　If found Is Nothing Then
　　MsgBox ("技術コードが見つかりません。5桁の数字を正しく入力してください。")
　　'見つかった場合の処理（フォーム上のtextboxに値を代入）
　　Else
　　　Me.会社名表示.Value = .Cells(found.Row, 4)
　　　Me.処理機郵便番号表示.Value = .Cells(found.Row, 5)
　　　Me.処理機住所表示.Value = .Cells(found.Row, 6)
　　　Me.電話番号表示.Value = .Cells(found.Row, 10)
　　　Me.メールアドレス表示.Value = .Cells(found.Row, 9)
　　　Me.事業区分表示.Value = .Cells(found.Row, 11)
　　　End If
　　　End With
End Sub

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

0216196

2010/02/07(日) 14:54:05

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

0217デフォルトの名無しさん

2010/02/07(日) 18:48:43

>>215
みなさんの意見って>>161の意見は参考にしてないなｗ
まぁここに限らずよくない方法が採用されるのが掲示板の常なのでしょうがないね。
しかしどうしても行番号使うにしても、５回も同じ行番号を取得しちゃいかんぜよ。
何度も使うものは変数に格納してから使わないと。

参考までに行番号は取得しないで列番号をそのまま使うならこんな方法もある。
Else以下だが
Set found =found.EntireRow.Cells
Me.会社名表示.Value = found(4).Value
Me.処理機郵便番号表示.Value = found(5).Value
Me.処理機住所表示.Value = found.Row(6).Value
Me.電話番号表示.Value = found(10).Value
Me.メールアドレス表示.Value = found(9).Value
Me.事業区分表示.Value = found(11).Value

実行時バインドになるが、Offsetと違って列番号がそのまま使える。
found(4)はfound.Item(4)の略ね。
またSet found =found.EntireRow.Cellsの部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。
気になるなら別の変数にすればいい。

0218デフォルトの名無しさん

2010/02/07(日) 18:54:31

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

0219デフォルトの名無しさん

2010/02/07(日) 21:05:40

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

0220デフォルトの名無しさん

2010/02/07(日) 21:27:49

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

0221デフォルトの名無しさん

2010/02/07(日) 21:30:59

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

0222デフォルトの名無しさん

2010/02/07(日) 21:50:57

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

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

0223デフォルトの名無しさん

2010/02/07(日) 22:14:11

出来ないと思う。

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

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

0224デフォルトの名無しさん

2010/02/07(日) 22:31:05

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

0225デフォルトの名無しさん

2010/02/07(日) 23:34:38

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

0226デフォルトの名無しさん

2010/02/08(月) 00:36:40

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

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

0227デフォルトの名無しさん

2010/02/08(月) 06:30:55

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

0228デフォルトの名無しさん

2010/02/08(月) 08:19:12

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

0229デフォルトの名無しさん

2010/02/08(月) 09:11:46

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

0230デフォルトの名無しさん

2010/02/08(月) 09:15:32

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

0231デフォルトの名無しさん

2010/02/08(月) 09:58:19

いい加減、お前うざいよ

0232デフォルトの名無しさん

2010/02/08(月) 10:00:06

同意。

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

0233デフォルトの名無しさん

2010/02/08(月) 10:02:22

別にうざくはないが

0234デフォルトの名無しさん

2010/02/08(月) 10:04:01

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

0235デフォルトの名無しさん

2010/02/08(月) 10:23:30

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

0236デフォルトの名無しさん

2010/02/08(月) 10:27:45

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

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

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

0237デフォルトの名無しさん

2010/02/08(月) 10:42:24

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

For i = 0 To 100000
　　' ここにコード
Next

s = Range("A1").Value => 1416ms
s = Cells(1, 1).Value => 670ms
s = r.Cells(1, 1).Value => 858ms '事前にdim r as range, set r = range("A1")を実行

結論：
Cells(x, x)を使わない奴は馬鹿。

0238デフォルトの名無しさん

2010/02/08(月) 10:45:58

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

0239デフォルトの名無しさん

2010/02/08(月) 11:05:58

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

0240デフォルトの名無しさん

2010/02/08(月) 11:14:44

古いＰＣだが

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

0241151

2010/02/08(月) 12:22:11

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

　　　A　　　　B　　　　　C　　　　D　　　　　E　　　l　　　F
1　名前　　りんご　バナナ　みかん　　ブドウ　 l　　余り　
2　たけし　　１　　　　　０　　　　０　　　　　４　　　l　　　0
3　ともこ　　０　　　　　２　　　　０　　　　　４　　　l　　0.25
4　とおる　　１　　　　　２　　　　３　　　　　０　　　l　　0.73
5　さちこ　　１　　　　　２　　　　０　　　　　０　　　l　　　0
6　たける　　０　　　　　０　　　　０　　　　　４　　　l　　0.84
・
・
・
というような表を作っています。
フォームでりんごを選択し検索すると、りんごを食べれる【たけし・とおる・さちこ】
を検索（B2:E6から１を検索）し、与えます。
余りがあればさっき与えた人以外のところに持っていき、与えます。
それを繰り返して、条件付き組み合わせのような形で検索したいと思っています。
この場合ですと、リンゴを100個持っているとすると、　※（）内は残個数

・たけし（0）
・とおる（73）→たけし（0）
・とおる（73）→さちこ（0）
・さちこ（0）

の４パターンが検索されます。
各パターンで残個数が0になれば検索終了です。

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

0242151

2010/02/08(月) 12:40:38

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

0243デフォルトの名無しさん

2010/02/08(月) 12:48:45

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

0244デフォルトの名無しさん

2010/02/08(月) 13:57:49

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

0245デフォルトの名無しさん

2010/02/08(月) 14:20:57

エスパーの出番だな

0246デフォルトの名無しさん

2010/02/08(月) 15:11:09

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

0247デフォルトの名無しさん

2010/02/08(月) 23:12:59

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

0248デフォルトの名無しさん

2010/02/08(月) 23:47:16

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

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

0249デフォルトの名無さん

2010/02/09(火) 00:19:12

下記test1で「あ」を図の真ん中に表示したい。
test2では文字をとりだせない。

Sub test1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50).Select
With Selection
.Characters.Text = "あ"
End With
Range("a1").Select
End Sub

Sub test2()
MsgBox ActiveSheet.Shapes(1).Characters.Text
End Sub

0250デフォルトの名無しさん

2010/02/09(火) 03:10:36

>>249
Sub test1()
　　With ActiveSheet.Rectangles.Add(10, 10, 50, 50)
　　　　.Text = "あ"
　　　　.HorizontalAlignment = xlHAlignCenter
　　　　.VerticalAlignment = xlVAlignCenter
　　End With
End Sub

Excel任せだと少しずれてしまうのは仕様。
ぴったり中央に文字を出したいときは、背景が透明のテキストボックスを
図形の上に重ねて、座標を自分で計算するしかない。

Sub test2()
　　MsgBox ActiveSheet.Shapes(1).TextFrame.Characters.Text
End Sub

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

0251デフォルトの名無しさん

2010/02/09(火) 11:55:15

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

0252デフォルトの名無しさん

2010/02/09(火) 12:20:13

>>251
>>2

0253デフォルトの名無さん

2010/02/09(火) 12:20:50

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

0254デフォルトの名無しさん

2010/02/10(水) 00:29:32

tes

0255デフォルトの名無しさん

2010/02/10(水) 00:36:42

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

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

0256255

2010/02/10(水) 01:20:39

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

0257デフォルトの名無しさん

2010/02/10(水) 12:36:16

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

0258デフォルトの名無さん

2010/02/10(水) 13:42:42

下記(1)で　mainをぬけてプログラムを中断したいのですが・・・

Sub main()
Call ChkShtName
MsgBox Now
End Sub

Sub ChkShtName()
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
Exit Sub '(1) ここで本当はmainを抜けたい
End If
End Sub
end sub

0259デフォルトの名無しさん

2010/02/10(水) 14:12:17

>>258

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

0260デフォルトの名無しさん

2010/02/10(水) 15:01:51

For~Next文で、

For i1=…
　’ここにi1の処理（※）
　　For i2=…
　　　’ここにi2の処理（※）
　　　　For i3=…
　　　　　’ここにi3の処理
　　　　Next i3
　　Next i2
Next i1

と階層化されている場合、各段階で条件によって終了し、i1に戻って再度処理を続けるにはどうしたらいいですか？
（i2,i3である値が０になったときなど）
※のところに
If a = 0 Then
　Next i1
ではだめでした。
コード自体が長いのでこのような質問になり申し訳ありません。
よろしくお願いします。

0261デフォルトの名無しさん

2010/02/10(水) 15:41:51

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

0262デフォルトの名無しさん

2010/02/10(水) 16:16:38

i1に戻ったときの、i1,i2,i3の値が気になるが

Dim f as boolean
f = True

For i1=…
　’ここにi1の処理（※）
　　For i2=…
　　　If f Then
　　　’ここにi2の処理（※）
　　　　For i3=…
　　　　　’ここにi3の処理
　　　　　If （i2,i3である値が０になったとき） Then
　　　　　　f = False
　　　　　End If
　　　　Next i3
　　　End If
　　Next i2
Next i1

どこかでf = Trueをいれないといけないけどね

0263デフォルトの名無しさん

2010/02/10(水) 16:49:44

>>261
>>262
ありがとうございます。ちなみに>>241で質問した者です。

'果物番号
　fruit = Worksheets("sheet1").Range("E10")
　aRow = 1
　aCount = 0
'=================================================
For i1 = 2 To 6 '検索する行を指定
'果物番号の検索
With Worksheets("sheet1")
Set found1 = Worksheets("sheet1").Range(.Cells(i1, 2), .Cells(i1, 5)).Find(fruit, , LookAt:=xlWhole)
End With

If found1 Is Nothing Then
Else
'最初の人の余り（率）を取得して書き込み
s1 = Worksheets("sheet1").Cells(found1.Row, "A")　　’s1は最初に食べる人
out_rate1 = Worksheets("sheet1").Cells(found1.Row, "G")
aRow = aRow + 1
Worksheets("sheet2").Cells(aRow, 1) = s1
'排出物
out1 = Worksheets("sheet1").Cells(i1, 8)
'=================================================
For i2 = 2 To 6　（以降続く）

というプログラムで、i1ではout_rate1=0となれば最初に戻って次のパターンを検索、
i2ではout_rate2=0となれば最初に…
という流れを目指して書いたものです。
分かりにく過ぎて申し訳ないです。エスパーさんいらっしゃいましたら宜しくお願いしますw

0264デフォルトの名無しさん

2010/02/11(木) 00:47:06

>>258
元のプログラム構造を尊重した一例。
本当はMsgBoxはどちらか一カ所にすべき。

Sub main()
　　If ChkShtName Then
　　　　MsgBox Now
　　End If
End Sub

Function ChkShtName() As Boolean
　　If ActiveSheet.Name <> "xoxo" Then
　　　　MsgBox "シートは:" & ActiveSheet.Name
　　　　ChkShtName = False '(1) ここで本当はmainを抜けたい
　　Else
　　　　ChkShtName = True
　　End If
End Function

0265255

2010/02/11(木) 01:36:07

>>257

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

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

0266255

2010/02/11(木) 01:49:31

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

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

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

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

0267デフォルトの名無しさん

2010/02/11(木) 03:05:32

>>265
それはbook3もあって一つ前にアクティブだったかわからないという事か？
↓コピペだけど
Sub マクロブックでない方のファイル名を取得する()
Dim オブジェクト As Workbook
For Each オブジェクト In Workbooks
If オブジェクト.Name <> ThisWorkbook.Name Then
MsgBox オブジェクト.Name
End If
Next
End Sub
もし２つしかbook開いていないなら上記で
2つ以上でもアクティブなBOOK名を絶えず取得して置けばいいと思ったけど
マクロ書いたbookを最後に開いたら駄目だね

0268255

2010/02/11(木) 15:25:13

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

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

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

0269デフォルトの名無しさん

2010/02/11(木) 15:45:48

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

0270デフォルトの名無しさん

2010/02/11(木) 15:55:08

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

0271デフォルトの名無しさん

2010/02/11(木) 16:06:54

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

0272デフォルトの名無しさん

2010/02/11(木) 20:36:35

>>267
自分ならクラスモジュールを使ってブックイベント拾ってやるかな

下記では　このマクロを含むブックを開く前に
アクティブだったものは取得できないけどひとつのやりかたとして掲載してみる
(ネーミングは適当なので勘弁してね)

★標準モジュール
Private GetOldBook As New Class1 '←クラスモジュール名を指定する
Sub TEST()
　　　Debug.Print "一つ前にアクティブだったブック:"; GetOldBook.Name
End Sub

★クラスモジュール(モジュール名:Class1)
Private WithEvents App As Application
Private OldBook As String
Private Sub Class_Initialize()
　　Set App = Application
End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Excel.Workbook)
　　OldBook = Wb.Name
End Sub
Public Property Get Name() As String
　　Name = OldBook
End Property

0273272

2010/02/11(木) 20:42:19

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

0274デフォルトの名無しさん

2010/02/11(木) 21:59:02

初歩的な質問ですが､
A1に1､A2に2､B1に3､B2に4と入力されていて
A1からB2を選択した状態で下記のコードを実行した場合､
bufは要素数が1から始まる配列になるということで
よろしいのでしょうか？
配列なのに何故0から始まらないんですか？？？

Sub test()
Dim buf As Range
Set buf = Selection
MsgBox buf(2)
End Sub

0275274

2010/02/11(木) 22:08:13

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

0276デフォルトの名無しさん

2010/02/11(木) 22:13:54

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

0277デフォルトの名無しさん

2010/02/11(木) 22:16:14

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

0278274

2010/02/11(木) 22:23:24

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

0279274

2010/02/11(木) 22:25:36

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

0280デフォルトの名無しさん

2010/02/11(木) 22:29:55

>>279

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

0281258

2010/02/11(木) 22:47:10

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

0282274

2010/02/11(木) 22:54:26

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

0283デフォルトの名無しさん

2010/02/12(金) 10:49:13

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

0284デフォルトの名無しさん

2010/02/12(金) 23:59:10

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

■ このスレッドは過去ログ倉庫に格納されています