10/02/04 13:05:09
>>174
>>168じゃないが
rangeオブジェクトから行番号や列番号なんてただの数値を取り出して、その数値をもとにどこのブックのどこのシートのCells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
Rangeオブジェクトならどこのブックのどこのシートかなんて内包されてるんだから、それを利用するのが当然だろう
for i = 1 to cells(rows.count,1).end(xlup).row
なんてのは欠陥というより下手くそだね
セレクトするコードと目くそ鼻くそだよ
176:デフォルトの名無しさん
10/02/04 15:32:43
>>175
目くそ様乙であります！！
177:デフォルトの名無しさん
10/02/04 18:08:46
>>175
引用間違ってるよ。
178:デフォルトの名無しさん
10/02/04 22:24:30
使い捨てのマクロでそんなことにこだわる必要はないが
他人にも使わせるツールなら意識して欲しいかな
しかし、>>151の内容はVBAの必要なくね？
ワークシートにVLOOKUPで十分
179:151
10/02/04 22:40:26
>>178
たしかに今考えればいならいような気がします…
180:151
10/02/04 22:48:16
連投すみません。
さっき、いらないような…と言いましたが、番号が見つからない場合に
MsgBoxでエラーを出したかったんです。
それと、VBAで書きかったっていうのがありまして。
181:デフォルトの名無しさん
10/02/04 22:52:53
>>178
他人に使わせるだけのマクロなら汚くてもいいんじゃない？
分る人にソース見られたとき困るだけ。
182:デフォルトの名無しさん
10/02/05 05:12:07
個人的には lookup系は使わずVBA
それ以外はセル操作で出来るのなら極力
VBAを使わないというのが好き
183:デフォルトの名無しさん
10/02/05 06:44:05
>>151にVLOOKUPはないね。
使い捨てブックならかまわないけど。
184:デフォルトの名無さん
10/02/05 11:49:35
下記で右辺のRGBでコンパイル・エラーargument not optionalがでて
進めません。（XP + Excel2000）
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array("235,180,200", "255,110,80", "255,0,0")
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)) 'error
Next i
End Sub
185:デフォルトの名無しさん
10/02/05 13:21:40
>>184
文字列を渡してどうする
186:デフォルトの名無しさん
10/02/05 21:18:11
>Cells(*,*)なんて実行時バインドで参照を作り出すのはアホだな
まじか。
俺はOffsetはその値に達するまで内部でループするから遅いだろうと考えていた。
たとえば、
L = 60000
Offset(L)は６万回ループするが、
Cells(L, 0)なら一発でその場所に移動できるのだと。
187:デフォルトの名無しさん
10/02/05 21:18:21
>>184
もっと良いやり方があるかも知れないけれど
現在のコードを尊重する形で考えてみた
下記ではどうでしょう
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(Array(235, 180, 200), Array(255, 110, 80), Array(255, 0, 0))
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(myIndex(i)(0), myIndex(i)(1), myIndex(i)(2))
Next i
End Sub
188:デフォルトの名無さん
10/02/05 23:24:09
>>187,185
ありがとう。こうしました。
Sub Test()
Dim myIndex As Variant
Dim length As Integer
myIndex = Array(RGB(235, 180, 200), RGB(255, 110, 80), RGB(255, 0, 0))
For i = 0 To 2
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 50 * i, 100, 50 * (i + 1)).Select
Selection.ShapeRange.Fill.ForeColor.RGB = myIndex(i)
Next i
End Sub
189:デフォルトの名無しさん
10/02/06 01:32:22
selectしなくてもいいじゃん
190:デフォルトの名無しさん
10/02/06 01:43:19
>>186
ひどい勘違いだな
内部でループなんかするわけないじゃん
とにかくCellsを多用するコードは不細工だ
事前バインドの方が楽で簡潔
191:デフォルトの名無しさん
10/02/06 07:54:23
DBをExcelに展開して作業するんだけど、offsetだけじゃ無理。
cells(foundcell.row,1).value
とか普通に使ってtる。
192:デフォルトの名無しさん
10/02/06 08:27:51
参照設定
193:デフォルトの名無しさん
10/02/06 08:34:39
なんだか、アーリーバインディングを勘違いしてる奴が居るな。
難しい言葉を使おうとしなくていいんだよ。
194:デフォルトの名無しさん
10/02/06 09:56:19
Range.CopyFromRecordset
195:デフォルトの名無しさん
10/02/06 10:15:47
>>193
勘違いしてねーよ。
アーリーバインディングの方がコーディング楽だろ？
お前Cells使ってるのか？
196:デフォルトの名無しさん
10/02/06 16:57:38
ログデータから取得したリストがあり、頭に種別を表す連番1～16が振ってあります。
このリストを上からチェックしていき、種別番号が1ならA列から始まる表に、2ならD列から始まる表に
という具合に、種別ごとの表に落とし込みたいと考えています。
それぞれの列に落とし込むことはできたのですが、貼り付ける行が前の列からの続きになってしまい悩んでいます。
具体的には、A1～A10が種別1、D1～D5が種別2、G1～G10が種別3としたいのに、
A1～A10が種別1、D11～D15が種別2、G16～G20が種別3となってしまうのです。
If hantei = 1 Then
Range("A" & i + 100).Formula = (参照式)
197:196
10/02/06 17:04:34
すみません。途中で書き込んでしまいました；
それぞれの種別表の頭を揃えるには、どうしたら良いでしょうか？
今のところ、それぞれの表でソートをするしかないのかと考えていますが、
状況によりログのリストがどれぐらいの長さまで伸びるか読めないため、
かなりの幅を持たせないといけないので、その表の直下を使えなくなってしまうのが難点です。
何か良い方法があれば、よろしくお願いします。
198:デフォルトの名無しさん
10/02/06 17:06:27
今、画像の表示（サムネイル一覧）や変換（BMP→tiffなど）するソフトを
VBAで作ることを考えています。
画像の表示は、ともかく変換をどうすれば良いか検討がつきません。
ｱﾄﾞﾊﾞｲｽ何か頂けないでしょうか？
OS：WindowsXp Excel：2000
199:デフォルトの名無しさん
10/02/06 17:25:22
>>196
Range("A65536").End(xlUp).Select
200:デフォルトの名無しさん
10/02/06 17:59:03
>>199
2007から行数変わったじゃん
201:デフォルトの名無しさん
10/02/06 20:24:51
行数、列数が拡張されたのは2007の時だけじゃないし
Rows.Countでそのシステムの最大行数が求まる
202:デフォルトの名無しさん
10/02/07 02:14:42
フォームに入力された値で数値計算をするプログラムを組んでいます。
’各テキストボックスが空欄だった時の対処
If Me.YJ1.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ2.Value = "" Then
MsgBox("空欄があります。")
ElseIf Me.YJ3.Value = "" Then
MsgBox("空欄があります。")
・
・
・
（YJ23まで）
’（空欄対処の続きで）各テキストボックスが数字以外だったときの対処
ElseIf IsNumeric(YJ1) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ2) Then
MsgBox("半角数字で入力してください。")
ElseIf IsNumeric(YJ3) Then
MsgBox("半角数字で入力してください。")
・
・
・
（YJ23まで）
Else
sum_t = YJ1*0.15+YJ1+0.79+ …（YJ23まで）
という風なプログラムを現在組んでいます。
空欄の検出はしてくれるんですが、YJ23まで半角数字なのに"半角数字で…"のエラーが出ます。
半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？
203:デフォルトの名無しさん
10/02/07 03:10:19
URLﾘﾝｸ(homepage1.nifty.com)
204:デフォルトの名無しさん
10/02/07 05:20:15
>>203
ありがとうございます！参考にさせてもらいます！
205:デフォルトの名無しさん
10/02/07 06:26:06
>>195
やっぱり勘違いしてるね。
206:デフォルトの名無しさん
10/02/07 07:03:38
しつこいやっちゃなぁ。
実行時バインドのコードばっか書いてる三流プロか？
207:デフォルトの名無しさん
10/02/07 08:07:23
190のcellsは不細工で事前バインドが云々の解説でもしておくか。
配列とかはおいといて、単純に範囲をループする場合の実行時バインドと事前バインドの一例
もっとも不細工(cells(i,1)の形が実行時バインド)
dim i as long
For i = 1 To cells(rows.count,1).end(xlup).row
If cells(i,1).value="foo" then
cells(i,2).hogehoge
end if
Next i
まだまだ不細工(Itemプロパティが実行時バインド)
dim r as range
dim i as long
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for i=1 to r.count
If r.item(i,1).value="foo" then
r.item(i,2).hogehoge
end if
next i
上の二つよりまとも(cは事前バインド)
dim r as range
dim c as range
set r =range(cells(1,1),cells(rows.count,1).end(xlup))
for each c in r
if c.value="foo" then
c.offset(,1).hogehoge
end if
next c
208:デフォルトの名無しさん
10/02/07 08:10:50
言っとくけどCellsは事前バインドだが、Cellsの後ろに隠れてるItempプロパティ(実際は_Dedaultプロパティ)が実行時バインドね。
209:デフォルトの名無しさん
10/02/07 08:14:34
Selectionを使うのは実行時バインド？
210:デフォルトの名無しさん
10/02/07 08:17:38
(cは事前バインド)は(cもOffsetも事前バインド）だった。
211:デフォルトの名無しさん
10/02/07 08:23:01
>>209
Selectionをそのまま使えば実行時バインドだよ。
ただしSellectionを任意の変数(たとえばセル範囲ならRange型の変数)に格納してその変数を使えば事前バインド。
212:デフォルトの名無しさん
10/02/07 09:27:36
不細工云々はどうでも良いんだけど、
column固定でrowはfoundcellの場合、どうすりゃいいんだよ。
213:デフォルトの名無しさん
10/02/07 10:58:03
>>212
161じゃないけど、発見した行の4列目ならfound.EntireRow.Cells(4)ってことかな？
しかしまぁ>>151は検索範囲がB列と書いていながら、実際のコードは何故か
Set found = Worksheets("全データ").Cells.Find(sn, , xlValues)
と全セルになってるな。
214:デフォルトの名無しさん
10/02/07 11:09:02
>>151をよく見ると心配な点がいっぱいあるね。
技術検索番号ってまさか単純な数字じゃないだろうな。
LookAt:=xlWholeを書いてないと1で10とかも引っ掛かるかるしなぁ。
Withも意味なしてないし。
215:151
10/02/07 13:58:07
>>214
技術検索番号は今のところ10001～10165までの数値です。
おっしゃるとおり10でも10001が検索されてしまっていました。今現在は、皆さんの意見を参考にして
Private Sub 技術検索ボタン_Click()
Dim sn As String
'検索番号の設定
sn = 技術検索番号.Value
'検索の処理
With Sheets("全データ")
Set found = Worksheets("全データ").Range("B:B").Find(sn, , LookAt:=xlWhole)
'見つからない場合の処理
If found Is Nothing Then
MsgBox ("技術コードが見つかりません。5桁の数字を正しく入力してください。")
'見つかった場合の処理（フォーム上のtextboxに値を代入）
Else
Me.会社名表示.Value = .Cells(found.Row, 4)
Me.処理機郵便番号表示.Value = .Cells(found.Row, 5)
Me.処理機住所表示.Value = .Cells(found.Row, 6)
Me.電話番号表示.Value = .Cells(found.Row, 10)
Me.メールアドレス表示.Value = .Cells(found.Row, 9)
Me.事業区分表示.Value = .Cells(found.Row, 11)
End If
End With
End Sub
としています。特にエラーは出てないんで、大丈夫そうなのですが…
もし何かありましたら宜しくお願いします。
216:196
10/02/07 14:54:05
>>199
ありがとうございます。
End()を使ったことがなかったので少し手間取りましたが、希望通りの動作をしてくれました。
217:デフォルトの名無しさん
10/02/07 18:48:43
>>215
みなさんの意見って>>161の意見は参考にしてないなｗ
まぁここに限らずよくない方法が採用されるのが掲示板の常なのでしょうがないね。
しかしどうしても行番号使うにしても、５回も同じ行番号を取得しちゃいかんぜよ。
何度も使うものは変数に格納してから使わないと。
参考までに行番号は取得しないで列番号をそのまま使うならこんな方法もある。
Else以下だが
Set found =found.EntireRow.Cells
Me.会社名表示.Value = found(4).Value
Me.処理機郵便番号表示.Value = found(5).Value
Me.処理機住所表示.Value = found.Row(6).Value
Me.電話番号表示.Value = found(10).Value
Me.メールアドレス表示.Value = found(9).Value
Me.事業区分表示.Value = found(11).Value
実行時バインドになるが、Offsetと違って列番号がそのまま使える。
found(4)はfound.Item(4)の略ね。
またSet found =found.EntireRow.Cellsの部分は同じ変数に代入するのがお行儀が悪いって人も稀にいるけどな。
気になるなら別の変数にすればいい。
218:デフォルトの名無しさん
10/02/07 18:54:31
おっとfound.Row(6).Valueは間違いね。
219:デフォルトの名無しさん
10/02/07 21:05:40
>>207
お前、オブジェクトとプロパティが良くわかってないだろ
220:デフォルトの名無しさん
10/02/07 21:27:49
またへんなのが出てきたな。↑
例えばCellsはRangeオブジェクトへの参照を返すプロパティーさ。
221:デフォルトの名無しさん
10/02/07 21:30:59
>>219は自分は何でも分ってて、他人は分ってないと思ってる基地外だな。
もういいから引っ込め。
222:デフォルトの名無しさん
10/02/07 21:50:57
取り込み中のところすんませんけど、一つ教えてください
Excel2007
MsgBox "～" ←このメッセージの部分の文字に色を付けて表示したりする事って出来ますか？
223:デフォルトの名無しさん
10/02/07 22:14:11
出来ないと思う。
URLﾘﾝｸ(www.h3.dion.ne.jp)
ここのアドインを試してみたら？
224:デフォルトの名無しさん
10/02/07 22:31:05
>>223
教えていただき、有難うございます！
調べてみます。
225:デフォルトの名無しさん
10/02/07 23:34:38
俺はVBAは結構できると思っていたが実行時バインドとかまったく意識していなかった。
今日は勉強になった。
226:デフォルトの名無しさん
10/02/08 00:36:40
>俺はVBAは結構できると思っていたが
多分激しく勘違いしてるんだと思ふ。
227:デフォルトの名無しさん
10/02/08 06:30:55
俺も仕事でVBAを4年ほど使ってるけど、まだまだ知らない事が多いんだなぁ。
とつくづく感じた。
VBAが馬鹿にされてるんじゃなくて、俺が馬鹿だったんだ。
228:デフォルトの名無しさん
10/02/08 08:19:12
事前バインドは実行時バインドより速いって認識でいいの？
229:デフォルトの名無しさん
10/02/08 09:11:46
>>228
大体そうだが逆もある。
たとえばRange("A1")とCells(1,1)は１個の処理なら実行時バインドの後者が速い。
ただWithでくくって多くの処理を行うのであれば事前バインドの前者が速いけどな。
速い遅いより、事前バインドならピリオド打って頭の数文字を打てばその打った
文字から始まるメンバが出てくるから、そこから選べばいいから長いメンバ名のときは楽だな。
だからWith Selectionとして多くの処理をするより、適合する型の変数にSelectionをセットして
With 変数とした方が楽だよ。
230:デフォルトの名無しさん
10/02/08 09:15:32
上のピリオド云々はVBEのオプションの自動メンバ表示にチェックがついてるときの話ね。
231:デフォルトの名無しさん
10/02/08 09:58:19
いい加減、お前うざいよ
232:デフォルトの名無しさん
10/02/08 10:00:06
同意。
ﾊﾞｲﾝﾄﾞｦﾀ･･･ｲﾗﾈ
233:デフォルトの名無しさん
10/02/08 10:02:22
別にうざくはないが
234:デフォルトの名無しさん
10/02/08 10:04:01
>>220
で、何を何に「バインド」すんの？
235:デフォルトの名無しさん
10/02/08 10:23:30
VB(A)の世界では、Dim a As Rangeなどと、変数宣言時にオブジェクトの型を指定するのが
事前バインディング、Dim a As Objectと総称型で宣言し、Set a = ...と実行時に変数に結びつけるのが
実行時バインディングというのが普通で、上で言われてるような文脈で使われるのは
初めて見た。
あってるのか、間違ってるのか知らんけど。
236:デフォルトの名無しさん
10/02/08 10:27:45
ちなみに、コンパイルする言語では、コンパイル時に呼び出しを決定できるものが事前バインディングで、
実行時にしか決定できないものを実行時バインディングという。
付け加えると、VBAでは一般に事前バインディングの方が速いというのはその通りで、
オブジェクトを変数に代入しておいて使う方が速いというのもその通り。
ただ、「Selectionをそのまま使えば実行時バインドだよ。」という言い方は初めて見た。
このような使い方をするのかどうかは知らない。
237:デフォルトの名無しさん
10/02/08 10:42:24
測ってみればいいのに。基本は実測だよ。
For i = 0 To 100000
' ここにコード
Next
s = Range("A1").Value => 1416ms
s = Cells(1, 1).Value => 670ms
s = r.Cells(1, 1).Value => 858ms '事前にdim r as range, set r = range("A1")を実行
結論：
Cells(x, x)を使わない奴は馬鹿。
238:デフォルトの名無しさん
10/02/08 10:45:58
それやってないけど、r.valueが最速だろ。
239:デフォルトの名無しさん
10/02/08 11:05:58
つーか、>>207で最後のコードが速いのは、事前バインドなんか全然関係なくて、
cells(i,1)でrangeオブジェクトを参照するより、for cell in rangeで参照した方が速いってだけじゃね？
240:デフォルトの名無しさん
10/02/08 11:14:44
古いＰＣだが
11sec: s = Range("A1").Value
05sec: s = Cells(1,1).Value
04sec: s = r.Value
241:151
10/02/08 12:22:11
横からすみません。分かりにくい点が多数あると思いますがお願いします。
A B C D E l F
1 名前 りんご バナナ みかん ブドウ l 余り
2 たけし １ ０ ０ ４ l 0
3 ともこ ０ ２ ０ ４ l 0.25
4 とおる １ ２ ３ ０ l 0.73
5 さちこ １ ２ ０ ０ l 0
6 たける ０ ０ ０ ４ l 0.84
・
・
・
というような表を作っています。
フォームでりんごを選択し検索すると、りんごを食べれる【たけし・とおる・さちこ】
を検索（B2:E6から１を検索）し、与えます。
余りがあればさっき与えた人以外のところに持っていき、与えます。
それを繰り返して、条件付き組み合わせのような形で検索したいと思っています。
この場合ですと、リンゴを100個持っているとすると、 ※（）内は残個数
・たけし（0）
・とおる（73）→たけし（0）
・とおる（73）→さちこ（0）
・さちこ（0）
の４パターンが検索されます。
各パターンで残個数が0になれば検索終了です。
このようなシステムは可能でしょうか？
また、可能ならヒントを頂けると嬉しいです。宜しくお願いします。
242:151
10/02/08 12:40:38
ちなみに、
りんご＝１
バナナ＝２… という関連付けはすでにしています。
243:デフォルトの名無しさん
10/02/08 12:48:45
>>239
>>207で速さのことなんか何にも書いてないじゃん。
不細工かどうかだろ？
244:デフォルトの名無しさん
10/02/08 13:57:49
>>241
他人に上手く説明できないことは、自分でも理解していないことである
245:デフォルトの名無しさん
10/02/08 14:20:57
エスパーの出番だな
246:デフォルトの名無しさん
10/02/08 15:11:09
概してExcelに検索処理をさせることが間違いのもと
247:デフォルトの名無しさん
10/02/08 23:12:59
>>241
ようするにナップザック問題の亜種だろ
リンゴが99個で最初にとおるを選んだとき、残りの個数は割り切れない数になるけど、そういう時はどうすんの？
248:デフォルトの名無しさん
10/02/08 23:47:16
>>247
ここではリンゴとしましたが、実際はトン（ｔ）で計算します。
小数点以下も考えるので、99×0.73＝72.27（ｔ）が次の人へ…となります。
説明不足でした。申し訳ありません。
ナップザック問題というヒントを参考にさせてもらいます。
249:デフォルトの名無さん
10/02/09 00:19:12
下記test1で「あ」を図の真ん中に表示したい。
test2では文字をとりだせない。
Sub test1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50).Select
With Selection
.Characters.Text = "あ"
End With
Range("a1").Select
End Sub
Sub test2()
MsgBox ActiveSheet.Shapes(1).Characters.Text
End Sub
250:デフォルトの名無しさん
10/02/09 03:10:36
>>249
Sub test1()
With ActiveSheet.Rectangles.Add(10, 10, 50, 50)
.Text = "あ"
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
End Sub
Excel任せだと少しずれてしまうのは仕様。
ぴったり中央に文字を出したいときは、背景が透明のテキストボックスを
図形の上に重ねて、座標を自分で計算するしかない。
Sub test2()
MsgBox ActiveSheet.Shapes(1).TextFrame.Characters.Text
End Sub
あと、質問するときはもうちょっと文章を丁寧に書け。
「やりたい」「できない」だけじゃ質問になってない。
テンプレも使うこと。
251:デフォルトの名無しさん
10/02/09 11:55:15
>>250
ここにテンプレあったか？
252:デフォルトの名無しさん
10/02/09 12:20:13
>>251
>>2
253:デフォルトの名無さん
10/02/09 12:20:50
>>250
ありがとうございます。
気をつけます。
254:デフォルトの名無しさん
10/02/10 00:29:32
tes
255:デフォルトの名無しさん
10/02/10 00:36:42
ＶＢＡ初心者ですが、実行時バインドってなんですか？
また、エクセルで「現在アクティブなブックの一つ前に
アクティブだったブックのname」を取得するコードを教えてください。
256:255
10/02/10 01:20:39
Excel2003 windows xpです。
今まで勘違いして
activewindow.activatepreviousで取得していたんですが、
複数ブックが開いているときはだめな時がありました。
257:デフォルトの名無しさん
10/02/10 12:36:16
ひとつ前のブックをアクティブにしたときに名前取得すればいいんじゃないの？
258:デフォルトの名無さん
10/02/10 13:42:42
下記(1)で mainをぬけてプログラムを中断したいのですが・・・
Sub main()
Call ChkShtName
MsgBox Now
End Sub
Sub ChkShtName()
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
Exit Sub '(1) ここで本当はmainを抜けたい
End If
End Sub
end sub
259:デフォルトの名無しさん
10/02/10 14:12:17
>>258
発想がスパゲッティだなｗ
フラグ持ってけ。
260:デフォルトの名無しさん
10/02/10 15:01:51
For~Next文で、
For i1=…
’ここにi1の処理（※）
For i2=…
’ここにi2の処理（※）
For i3=…
’ここにi3の処理
Next i3
Next i2
Next i1
と階層化されている場合、各段階で条件によって終了し、i1に戻って再度処理を続けるにはどうしたらいいですか？
（i2,i3である値が０になったときなど）
※のところに
If a = 0 Then
Next i1
ではだめでした。
コード自体が長いのでこのような質問になり申し訳ありません。
よろしくお願いします。
261:デフォルトの名無しさん
10/02/10 15:41:51
goto
もしくは関数ごとつくる
262:デフォルトの名無しさん
10/02/10 16:16:38
i1に戻ったときの、i1,i2,i3の値が気になるが
Dim f as boolean
f = True
For i1=…
’ここにi1の処理（※）
For i2=…
If f Then
’ここにi2の処理（※）
For i3=…
’ここにi3の処理
If （i2,i3である値が０になったとき） Then
f = False
End If
Next i3
End If
Next i2
Next i1
どこかでf = Trueをいれないといけないけどね
263:デフォルトの名無しさん
10/02/10 16:49:44
>>261
>>262
ありがとうございます。ちなみに>>241で質問した者です。
'果物番号
fruit = Worksheets("sheet1").Range("E10")
aRow = 1
aCount = 0
'=================================================
For i1 = 2 To 6 '検索する行を指定
'果物番号の検索
With Worksheets("sheet1")
Set found1 = Worksheets("sheet1").Range(.Cells(i1, 2), .Cells(i1, 5)).Find(fruit, , LookAt:=xlWhole)
End With
If found1 Is Nothing Then
Else
'最初の人の余り（率）を取得して書き込み
s1 = Worksheets("sheet1").Cells(found1.Row, "A") ’s1は最初に食べる人
out_rate1 = Worksheets("sheet1").Cells(found1.Row, "G")
aRow = aRow + 1
Worksheets("sheet2").Cells(aRow, 1) = s1
'排出物
out1 = Worksheets("sheet1").Cells(i1, 8)
'=================================================
For i2 = 2 To 6 （以降続く）
というプログラムで、i1ではout_rate1=0となれば最初に戻って次のパターンを検索、
i2ではout_rate2=0となれば最初に…
という流れを目指して書いたものです。
分かりにく過ぎて申し訳ないです。エスパーさんいらっしゃいましたら宜しくお願いしますw
264:デフォルトの名無しさん
10/02/11 00:47:06
>>258
元のプログラム構造を尊重した一例。
本当はMsgBoxはどちらか一カ所にすべき。
Sub main()
If ChkShtName Then
MsgBox Now
End If
End Sub
Function ChkShtName() As Boolean
If ActiveSheet.Name <> "xoxo" Then
MsgBox "シートは:" & ActiveSheet.Name
ChkShtName = False '(1) ここで本当はmainを抜けたい
Else
ChkShtName = True
End If
End Function
265:255
10/02/11 01:36:07
>>257
例えば、現在アクティブなbook2（マクロを登録してあるファイル）の
中のマクロで、ひとつ前にアクティブであった
book1（いろいろなファイル）に対して操作を行う時に、
nameが固定されていないbook1をアクティブにする方法です。
それが分からないのでnameも取得できませんでしたが、一応自己解決しました。
丸一日かかってやっと思いついたのが、
「現在アクティブなブックのウインドウを最小化する
とひとつ前のブックが自動的にアクティブになる」
というエクセルの動作を利用してみました。
266:255
10/02/11 01:49:31
もうひとつ質問なのですが、
メニューバーへボタンを作って
そのボタンからマクロを実行するアドインを
作って実装させているんですが、
計１０台くらいの仲間に実装したのに、
何日かしたら数台のＰＣでボタンが消えていました。
ツール → アドインで調べてもアドインファイルにチェックは
ついたままになっているんです。
ちなみにチェックを外してＯＫボタンを押すとエラーになりました。
アドインのメニューボタンだけが消えてしまった状態なんですが
ボタンをdeleteするプログラムを含むプログラムを
実行していないとしたら、
ほかにどんな原因が考えられるのでしょうか？
267:デフォルトの名無しさん
10/02/11 03:05:32
>>265
それはbook3もあって一つ前にアクティブだったかわからないという事か？
↓コピペだけど
Sub マクロブックでない方のファイル名を取得する()
Dim オブジェクト As Workbook
For Each オブジェクト In Workbooks
If オブジェクト.Name <> ThisWorkbook.Name Then
MsgBox オブジェクト.Name
End If
Next
End Sub
もし２つしかbook開いていないなら上記で
2つ以上でもアクティブなBOOK名を絶えず取得して置けばいいと思ったけど
マクロ書いたbookを最後に開いたら駄目だね
268:255
10/02/11 15:25:13
>>267
book3,book4,book.......と複数ブックが
開いている状態でbook2(マクロを登録したファイル）をアクティブ
にしてその中のマクロを実行するときに
ひとつ前にアクティブだった任意のブック(book1 or book3 or ......)
をアクティブにする方法です。
activewindow.activatepreviousではウインドウが開いた順番をもとに
ひとつ前の番号のウインドウをアクティブにするだけなので、
ひとつ前の番号のウインドウ ＝ ひとつ前にアクティブだったブック
とは限らないケースがあり、マクロ実行時に思惑通りの動作を
してくれなかったのです。
269:デフォルトの名無しさん
10/02/11 15:45:48
>>268
VBA単独でやるなら、すべてのブックにマクロを仕込んで、それぞれ自分がアクティブになったら
名前をどこかに記録しておく、みたいな方法かなあ。
俺ならウィンドウメッセージをフックして、アクティブになったウィンドウを記録するような常駐ソフトを作る。
270:デフォルトの名無しさん
10/02/11 15:55:08
そもそも仕様が腐っとる。
271:デフォルトの名無しさん
10/02/11 16:06:54
パソコン環境が貧弱な頃から積み上げた成果でしょ
272:デフォルトの名無しさん
10/02/11 20:36:35
>>267
自分ならクラスモジュールを使ってブックイベント拾ってやるかな
下記では このマクロを含むブックを開く前に
アクティブだったものは取得できないけどひとつのやりかたとして掲載してみる
(ネーミングは適当なので勘弁してね)
★標準モジュール
Private GetOldBook As New Class1 '←クラスモジュール名を指定する
Sub TEST()
Debug.Print "一つ前にアクティブだったブック:"; GetOldBook.Name
End Sub
★クラスモジュール(モジュール名:Class1)
Private WithEvents App As Application
Private OldBook As String
Private Sub Class_Initialize()
Set App = Application
End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Excel.Workbook)
OldBook = Wb.Name
End Sub
Public Property Get Name() As String
Name = OldBook
End Property
273:272
10/02/11 20:42:19
アンカーみすった
>>268
だったです すみません
274:デフォルトの名無しさん
10/02/11 21:59:02
初歩的な質問ですが､
A1に1､A2に2､B1に3､B2に4と入力されていて
A1からB2を選択した状態で下記のコードを実行した場合､
bufは要素数が1から始まる配列になるということで
よろしいのでしょうか？
配列なのに何故0から始まらないんですか？？？
Sub test()
Dim buf As Range
Set buf = Selection
MsgBox buf(2)
End Sub
275:274
10/02/11 22:08:13
IsArray(buf)はTrueを返すんですけど、
LBound(buf)とUBound(buf)は“配列がありません”と
コンパイルエラーになってしまいます。
276:デフォルトの名無しさん
10/02/11 22:13:54
自分でrangeって宣言してるんだから
配列じゃなくて、rangeでしょ
277:デフォルトの名無しさん
10/02/11 22:16:14
Sub test()
Dim buf
buf = Selection
Debug.Print UBound(buf), LBound(buf)
End Sub
278:274
10/02/11 22:23:24
>>277
これ、エラーになりますよね？
279:274
10/02/11 22:25:36
あ、失礼しました！Variantだと配列ってことでしょうか？
でも、Rangeで宣言してIsArrayでTrueを返すのは
どういうことなんでしょう？
すみません・・・すごく初心者な質問ばかりで・・・orz
280:デフォルトの名無しさん
10/02/11 22:29:55
>>279
あやまる気があるなら自分で調べろ。
281:258
10/02/11 22:47:10
>>264
ありがとうございます。
282:274
10/02/11 22:54:26
URLﾘﾝｸ(www012.upp.so-net.ne.jp)
似たようなもの見つけました。
やはり配列で、最小インデックスは1ということのようですね。
試験でbuf(1)の値は何か？という問題が出て、
配列なら0から始まると思い込んでて間違えたものですから・・・。
お騒がせしました。
283:デフォルトの名無しさん
10/02/12 10:49:13
配列とは思って無かったItemを省略した書き方って感じで
下の場合はobj.item(2)と同じ
Public Sub ItemTest()
Dim obj As Range
Set obj = Range("B2:C3, D5")
MsgBox (obj(2).Address)
End Sub
だから最小インデックスは1なのかなと思う
284:デフォルトの名無しさん
10/02/12 23:59:10
VBAのメソッドやクラスのドキュメントてMSDNにないの？
全網羅してるやつ。。
285:デフォルトの名無しさん
10/02/13 02:15:15
ある
286:デフォルトの名無しさん
10/02/13 18:31:15
IEのフォームにセルの値を次々に入力して検索結果を別セルに転記する、というマクロ作っています。
入力内容によっては「Windows Internet Explorer」というタイトルの警告ウィンドウ（ボタンはOKボタンのみ）が
出てしまいます。
このウィンドウを閉じれば次のセルの値は問題なく入力、検索できるのですが、
このウィンドウを閉じるにはどうすればいいでしょうか？
287:286
10/02/13 18:46:50
警告ウィンドウが出てるかどうかの判断の仕方もあわせて教えてください。
288:デフォルトの名無しさん
10/02/13 19:34:29
逆に質問ですけど、JavaスクリプトでExcelに書き出してるの？
289:デフォルトの名無しさん
10/02/13 19:35:42
質問取消します
読間違えました
290:デフォルトの名無しさん
10/02/13 23:44:55
宜しくお願い致します。EXCEL2000です。
「サンプル写真」という名前のフォルダの中にある、
セルA1に書かれている数字のjpgファイルを開く。
というマクロを何とか作りました↓。
Sub テスト()
ActiveWorkbook.FollowHyperlink Address:="C:\Documents and Settings\a\デスクトップ\サンプル写真\" & Range("A1") & ".jpg"
End Sub
一応動くのですが、実行するとインターネットエクスプローラで開いてしまいます。
拡張子の関連付けでは、他のソフトで開くようにしいるので、
そのソフトで開けるようにしたいのです。
開くjogファイルを開くプログラムを指定するにはどうすればよいでしょうか？
宜しくお願い致します。
291:デフォルトの名無しさん
10/02/14 00:30:30
>>290
URLﾘﾝｸ(homepage1.nifty.com)
292:290
10/02/17 10:04:46
>>291
遅レスすいません。アク菌にまきこまれ返信できませんでした。
解決しました。
本当にありがとうございます。
感謝
293:デフォルトの名無しさん
10/02/17 11:11:06
csvファイルをインポートではなくダブルクリックで開いた場合、
例えば「12-11」というデータは「11月12日（中身は40494）」に変換されてしまいますが、
これをマクロで12-11に戻してやる場合にはどういう方法がいいんでしょうか？
ちなみにその列は「数値-数値」の形ではない文字列も含まれていますので、
書式の取得からやらなければいけないと思います…
その処理を入れようとしているのは行数分回すfor文の中です。
よろしくお願いいたします。
294:デフォルトの名無しさん
10/02/17 11:38:10
>戻してやる場合にはどういう方法がいいんでしょうか？
考え方が違う。
EXCELに展開するときに処理することを考えるべし。
295:デフォルトの名無しさん
10/02/17 11:45:05
>>293
その場合、元のデータが「12-11」だったのか「12/11」だったのか「12月11日」だったのか
判断する方法はないので元に戻すこともできない。
あとから修正するんじゃなくて、最初から別の方法で読み込むこと。
296:デフォルトの名無しさん
10/02/17 12:08:17
>>293
発想が腐っとる。
297:デフォルトの名無しさん
10/02/17 12:19:07
>>295
住所のカラムなので日付が入ることはないんです
>>296
腐敗しとります
298:デフォルトの名無しさん
10/02/17 12:30:10
ああ、.textに"月"と"日"が含まれてたらそれぞれの前の数値を抽出して並び替えればいいのか
お騒がせしました。ちなみに俺は「取り込むときに処理しないとまずい」とちゃんと提言しましたよ？
腐敗してるんですよ
299:デフォルトの名無しさん
10/02/17 12:38:35
>>297
そういう重要な条件を後出しするんじゃねえボケ
300:デフォルトの名無しさん
10/02/17 13:06:53
>>299
そうですね、ごめんなさい
しかし、もし"月"と"日"が含まれている住所が存在するなら
>>298の方法には完全に穴がありますね
ところで、
'もし住所２が日付形式に変換されていたら
Address2 = Cells(i, 8).Text
Cells(i, 8).NumberFormat = "@"
If InStr(Address2, "月") + InStr(Address2, "日") <> 0 Then
Cells(i, 8).Value = Address2
ここまでは作ったんですが、この後"月"や"日"をReplaceでいじろうとしても
うまくいかない…>>123の問題とかぶってるのかな？
具体的に言うと、"月"を"-"、"日"を""にReplaceしてやるとまた日付形式に
戻っちゃうんです。なんなんだ…泣きそうｗ
301:デフォルトの名無しさん
10/02/17 13:29:18
ああ、
If InStr(Address2, "月") + InStr(Address2, "日") <> 0
ではなくて
If InStr(Address2, "月") <> 0 And InStr(Address2, "日") <> 0 Then
じゃないとまずいですね。NORが無いのは残念だ
302:デフォルトの名無しさん
10/02/17 13:34:24
こうやって糞シートが出来上がっていくんですねｗ
303:デフォルトの名無しさん
10/02/17 13:35:32
>>302
ベストな解答頼む
304:デフォルトの名無しさん
10/02/17 13:48:11
結局どうせごり押しなら
Cells(i, 8).NumberFormat = "m-d"
で通しちゃうことに決めました
これだと日付形式じゃないものはそのままですし
>>302
俺からもお願いします
305:デフォルトの名無しさん
10/02/17 14:52:16
Excelは青色申告用ソフトであって住所録じゃないんだからそういう使い方自体が間違ってる
306:302
10/02/17 15:40:13
>303-304
つ>294-295
307:デフォルトの名無しさん
10/02/17 15:45:56
それがベストな解答？
308:デフォルトの名無しさん
10/02/17 17:45:54
Excelって青色申告用ソフトだったのか。長年使ってて初めて知った。そういう用途には一度も使った事ねーや w
309:デフォルトの名無しさん
10/02/17 21:02:37
webクエリで勝手に保存されてしまうアドレス群の中で、不要な物が多すぎるので消したいんだけど何か方法ないですか？
ＶＢＡ使うやり方でも使わないやり方でもなんでもいいです。
310:デフォルトの名無しさん
10/02/17 22:08:49
マクロを実行して
途中でエラーになった場合
VBAの画面が開かれるのですが
これを開かずに実行に失敗した事だけを伝えるのってどうすればいいのでしょうか？
311:デフォルトの名無しさん
10/02/17 22:20:11
On Error Resume Next とか
312:デフォルトの名無しさん
10/02/17 22:49:24
>>308
まあExcelは違うわな
パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから
313:デフォルトの名無しさん
10/02/17 22:50:47
>>309
必要か不要かを機械的に判断するロジックがあれば可能
人間が見ないとわからない物は手作業で消すしかない
314:デフォルトの名無しさん
10/02/18 00:27:32
VBはマイクロソフトが開発したわけではなく
他社が開発したものをマイクロソフトが買収したもの
315:デフォルトの名無しさん
10/02/18 08:58:22
>>313
レスありがとう、手作業での消し方すらわからんとです。
316:293
10/02/18 09:00:40
>>305
住所録として使っているわけではありません
csvにマクロを適用させるアプリとして使っているのです
>>306
だからその案は却下されたんですって言ってるじゃないですか
なんだ、がっかりです
317:デフォルトの名無しさん
10/02/18 09:14:05
>316
>だからその案は却下されたんですって言ってるじゃないですか
そうやって例外が例外を産み、糞シートが出来上がっていくのだよ。
>294-296がベストな回答だと思うがな。
318:デフォルトの名無しさん
10/02/18 10:09:40
>>317
自覚のない素人に何を言っても無駄
仕事でこんなことやってるってのにはﾋﾞｯｸﾘした
319:デフォルトの名無しさん
10/02/18 10:13:05
だめだこいつｗ
293は限定された条件の中でのベストな回答を訊いてるんだろうに。
その条件自体に文句つけてどうする。
サッカーやるのに「手を使えないのがおかしい！」って言ってるのと一緒だ。
320:デフォルトの名無しさん
10/02/18 10:27:11
>318
そういうくだらないことやってる会社って結構あるけどなｗ
321:デフォルトの名無しさん
10/02/18 10:34:38
文字列データを「"」でかこってないCSVをダブルクリックでまともに開きたいってだけでしょ
開いた後で自動なり手動なりでマクロから読み込み直しさせればいいだけじゃないの？
322:デフォルトの名無しさん
10/02/18 11:08:39
>>312
> >>308
> まあExcelは違うわな
> パソコンと表計算ソフトの最初の利用目的が税金の計算だったってだけの歴史上の話だから
都合のいいところでお前のパソコンの歴史が始まったらしいな。
そんな話聞いたこと無いぞ。
323:デフォルトの名無しさん
10/02/18 12:22:22
パソコンは戦争目的じゃなかったか？
弾道計算か何かだと思う
表計算ソフトは
URLﾘﾝｸ(ja.wikipedia.org)
だとさ。金融がどーとかで税金かどうかまでは分からないが、
まあ似たようなものといえなくも無いが間違ってるとも言える
ってかどっちでもいい
324:293
10/02/18 13:10:45
なんかちょっとだけ盛り上がってますね。すみません
>>321
ああ、それがベストですね！
ルールを変えろ、って言ってる人は意味がわかりません
変えられない前提だって言ってるのになあ
325:デフォルトの名無しさん
10/02/18 13:33:05
サッカーボールを手で運べ！
326:デフォルトの名無しさん
10/02/18 13:36:52
ラグビーの発祥です
327:デフォルトの名無しさん
10/02/18 13:57:47
なるほど
328:デフォルトの名無しさん
10/02/18 14:13:01
どんな書類でもエクセルで作りそうｗ
329:デフォルトの名無しさん
10/02/18 14:16:17
フローチャートをエクセルで作るウチの会社のことだな
俺は個人的なチャートならイラレで作ってるｗ
330:デフォルトの名無しさん
10/02/18 14:30:58
アプリなんてどんな使い方してもいいよ
本来の目的からずれてようが、便利なら使えばいい
331:デフォルトの名無しさん
10/02/18 14:38:19
webページから一部分だけエクセルに取り込むコード作りたいんだけど、webクエリだと大きく取り込んでしまうので困ってます。
具体的には、ヤフーファイナンスからコードと社名と業種だけ(他はいらないです)欲しいんだけど、そういうピンポイントで取り出すみたいな事出来ますか？
また、そういうデータ取り込み系統の技術を得るための参考書籍とかあったら紹介して下さい。
332:デフォルトの名無しさん
10/02/18 14:59:06
>>331
Webクエリなら特定のテーブルだけを取り込むこともできるけど、
ヤフーファイナンスはページ全体が大きなテーブルになってるから一部を取り出すことはできない。
こういう時はページのソースを文字列変数に読み込んで、
タグなどを調べながら必要な部分だけをセルに入れることになる。
あと、やりたいことがピンポイントで決まってるなら書籍よりGoogleで検索した方が早い。
サンプルも必要な部分をコピペするだけだし。
333:デフォルトの名無しさん
10/02/18 15:05:25
レスありがとう。
自分が目指してるのは、多分こういう感じのを応用させるんだろうなとは思ってるんだけど(下、動画のアドレス)
URLﾘﾝｸ(www.youtube.com)
だんねんながらＶＢＡスタンダード程度のレベルでは意味不明でしたｗ
334:デフォルトの名無しさん
10/02/18 15:20:59
>>333
その動画サイトからソース置いてあるページにリンク貼ってあるし
ダウンロードして改造して使えばいいじゃん。
そのビデオ見てわかんないんだったら、ここで同じこと説明しても
やっぱりわかんないんじゃないの？
企業コードが知りたいだけなら、そういう一覧表がきっとどこかにあるはず。
検索してみたら？
335:デフォルトの名無しさん
10/02/18 16:45:51
>>331
新・ExcelVBAで極めるシステムトレード ～最強パワーアップ編
正規表現による取得方法を書いてる
336:デフォルトの名無しさん
10/02/18 18:44:01
>>331
Sub test()
Dim URL As String
Dim WebTbl As String
URL = "URL;URLﾘﾝｸ(quote.yahoo.co.jp)"
' 読み込むテーブルNoを指定する
WebTbl = "4"
With ActiveSheet.QueryTables.Add(Connection:=URL _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
.WebTables = WebTbl
.Refresh
End With
End Sub
ちょっと違うかな？
337:デフォルトの名無しさん
10/02/18 19:00:35
>>331
ごめんorz
ちょっとどころか全然違ったねｗ
338:デフォルトの名無しさん
10/02/18 22:19:02
VBAでJavaにおけるExceptionみたいなものってあるのでしょうか？
つまり何らかのエラーがおこった時点でどのメソッドに強制的に移動するみたいな感じで
339:デフォルトの名無しさん
10/02/18 22:40:22
色々レスありがとう。
エクセル入ってるのが2ndＰＣなので後でコードコピーして試してみる。
あと、オススメ本は明日本屋で探してみます。
コレで勉強してたんだけど、少し不足を感じてたので助かったわ。ちなみに誤字脱字も多いしあんましオススメしない。
URLﾘﾝｸ(www.tradersshop.com)
URLﾘﾝｸ(www.tradersshop.com)
340:デフォルトの名無しさん
10/02/19 02:24:55
～ Range("K" & Rows.count).End(xlUp)
みたいにK列を固定させているのですが
こう書いた場合Excelのシートを列削除したり追加したりするたびに
書き変えなきゃいけないのですが
列を追加したりすると自動的に変更って出来るのでしょうか？
341:デフォルトの名無しさん
10/02/19 07:40:16
>>340
目的の列を探すコードを追加すればいいんでない？
342:デフォルトの名無しさん
10/02/19 20:43:17
>>340
下記どうでしょう？
案１
Range("K1").End(xlUp).Offset(r, c).Value
r, c に増減した行・列の数を代入すると、
移動した先のセルでValueなどRangeの機能を使えます。
案２
ターゲットのセルがsheet1のD1であるとする。
sheet2のセルA1に式"=Sheet1!D1"を記入する。
VBAからは、常にsheet2のセルA1を読む。
例えば、列Bを削除してセルD1がC1に移動した場合、
sheet2のセルA1に記入してある式は、
自動的に"=Sheet1!D1"から"=Sheet1!C1"に変わって追いかけてくれる。
343:デフォルトの名無しさん
10/02/19 23:54:00
初心者質問でごめんなさい
for i = 1 to 33
良くある構文ですけど、iの値を16進法で返す事って出来ますか
9の次は10でなくてＡで返したいんですけど。
344:デフォルトの名無しさん
10/02/19 23:59:28
Hex(i)
ってするってこと？
345:デフォルトの名無しさん
10/02/20 00:13:19
質問させてください。
Excel2000でSortメソッドを使うVBAコードを走らせているとき、
そのExcelウィンドウをバックグラウンドにすると、Sortメソッドの部分だけが滅茶苦茶遅くなります。
（計測するとフォアグラウンドの時と比べて１０倍くらい時間が掛かる）
フォアグラウンドに切り替えると高速に動作します。
環境はXPpro、Excel2000で、Core2Duo・Corei7 いずれのＰＣでも再現します。
パフォーマンスオプションはバックグラウンドサービスに設定しています。
これって仕様なんですかね。Excel2003や2007だと改善されていますか？
346:デフォルトの名無しさん
10/02/20 01:50:57
>>344
ありがとうございます。恥ずかしながらHexという関数を始めて知りました。
出来ればストレートに大文字で返して欲しいですけど、これでかなり楽になりました。
347:デフォルトの名無しさん
10/02/20 09:09:59
>>340
K列またはK列の一番後ろのセルに名前をつければいいんじゃね？
348: [―{}@{}@{}-] デフォルトの名無しさん
10/02/20 09:46:08
>>340
>>341もいいね。
行追加がないものとして、列見出しが"日付"だったら
Set target = Rows(1).Find("日付").EntireColumn.Cells
MsgBox target(target.Count).End(xlUp).Address
とか
行追加があるならRows(1)をCellsにでもすればいいだろう
349:デフォルトの名無しさん
10/02/20 15:59:46
セルの計算式を下記のようにして
=TEST()
標準モジュール関数TESTを呼出した場合、関数側で
呼出し元のセルの位置を取得するにはどうしたらいいですか？
アクティブセルの位置ではなく、関数呼出しの計算式が
書かれているセルを知りたいです。
Windows7、Office2007です。
よろしくお願いします。
350:デフォルトの名無しさん
10/02/20 16:22:21
>>349
関数の引数にRow,Column
351:デフォルトの名無しさん
10/02/20 16:24:48
URLﾘﾝｸ(www.ne.jp)
352:デフォルトの名無しさん
10/02/20 17:36:52
>>350>>351
ありがとうございます。
Application.Caller と Application.Volatile を使い
それらしい動きにはなったのですがセルの再計算時の挙動に
癖がありますね。
別シートをいじってからシートを切り替えると#VALUE!になって
しまい、元のシートで再計算しなおしてやらないといけません。
関数を諦めて計算式で全部やる方向も検討してみます。
353:286
10/02/20 20:43:44
C
A
B
D
F
354:デフォルトの名無しさん
10/02/21 15:36:41
ソートの話が出たので便乗するんだが、
結局、どのソートが一番速く安定性があるのか。。
エクセルのVBA限定の話で、
項目数が100程度の場合、項目数が100,000の場合、ほぼ並んでいる場合、まったくのランダム。
状況によっていろいろあるんだろうが、とりあえずこのソートをよく使うっていうのを教えてくれ。
355:デフォルトの名無しさん
10/02/21 16:25:34
エクセルのVBA限定の話ならエクセルのソートをまんま使っちゃう
中身がなんなのかは知らんｗだれか知ってる？
356:デフォルトの名無しさん
10/02/21 17:12:06
クイックソート
357:デフォルトの名無しさん
10/02/21 18:27:22
一般機能優秀じゃない？
わざわざコードを組むより、一般機能や関数を使った方が早い場合が多い
・・・とどっかに書いてあったｗ
358:345
10/02/21 21:13:08
>>345のような現象は自分だけなのかな？
仕様ならばSortメソッドを使わずにソートするしかない
Sortメソッドの場合、常にエクセルをアクティブにしていれば問題ないけど、
エクセルを複数起動して同じコードを並列処理させる場合、
アクティブなエクセルでは問題ないけど
他の非アクティブなエクセルは極端に遅くなってしまう。
359:デフォルトの名無しさん
10/02/21 21:34:43
先月自作のエロ画像処理ツールでクイックソートを使ったよ。
理由は使ったことが無かったから。
ソートのプログラムを書いたのは後にも先にもこれだけ。
DBのorder byとかエクセルの並べ替え機能さえ使えればプログラムで書くことはまず無い。
360:デフォルトの名無しさん
10/02/21 21:37:46
>>358
自動計算や画面更新を止めてもおそい？
361:デフォルトの名無しさん
10/02/21 21:43:26
構造体の配列例えば、生徒（学籍番号、名前、身長、体重）を体重で並べ替える場合って
学籍番号や名前や身長も全部入れ替えるの？
362:デフォルトの名無しさん
10/02/21 21:47:48
入れ替えないとデータが壊れるでしょ
363:デフォルトの名無しさん
10/02/21 21:53:47
>>362
別の配列に学籍番号だけを取り出して
ソートしてもとの配列と紐付けるとかはあり？
学籍番号、名前、身長だけなら入れ替えてもいいけど
他の項目が100個とかあったら大変じゃね？
364:358
10/02/21 22:39:11
>>360
もともと自動計算も画面更新も止めてます。
Sortメソッドを含むVBAコードがアクティブなエクセル上で高速に動作してる最中に、
デスクトップをクリックしてエクセルを非アクティブにすると、途端に実行速度が十分の一ほどになる。
再度エクセルをアクティブにすると高速に動作する。という状態です。
365:デフォルトの名無しさん
10/02/22 01:08:44
XPでExcelは2003を使用しています。
VBA（マクロ）を触りだして3日程です。
ブックA（1日の記録） ブックB（数ヶ月のデータ・縦に日付、横に種類や個数等）
ブックAの日付入力箇所に、日にちを打ち込みます（マクロでは無く手打ち）
ブックAのデータ入力箇所に、ブックBのデータを引用する為に
ブックAを開いた状態で、「マクロを記録する」で
ブックBを開き、ブックAに戻り手打ちした日付のセルをコピーして
ブックBに移動して、ctrl+Fでコピーした日付を貼り付けて検索
検索した右側に、必要なデータがあるので、キーボードで右側を押して
目的のデータ（種類や個数等）をブックBからブックAにコピーしてペーストを繰り返す
（繰り返す理由は、必要なデータが飛び飛びな為と、横に並んでいるのを縦に並べる為）
コピペ終わると、ブックBを閉じる。
というマクロを作ってみたのですが
日付を変えて実行してみたり、VBA？を見てみると問題点が沢山ありまして
問題点1、Aで日付をコピーして、Bで検索時にペーストして検索する所で
2010/1/1をコピーして、マクロを作った為か
日付を2010/1/2に変更してマクロを実行しても
2010/1/1で検索した、データを引用してしまう
問題点2、検索した日付の横のデータをキーボードで右側に移動してコピーの部分で
VBA？で見てみたところ、単純にあるセルをコピー となっているようなので
日付の問題が解決しても、検索した日付の右側ではなく
あるセルをコピーしてしまう為、日付とは関係の無い特定のセルをコピーしてしまう
色々試したり、VBAで見たところ
問題点1は、検索時にコピペした日付では無く、マクロを記録した2010/1/1で検索しているので
日付を変更しても意味が無い？若しくは、検索自体がマクロで出来ない？
問題点2は、キーボードの右等の操作は記録されない
検索ではなく、オートフィルタを使い、特定の日付を1行だけにすることにより
行移動を無くせば解決？
366:365
10/02/22 01:09:58
自分がしたい事を簡単にまとめると
ブックAに日付を入力後、マクロ実行
ブックAに入力した日付に対するデータを
ブックBから引用
日付等は、=today() で入力したいのですが
ブックBのデータを引き出す為の、日付の部分が
2010年1月1日が、20100101 となっているので
オートフィルタでデータを絞る為にも、20100101 というデータが必要なので
日付は手入力という手段しか無いと思いました
後は、ブックBをオートフィルタで絞りこんだとして
データをAに入力したら、ブックBを閉じたいのですが
オートフィルタを実行した後だと、「変更を保存しますか？」と
窓が出てくるので、出てこない様にするにはどうしたらいいのでしょうか
長くなって申し訳ないですが、よろしくお願いします
367:デフォルトの名無しさん
10/02/22 07:37:15
少しは自分で書く努力しようぜ
368:デフォルトの名無しさん
10/02/22 08:39:56
year関数、month関数、day関数
オートフィルタは2種類
アプリケーションアラートの停止
369:365
10/02/22 10:08:10
>>368
その辺りを、調べてみますありがとうございました。
370:デフォルトの名無しさん
10/02/22 10:09:25
テキストボックスにInteger型のデータと文字列を結合して表示させたいのですがどう打ち込めばいいでしょうか？
イメージ的には
textbox1.text = integer型のデータ + "文字列"
としたいのですが
371:デフォルトの名無しさん
10/02/22 10:14:05
>>370
integer型のデータ & "文字列"
じゃ駄目か？
372:デフォルトの名無しさん
10/02/22 11:02:40
>>371
出来ました
ありがとう
373:デフォルトの名無しさん
10/02/22 12:56:33
ソートの話の続きなんだけど、
一次配列100個の右４文字を昇順でソートするっていう場合は記述するしかないんじゃない？
374:デフォルトの名無しさん
10/02/22 14:36:56
>>373
セルに入れたくないならそうだろうね
でもエクセルを使ってるからには
どのみちセルにぶち込むデーターなんだろうし
右４文字を取り出した列を作ってやればいいんでない？
375:デフォルトの名無しさん
10/02/22 18:47:48
なぁ、EXCEL2000から2007に最近環境を変えなきゃならんオレに
表示とか環境設定みたいなのどうしてるか教えろ。
取り敢えず立ち上がったところから気に喰わないし自作DLLは変な文字吐くし泣けるんだわ。
他のスレで聞いてもいいんだけどVBA使ってる人に聞いてみたいんだ。
デフォルトのに慣れろってんならそうする。
376:デフォルトの名無しさん
10/02/22 19:49:33
>>375
2003と同じツールバーを出すサードパーティーのアドインがあったよ
即効で使わないといけないならとりあえずこれ
最近チェックしてないのでなくなってたらゴメン
2007に移行した人に聞いてみたら慣れたら2007のほうが使いやすいって言ってたので
時間的余裕があるなら耐えて使うかなｗ
うちもまだ２００３でふんばってまふ
377:デフォルトの名無しさん
10/02/22 19:54:38
Office 2007にOffice 2003互換メニューを追加する
URLﾘﾝｸ(www.atmarkit.co.jp)
↑を入れてるw
378:デフォルトの名無しさん
10/02/22 20:40:31
まあ、2010も同じ形式なので、諦めて慣れた方がいいような気もするけどね
379:デフォルトの名無しさん
10/02/22 21:05:50
とっくの昔に2007になれた。
2007のほうが使いやすいんだが、周りの全員がオレに聞いてくるのでうっとうしい。
380:デフォルトの名無しさん
10/02/22 21:06:21
>>376-378
サンクス
フリーのアドイン見てみたけど、MSは基本このまま使えって言ってるって事みたいだね。
最初見たときマジでOOoに乗り換えようかと思ったわ。
XPの頃のPCがそろそろ更新のサイクルに来てると思うんだけど乗り換える人もある程度出てくるんじゃね?
まああ、VBA関連のコードも書き換え(1から作り直し？)無きゃならんしオレがUIに慣れる方向でやってみて、
同僚の反応とか聞きながらこの先の事は考えてみるわ。
381:デフォルトの名無しさん
10/02/22 21:23:19
>>379
そらそうだろ。知ってるやつ居るならオレも聞きたいわｗｗｗ
てか、どのくらいで慣れるのか聞きたいわ。
あと、DLLのインタフェースにXML使うの実装しといたの思い出したらなんとかなった。
とにかくサンクス。
382:デフォルトの名無しさん
10/02/22 22:43:46
2003と2007の両方入れてる
常用は2007なんだけどマクロの記録がタコなんでどうしても2003は消せない
UIは慣れるしかない
383:デフォルトの名無しさん
10/02/22 23:04:21
>>364
アクティブでないアプリケーションの処理が遅くなるのはWindowsが
そういう風にCPU処理を配分してるからでしょ。システムのプロパティで
裏のプログラムも同等に処理するように設定したら？
その代わりアプリが表側に来てるときの処理速度は落ちるけど
PCの性能が無限でない以上仕方ない。
384:デフォルトの名無しさん
10/02/23 00:30:51
>>383
デュアルコアだと快適になるかな？
385:デフォルトの名無しさん
10/02/23 05:51:45
ダブルクリックで複数立ち上げるとエクセル本体は一つしか立ち上がらないので
マルチCPUでも一つのコアしか使ってくんない
スタートメニューからエクセルを必要数起動しエクセルからシートを読み込んでやると
別プロセスで動くので各コアに分担させることが可能
割り振りはたすくマネージャから手動で変更可
これでどれだけ快適になるかはやってみなきゃわかんない
よほど処理時間長いものじゃなきゃごちゃごちゃやってる間に終わっちまうしな
386:デフォルトの名無しさん
10/02/23 12:32:43
指定のzipファイル内にあるcsvファイルを配列に落とすにはどうしたらよいでしょうか
配布の都合上外部DLLは使用出来ません
387:デフォルトの名無しさん
10/02/23 18:06:44
自己解凍ファイルにするとか
388:デフォルトの名無しさん
10/02/23 18:54:41
>>386
きっとそのzipファイルは変えられないんでしょ。
XPならzipって標準でライブラリなかったっけ？
外部dllには違いないけど、それ読み込んで解凍させるとか。
389:デフォルトの名無しさん
10/02/23 19:15:51
★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。
★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
390:デフォルトの名無しさん
10/02/23 21:26:22
OS:windows
Excelバージョン:2003
条件付き書式を設定していくマクロについて質問です．
[問題]
C1:E3の各セルに文字 aもしくはbもしくはcが入力されているとします．
このときA1のセルにa,A2のセルにbが入力されたとき
C1:E3の各セルでaもしくはbが入力されているセルのみ背景を赤にしたいのですが
どうすればよいでしょうか？
[自分なりの解答]
以下のような条件付き書式を各列で設定していくマクロを作ってみたのですが、
$C$1のところが$C$1～$E$1とすることができず詰まっています．．．
Do Until ActiveCell.Value = ""
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2,$C$1)>=1"
Selection.FormatConditions(1).Font.ColorIndex = 2
Selection.FormatConditions(1).Interior.ColorIndex = 3
ActiveCell.Offset(1).Select
Loop
End Sub
391:デフォルトの名無しさん
10/02/23 21:58:13
こういうことか？
Sub test()
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 3 To 5
If Cells(i, j) = Cells(1, 1) Or Cells(i, j) = Cells(2, 1) Then
With Cells(i, j)
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
End With
End If
Next j
Next i
End Sub
392:デフォルトの名無しさん
10/02/23 22:27:24
>>390
よくわかんないけど
Sub testestes()
Dim myRange As Range, r As Range
Set myRange = Range("c1:e1")
myRange.FormatConditions.Delete
For Each r In myRange
r.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($A$1:$A$2," & r.Address & ")>=1"
r.FormatConditions(1).Font.ColorIndex = 2
r.FormatConditions(1).Interior.ColorIndex = 3
Next r
End Sub
393:デフォルトの名無しさん
10/02/23 22:43:53
>>390
条件付き書式を間違ってないか
C1は=COUNTIF(A1:A2,C1)>=1で
E1は=COUNTIF(A1:A2,E1)>=1といれるべきだと思う
394:デフォルトの名無しさん
10/02/23 22:52:26
>>391-392
レスありがとうございます．
お二人のおかげで作りたいものができました．
勉強になりました．本当にありがとうございます．
>>393
レスありがとうございます．
ご指摘のとおりです．
>>392さんのレスに有る
＞ & r.Address &
のような方法を探してました．
395:345，358，364
10/02/24 00:55:58
レスくれた方ありがとうございます。
上手く伝わりませんが、>>345で書いた通り、
ＰＣはデュアル又はクアッドコアで、システムのパフォーマンスオプションはバックグラウンドサービスに設定。
エクセルを複数起動して並列処理しており、ウィンドウが表でも裏でも全て高速動作してる。
画面更新や再計算停止等の高速化は実施済み。
ただし、VBAコードの中にSortメソッドが含まれており、かつ非アクティブウィンドウである場合に限り、Sortメソッドの処理が極端に遅くなる。・・・という事です。
>>385の方法をスクリプトで自動化してるので、Core i7でExcel2000を８つ起動して同じコードを走らせると８コア100%までぶん回して高速に演算できてるけど、
Sortメソッドを使うとそこが激しくボトルネックになる。
ちなみに普通にエクセルを１つだけ開いてSortを何万回も繰り返すコードを実行中に、デスクトップをクリックしてエクセルを非アクティブにするだけでも途端に劇遅になる。
これ多分Excel2000の仕様というかバグなんだけど、同じ現象についてはググっても見つからなかったので、これが問題になるほど何時間もぶん廻す使い方がよほど特殊なんだろう。
Sortメソッドを使わない方向で解決する事にします。
396:デフォルトの名無しさん
10/02/24 19:57:09
すみません教えて欲しいんですが
SET A = Range("B1:E10")
SET X = Range("C5")
のような時に
単一セル X はセル範囲 A の 範囲内にあるかどうかの
判定方法はどうやったらよいのでしょうか？
397:デフォルトの名無しさん
10/02/24 20:01:38
intersect
398:396
10/02/24 20:05:39
>>397
あ！なるほど
ありがとうございました
399:デフォルトの名無しさん
10/02/24 20:53:23
>>395
何がやりたいのか判らないけどアクセス使ったほうがいいんじゃないか？
それはさておき、こことか。
URLﾘﾝｸ(chotosplus.sakura.ne.jp)
400:デフォルトの名無しさん
10/02/25 04:03:34
すみません、教えていただけないでしょうか
OS:windows
Excelバージョン:2003
反復型の成績判定で10人分の得点を一人ずつ成績判定を行うプログラムを作りたいのですが、
Sub 反復型の成績判定()
Dim X As Variant
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
Dim hantei As Variant hantei = Array("不可です", "可です", "良です", "優です", "対象外です")
Dim h As Integer
Const n As Integer = 10
Dim i As Integer
Dim tokuten As Integer
For i = 1 To n
tokuten = X(i - 1)
Next
Select Case tokuten
Case Is < 60
Debug.Print Format(tokuten, "#点は ") & Format(hantei(0), "不可です")
Case Is < 70
Debug.Print Format(tokuten, "#点は ") & Format(hantei(1), "可です")
Case Is < 80
Debug.Print Format(tokuten, "#点は ") & Format(hantei(2), "良です")
Case 80 To 100
Debug.Print Format(tokuten, "#点は ") & Format(hantei(3), "優です")
Case Else
Debug.Print Format(tokuten, "#点は ") & Format(hantei(4), "対象外")
End Select
End Sub
これだと68点の成績判定しかされないのですが、どこを直せば良いのでしょうか？
401:デフォルトの名無しさん
10/02/25 06:16:13
>>400
nextを end select の後に移動
402:デフォルトの名無しさん
10/02/25 06:21:10
>>400
Sub 反復型の成績判定()
Dim X As Variant
Dim element As Variant
Dim hantei1 As Variant
Dim hantei2 As Variant
Dim h As String
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
hantei1 = Array(0, 60, 70, 80, 101)
hantei2 = Array("不可です", "可です", "良です", "優です", "対象外です")
For Each element In X
h = WorksheetFunction.Lookup(element, hantei1, hantei2)
Debug.Print Format(element, "#点は ") & h
Next
End Sub
403:デフォルトの名無しさん
10/02/25 07:27:05
え！？hentai？？？と思ってしまった・・・orz
404:デフォルトの名無しさん
10/02/25 12:04:56
できました！
助かりました。ありがとうございます。
405:デフォルトの名無しさん
10/02/25 12:14:46
すみません、もうひとつ聞きたいことがあるんですが、
星の表示で1～ｎ個の＊を順番に表示させるプログラムをつくったんですが、
Sub 星の昇順表示()
'1 ～ ｎ個の”* ”を順番に表示
Dim i As Integer, n As Integer
n = 10
Do
Debug.Print Format(i, "00") & String(i, "*")
i = i + 1
Loop While i < 11
End Sub
これをｎ～1個の＊を順番に表示させるためにはDo～Loopを使ってどのように変えればいいのでしょうか？
教えていただけないでしょうか。
406:デフォルトの名無しさん
10/02/25 12:45:59
>>405
初期値
加算値
終了条件
宿題け？
407:デフォルトの名無しさん
10/02/25 17:48:25
Dim y As Integer
Dim x As Integer
Dim objTableItem As Object
'.body ‚loop body data
For Each objTAG In objIE.document.body.all
'search for table tag
If objTAG.tagName = "TABLE" Then
'add new sheet
Sheets.Add
y = 0 'row
'loop item in table
For Each objTableItem In objTAG.all
If objTableItem.tagName = "TR" Then
y = y + 1 'row +1
x = 1 'columm=1
End If
If objTableItem.tagName = "TD" Then
'set text data
Cells(y, x) = objTableItem.innerText
x = x + 1 'next columm
End If
Next
End If
Next
このままだと、Excelを使ったIE操作に関する質問です。
website上のテーブルをコピーして、エクセルにペーストしたいのですが、このままではテキストにリンクが貼られていても、
テキストしかコピーできません。
例えば、<a href ="http.....">VBA</a>の場合、テキストのみがペーストされますが、エクセル上でVBAをクリックすると、URLにジャンプできるようにしたいのですが、何かいいアイディアはございますか？
408:デフォルトの名無しさん
10/02/25 18:58:19
>>406
回答ありがとうございます。
すみません、具体的にはどこをどう変えればいいのでしょうか。
本当に初心者なので、どこをどういうふうに変えたら＊の数が下がるようになるのかわからないんです。
409:デフォルトの名無しさん
10/02/25 22:22:30
>>407
If objTableItem.All.tags("A").Length > 0 Then
Debug.Print objTableItem.All.tags("A")(0).href
End If
で
http.....
が取得できると思うけど
410:デフォルトの名無しさん
10/02/25 23:46:43
>405
★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み
コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。
411:デフォルトの名無しさん
10/02/26 00:30:18
ユーザーフォーム上のテキストボックスに前のデータを表示させたまま下に出力し続けることは可能でしょうか？
412:デフォルトの名無しさん
10/02/26 00:58:33
>410
仰るとおりです。本当に申し訳ありません。
ただ、時間がなくプログラムもどう変えればいいか全然わからず、丸投げしてしまいました。
厚かましいお願いではありますが、初心者でもわかる範囲でヒントをもらえないでしょうか。
見よう見まねで上のプログラムは組めたんですが、反対に星の数を少なくしていくやり方がどうしてもわかりません。
どうかよろしくお願いします。
413:デフォルトの名無しさん
10/02/26 01:52:16
>>408
なんかの宿題だろうけど
見よう見まねだとしても
>>405の コードでなぜ星の数が多くなっていくのか
それを理解するのが先だと思う
じゃあ逆に質問
1～5個の"*"を順番に表示にするには？どう修正する？
実行結果は下ね
01*
02**
03***
04****
05*****
ちなみに下だと失格だよ
00
01*
02**
03***
04****
05*****
414:デフォルトの名無しさん
10/02/26 02:06:08
>>412
i = 10
i = i - 1
i > 0
415:デフォルトの名無しさん
10/02/26 02:41:02
Dim i As Integer, j As Integer, n As Integer, s As String
n = 10
For i = 1 To n Step 1
s = Format(i, "00")
For j = 1 To i Step 1
s = s & "*"
Next j
Debug.Print s
Next i
End Sub
そういえば、iとかjとか一文字の変数名はよくないって話はどうなってんの
416:デフォルトの名無しさん
10/02/26 03:02:49
>414
できました！助かりました!本当にありがとうございます。
>413
i = 1 という条件を付け加えればよかったんですね！
一人じゃ何もわからず、途方にくれていました。本当に助かりました。
ありがとうございました。
417:デフォルトの名無しさん
10/02/26 08:18:56
>>415
変数名１文字なんてどうでもいい
それよりループ回してs=s&"*"なんて恥ずかしいからやめろ
>>405さえString関数使ってるだろ？
418:415
10/02/26 09:54:18
なんで？
01*
02*+
03*+*
04*+*+
05*+*+*
こういうのやる時必要でしょ？
419:デフォルトの名無しさん
10/02/26 11:01:47
>418
ｦｲｦｲ・・・
420:デフォルトの名無しさん
10/02/26 11:23:13
For文で変数にiとjを使うのは昔からの慣習なので問題ない
421:デフォルトの名無しさん
10/02/26 15:39:29
時間がないと言ってるのに>>413はちょっとかわいそうだとｵﾓﾀ
422:デフォルトの名無しさん
10/02/26 19:40:12
名簿から名前（アルファベット）を拾って
頭文字別の一覧表シートを作成しようとしています。
ソート後に頭文字を
if str[i] == str[i+1]
hoge列に代入
elseif str[i] != str[i+1]
hoge = hoge+1
hoge列に代入
という方法でやろうと思ってるんですが
（if a ～ if z では長くて面倒ですし・・）
他に方法というかVBA側で用意されてるものってあったりしますか？
リスト構造体的なものがあってそこに文字列ぶちこんで
検索文字抽出→GetNextで抽出文字列を順々に引っ張り出せたりとか・・
そういったものがあったりしないかなぁと思い質問させていただきました。
423:422
10/02/26 19:43:33
== → =
!= → <>
に訂正します。
比較演算子がC++になってしまいました・・
424:デフォルトの名無しさん
10/02/26 21:19:44
>>422
（if a ～ if z では長くて面倒ですし・・）
の部分が何が言いたいのかよくわからん。
例示されたプログラムのどこにも出てきてないのに、いったい何がやりたいんだ。
425:デフォルトの名無しさん
10/02/26 21:36:06
>>422
１Byte文字かつアルファベットのばあい。
文字列の先頭１文字の文字コード（アスキーコード）取得して適当に計算して
Ｃｅｌｌ位置に変換してそこにぶち込む。をＬｏｏｐすれば？
カラム方向のカウンタも配列にして。
426:422
10/02/26 22:06:04
>>424
if str[i] like "Aa" ～ if str[i] like "Zz"
ということでした。わかりづらくて申し訳ありませんでした
>>425
やはりLoopで回すのが手っ取り早そうですね。
ありがとうございます。
427:デフォルトの名無しさん
10/02/26 22:22:51
>>417
別にええやんと思う人間が実はここにもいる。
性能的な違いはある？
428:デフォルトの名無しさん
10/02/26 23:57:22
>417
>それよりループ回してs=s&"*"なんて恥ずかしいからやめろ
途中の結果も必要なんだから別に恥ずかしいとは思わんが･･･
429:427
10/02/27 01:21:43
あ、文字列を作るためだけにループ使うなと言いたいのか。
でもString関数なんて今まで知らなかったよ。
ところで文字を連続させる関数て何に使うんだろうか。
430:デフォルトの名無しさん
10/02/27 08:35:11
>>429
文字を連続させるために使う。
431:デフォルトの名無しさん
10/02/27 08:55:01
使いたい人が使いたいときに使う。
例えば*を100個書きたい場合(101個だとダメ９９個でもアウト～)に
String()を使えば間違わないで書けるとかじゃろ？
432:デフォルトの名無しさん
10/02/27 09:38:38
worksheetfunction に rept ってなかったっけ？
433:デフォルトの名無しさん
10/02/27 13:13:17
だめだ、同じ文字を10個ならべる目的が思いつかない。
固定だったら"**********"とか書くし需要少なそうだ。
まあ、あるものは使った方がいいのは確かだと思う。
String関数の中でループ処理が組んであるんだろう。
434:デフォルトの名無しさん
10/02/27 13:42:12
バリアント型 (内部処理形式 String の Variant) の値を返します。
指定した文字コード (ASCII またはシフト JIS コード) の示す文字、または文字列の先頭文字を、
指定した文字数だけ並べた文字列を返す文字列処理関数です。
Dim MyString
MyString = String(5, "*") ' "*****" を返します。
MyString = String(5, 42) ' "*****" を返します。
MyString = String(10, "ABC") ' "AAAAAAAAAA" を返します。
435:デフォルトの名無しさん
10/02/27 13:49:08
ForとString()じゃパフォーマンスが段違いに違う。
String(999999999,"*")は一瞬で処理されるのに対し、ForはExcel自体がフリーズする。
436:デフォルトの名無しさん
10/02/27 13:49:20
>>433
目的ですか、うちでよく使うのは
その１、ダミーデーター作成（スペースでいい場合はspace()を使うけど）
1.1、固定でも２００個とか数えるのやだし
1.2、固定長ﾃﾞｰﾀを扱うときにあまった領域の埋め草を作るのに使う
その２、CUIで棒グラフ
あとは、なんだろうね、なにかあったような気がするが思い出せない
437:デフォルトの名無しさん
10/02/27 13:50:37
たとえば
あるLoop処理でｃ言語のTableを作るとかの場合に、
タブを何個挿入するのかをブレイスの深さで変えたい場合、
ブレイスの深さをカウンタにしておけば少し便利かも。
タブじゃなくてスペース４個とかでも同じ。
String(i, Chr(9)) & StringBuff & vbLf
438:デフォルトの名無しさん
10/02/27 13:50:43
ごめん9が1個多かった
439:デフォルトの名無しさん
10/02/27 14:44:21
なるほど、固定長データを埋めるときという例はすごくよく判ったし
パフォーマンスが全然違うんだね。ありがとう。
生の固定長データを自分で作ったことが多分ないから気づかなかったよ。
440:デフォルトの名無しさん
10/02/27 16:02:28
だんだん文字列を大きくしていくのはメモリ確保に時間がかかるからやらないのが常識。
サイズが小さいうちは平気だけどね。
441:デフォルトの名無しさん
10/02/27 17:45:33
それは何nsの話なのか
442:デフォルトの名無しさん
10/02/27 18:39:18
小さいうちは数ナノ秒でも大きくなると幾何級数的に時間がかかるよな。
443:デフォルトの名無しさん
10/02/27 20:11:25
excel2003を使用しています。
ファイルを外部から取り込む際に、ダイアログを使用していますが、
この取り込むときのフィルターのかけ方で、特定の文字列を含むファイルのみ表示することは可能でしょうか？
Filter = "エクセルファイル(*.xls)" & Chr(0) & "*.xls" & Chr(0)
現状はこの様になっており、拡張性がエクセルファイルのものだけを表示するようになっています。
これに特定の文字列を持ったファイル名を表示するという条件を追加できませんか？エクセルファイルで、名前が091201を含むなど
444:デフォルトの名無しさん
10/02/27 20:13:24
>>441
性能問題起こしそう
445:デフォルトの名無しさん
10/02/27 20:16:35
"09*.xls"
446:デフォルトの名無しさん
10/02/27 20:53:18
まぁ、スピードが要求されるならC++でDLL書いてVBAから呼べって話になるんですがね
447:デフォルトの名無しさん
10/02/27 22:02:08
そういう問題じゃねーのまだ分ってねーの
計算量のオーダが２乗ってことだよ
448:デフォルトの名無しさん
10/02/27 22:04:49
ほら
1+2+3+...+n=n(n+1)/2=n**2+1/2*n
449:デフォルトの名無しさん
10/02/27 22:28:51
流れを無視してすみません
VBA初心者ですが質問させてください
Userformでの話なのですが
ボタンが押された際に
TextBoxにセルの値を代入し表示
2秒間隔をあけ、その後フォームを閉じる
という処理を行いたいのですがTextBoxに表示される前にフォームが閉じられてしまいます。
フォームが閉じられる前にTextBoxにテキストを表示させるにはどのような方法をとればいいのでしょうか？
サンプルコードは以下のとおりです。
Private sub CommandButton1_Click()
TextBox1.text = sheets("sheet1").range("A1").value
call delay(2) '2秒ディレイするという命令
Unload Me
endsub
分かりづらいコードで申し訳ないですがご指導のほどお願いいたします。
450:デフォルトの名無しさん
10/02/27 22:40:23
>>445
ありがとうございます！！
451:デフォルトの名無しさん
10/02/27 22:43:48
どうしてもその自作関数つかうなら
delayのほうに
閉じる動作書けばいんじゃね
452:デフォルトの名無しさん
10/02/27 23:09:19
>>447
.NET Framework使えよって話だ
453:デフォルトの名無しさん
10/02/28 00:17:06
>>449 ontime
454:デフォルトの名無しさん
10/02/28 00:40:48
VBAで指定されたURLに日本語をくっつけてWebを開く事は出来ますが
そうではなくて
開いたWebページのあるテキストボックスに選択されたセルにある文字列を入力して
ボタンを押下する方法とかはあるのでしょうか？
もしあればご教授お願いします
455:デフォルトの名無しさん
10/02/28 01:10:19
>>454
Sendkeys
456:デフォルトの名無しさん
10/02/28 11:21:20
>>449
DoEvents を使ってみるといいかも
TextBox1.text = sheets("sheet1").range("A1").value
DoEvents
call delay(2)
Unload Me
457:デフォルトの名無しさん
10/03/01 01:46:21
テキストファイルA.txtの内容をstrAとし、
テキストファイルB.txtの内容をstrBとし、２つを合体させて
クリップボードにコピーしようとしています。
strA も strB も、それぞれ読み取れてはいるのですが、
strA & strB とすると前者の方しかコピーされません。
逆にしても同じです。
&でつなぐことはできないのでしょうか？
458:デフォルトの名無しさん
10/03/01 02:42:09
>>457
よくわかりませんが、先に
strAB = strA & strB
したり、そこで文字列結合関数を使ってみては？
459:デフォルトの名無しさん
10/03/01 19:14:57
nul文字混入
460:デフォルトの名無しさん
10/03/02 22:00:35
Worksheets("225構成銘柄(業種別分類)").Range(Cells(2, 1), Cells(2, 2)) = Worksheets("水産").Cells(3, 3)
これでアプリケーション定義またはオブジェクト定義のエラーです。が出るのは何でだ？
もしかしてシートまたいでのコピーっていちいちactiveにせないかんの？
簡略表記できないの？
461:デフォルトの名無しさん
10/03/02 22:50:10
>>460
1.
Worksheets("225構成銘柄(業種別分類)").Activate
Range(Cells(2, 1), Cells(2, 2)).value = Worksheets("水産").Cells(3, 3).value
2.
With Worksheets("225構成銘柄(業種別分類)")
.Range(.Cells(2, 1), .Cells(2, 2)).value = Worksheets("水産").Cells(3, 3).value
End With
3.
Worksheets("225構成銘柄(業種別分類)").Cells(2, 1).Resize(1, 2).value = Worksheets("水産").Cells(3, 3).value
お好きなのをどうぞ
462:デフォルトの名無しさん
10/03/02 23:22:41
なんか納得いかないけどありがとう御座います。
とくに2なんかwithで囲っただけでなんで上手く行くんだ？
463:デフォルトの名無しさん
10/03/02 23:52:33
>>462
RangeやCellsはシートを指定しないとアクティブシートを対象とする。
そのため460の書き方では、CellsのシートとRangeのシートが一致していない。
461の.Cellsはドッドが付いているため.Rangeと同シートを対象としているので動く。
と正しくないかもしれないけど勝手解釈な説明をしてみた。
464:デフォルトの名無しさん
10/03/03 08:47:09
>>457
(strA & strB)
としてはどうか
465:デフォルトの名無しさん
10/03/03 16:46:26
>>463
ふんわりと勉強になった。
知らん事だらけで困惑する。
466:デフォルトの名無しさん
10/03/03 20:11:36
簡単に言うと、
Cells(2, 1), Cells(2, 2)
ってのが、どこのシートのセルか指定されてないってことね。
467:デフォルトの名無しさん
10/03/03 21:25:06
現在VBAでエラーが出た場合
On Error GoTo ErrorHandler
ErrorHandler:
MsgBox "エラーが発生しましたので終了します"
のように強制的に終了させていますが
これだとどこでエラーが起こったのかわかりません。
しかしこれをはずすとVBAの画面が出てきてしまうのでそれは何としても避けたいのですが
いわゆる実際の開発現場での作業などで作成される場合、
一般的にデバッグってどうやってされているのでしょうか？
たとえば通過ログを各地にはりつけてこのログが通って、このログが通っていないので
その間で落ちたと言うやり方が思いつくのですが、
あるいはこの部分で落ちたとかがわかるコードなどあるのでしょうか？
468:デフォルトの名無しさん
10/03/03 21:32:39
>>467
Ｄｅｂｕｇ．Ａｓｓｅｒｔ（条件文）
469:デフォルトの名無しさん
10/03/03 21:40:30
Err.Description じゃなかったっけ？
それみてエラー箇所が特定出来ないなら関数が大きすぎるんじゃないか？
470:デフォルトの名無しさん
10/03/04 00:22:40
>>467
とりあえずErrオブジェクトでぐぐれ
エラーの発生した場所を正確に知るにはErl関数を使うという手もあるが
使い方がかなり面倒なのでおすすめはしない
471:デフォルトの名無しさん
10/03/04 00:28:40
ちがう
Err.LineNumber
472:デフォルトの名無しさん
10/03/04 01:06:17
>>467
VBEのメニューバーにそのものずばり「デバッグ」てのがあるでしょ
いちいちソースを書き換えなくても、どこまで実行したら一時停止とかできるんだよ
473:デフォルトの名無しさん
10/03/04 16:44:12
>>471
ErrオブジェクトにLineNumberなんてプロパティある？
474:デフォルトの名無しさん
10/03/04 20:12:54
Excelにプルダウンを入れていて、いくつか選択肢を入れているのですが
Excelを最初開いた時には空白で
別のシートを選択して、またこのシートに戻ってきた時に表示されます
これの原因ってわかりますでしょうか？
初期化がうまくいっていない気がしますが
どうしても理由が分かりません
ちなみにコードとしては
VBAプロジェクトの同じシートの中に下記の記述を入れています
Private Sub Worksheet_Activate()
With Me.Director_Combo
.Clear
.AddItem ""
.AddItem "あああ"
.AddItem "いいい"
.AddItem "ううう"
.ListIndex = 0
End With
End Sub
475:デフォルトの名無しさん
10/03/04 20:22:51
>>474
ThisWorkbookのWorkbook_Openイベントに記述する
シートの指定を忘れずに
476:デフォルトの名無しさん
10/03/04 21:48:31
ある文字列中に.が何個あるか出力したいんですけど、どうすればいいですか？
例えば"1.25.30.2"ならば3を出力したいです。
477:デフォルトの名無しさん
10/03/04 21:59:28
>>476
単純に思いついたコードなんで間違ってたらすまん
Dim wkArr() As String
wkArr = Split("1.25.30..", ".")
MsgBox UBound(wkArr)
478:デフォルトの名無しさん
10/03/04 22:11:36
あんまりスマートじゃないな
s = "12.34.56.."
Debug.Print Len(s) - Len(Replace(s, ".", ""))
479:デフォルトの名無しさん
10/03/04 22:30:41
>>478
なるほど。LenとReplaceを組み合わせるんですね。
どうもありがとうございます。
480:デフォルトの名無しさん
10/03/07 00:01:38
Sheets(intS).Activate
ActiveSheet.Range("C3:C100").AutoFilter Field:=1, Criteria1:=ANAME
Range("C100").Select
Selection.End(xlUp).Select
If Selection.Value <> "あああ" Then
Range(Selection.Offset(0, -2), "E4").Copy
Sheets(intB).Activate
Range("C100").Select
Selection.End(xlUp).Select
If Selection.Value <> "" Then
ActiveCell.Offset(1, 0).Range("A1").Select
End If
ActiveSheet.Paste ←
End If
Selection.AutoFilter
矢印の部分でWorkSheet クラスの Paste メソッドが失敗しましたのエラーになってしまいます。
* Microsoft Visual Basic for Applications (VBA) マクロで、Excel 2003 ブックの 1 行全体のコピーと貼り付けを実行している。
* Microsoft VBA マクロで、Excel 2003 ブックの 2,516 以上の行の範囲のコピーと貼り付けを実行している。
のどちらにも当てはまっていないと思うのですが、なぜでしょう。
481:デフォルトの名無しさん
10/03/07 00:03:56
ごめんなさい書き忘れました。
Windows7 Office2007 です
482:デフォルトの名無しさん
10/03/07 08:20:54
やってはいけないの見本
483:デフォルトの名無しさん
10/03/07 09:46:48
>>480
コピー元かコピー先のどちらかでセルが結合されてない？
484:480
10/03/07 17:31:48
セルの結合はないです。
PasteSpecialでも同様のエラーが出ます
485:デフォルトの名無しさん
10/03/07 19:38:09
VBAを利用して
Webページにある複数のテキストボックスに
A1セルに書かれている内容をWeb上のAというテキストボックスに入力
A2セルに書かれている内容をWeb上のBというテキストボックスに入力
するような物を作りたいのですが
やり方とかあるのでしょうか？
あれば教えてください
486:デフォルトの名無しさん
10/03/07 20:22:08
>>485
IEオブジェクト.Document.フォーム名.テキストボックス名.value = 設定したい内容
フォーム名やコントロール名が無い場合
DocumentオブジェクトのFormsコレクションやItemコレクションを使う
IEオブジェクト.Document.Forms(n).Item(n).Value = 設定したい内容
487:デフォルトの名無しさん
10/03/07 21:56:28
A～E列を下記。A,Dを検索キーとしてBをEに移します。
test()では1が拾えず10を拾ってしまいます。(XP, Excel2000)
どう修正すればよいでしょう。
A B C D E
-- -- -- -- --
1 あ __ 1
2 い __ 2
3 う __ 3
9 け __ 9
10 こ __ 10
11 さ __ 11
14 せ __ 14
15 そ __ 1
Sub test()
Set myRngA = Range("A1:A15")
Set myRngD = Range("D1").CurrentRegion
For i = 1 To myRngD.Rows.Count
myKey = myRngD.Cells(i)
Set myCel = myRngA.Find(what:=myKey)
If Not myCel Is Nothing Then
myRngD.Cells(i, 1).Offset(0, 1) = myCel.Offset(0, 1)
End If
Next i
End Sub
488:デフォルトの名無しさん
10/03/07 22:49:54
>>487
Set myCel = myRngA.Find(what:=mykey, LookAt:=xlWhole)
489:デフォルトの名無しさん
10/03/07 22:54:31
大量の日付+株価の四本値データ(1まとまりで5列使用)があるのですが、開始日も終了日も全てバラバラ(最長の奴で8192日データ。この8192日の中に全ての期間入ってる)
綺麗に日付の行をそろえて昇順でソートしたいのですが、ＶＢＡで上手いことやるアイデアを下さい。
490:デフォルトの名無しさん
10/03/07 23:29:40
>>489
ソートするって、四本値ﾃﾞｰﾀが日付順にならんでないというのが不思議だが
同じ日付を同じ行に持ってきたいということかな？
もしそうなら
ビンソートでデータをビンに詰め終わったところで
空きビンに対応する日付データーを入れてやればいいんでないかな
491:487
10/03/07 23:38:31
>488
ありがとう。たすかりました。
LookAt:=xlWholeがないと、一行目が無視されるわけですね？
492:デフォルトの名無しさん
10/03/08 01:24:39
>>491
全然違う。
LookAt=xlWholeは完全一致。
これを書かないと初期状態ではLookAt:=xlPartの部分一致になる。
開始セルのAfter:=***を書かないと範囲の先頭の次から検索するので
部分一致で10がヒットすることになる。
493:489
10/03/08 01:37:33
ビンソートという用語初めて知った。情報有難う。
ソート自体は簡単なんだけど、データのスタート位置設定するの難しいわ。
日付が素直に+1日づつなら多少は簡単なんだけど、休場日とかのせいで日付が飛び飛びなのがうっとうしい・・・
後学の為にＶＢＡで処理したいけど、もう手作業でやるか？
494:デフォルトの名無しさん
10/03/08 01:57:54
SQL使えよ
495:デフォルトの名無しさん
10/03/08 12:36:05
SQLもビンソートも不明だったので。
①→一番長い日数入ってる列探して基準にする
②→各銘柄からデータ取得開始日とって、基準を参考に貼り付け開始行を取得
③→貼り付け開始行を利用して切り取り貼り付け
④→②から繰り替えす
みたいな普通の力技でなんとかしました。アドバイス貰ったのに全く生かせないでごめんなさい。
496:デフォルトの名無しさん
10/03/08 13:37:07
オートシェイプの検索アドインを業務の補助として作成中です。
一般的な実装はできましたが、よくばって検索値の前回値を使用できるようにしたい。
このような場合、前回値をどこに保存するのが一般的なのでしょうか？
excelマクロ・xlaならではの保存方法等ないでしょうか？
ないのであれば、別途保存用のシートに保存するか、またテキストファイル等に残します。
（あんまりエレガントじゃないきがして嫌です。）
ご存じの方おりましたらご享受ください。
497:デフォルトの名無しさん
10/03/08 13:58:58
>>495
ビンソートよりもバケット（バケツ）ソートという名前のほうが一般的かもしれない
内容は
日付のラベルが付いたビンに対応するデーターを放り込んで
詰め終わったら、端から順に取り出す
今回はデータがもともと順並びしてるので、
結果的にあなたがエクセル上でやったことと同じ作業ですね
498:デフォルトの名無しさん
10/03/08 14:06:04
>>496
Excelはシートに保存するのがエレガントだと思います。
499:デフォルトの名無しさん
10/03/08 15:39:54
なんらかの関数で引数となるシート名が存在するかチェックしてるんだが
シート数分Forでまわして同名シート見つけた時点でexitしてるんだけど
シート枚数が多くて使用者のPCスペックが低いためか時間が結構かかってきているんだが
なんかアドバイスない？
さしあたって事前にシート名チェックするのやめて
ダメならOn Error GoToで飛ばすようにしといたんだけど
もっといい方法あったら教えてください
500:デフォルトの名無しさん
10/03/08 15:57:25
シート名チェックってそんなに時間かかる処理だっけ？
何枚くらチェックしてるの？
501:デフォルトの名無しさん
10/03/08 16:13:38
シートの存在チェックは、何かやってみてon error gotoが一番速い
502:499
10/03/08 16:22:21
>>500
50枚くらいなんだけどモバイル用ノートで
CPUがセレロンなんだ・・・
>>501
やはりそうですよね
まず実行してみてだめだったらon error gotoで
具体的エラー内容を探すように変えていきます。
ありがとうございました。
503:デフォルトの名無しさん
10/03/08 18:02:04
>>502
ん、通じたのかな？例えばIsWorkSheetExist()みたいな関数を作って、その中で
on error goto NotExist
a = worksheet("Sheet1").range("a1").value // (*)
return true
NotExist:
return false
をやれってことで、「何かやって」は(*)の行の内容のこと。
いろんな関数にon error gotoをばらまけってことじゃないよ。
504:デフォルトの名無しさん
10/03/08 18:36:00
ADOつかってSQL使えば？
別にExcelのシートに対してもSQLで読み書きできるよ
505:デフォルトの名無しさん
10/03/08 20:14:29
こんばんは。どなたか詳しい方教えてくださいませんか。
エクセルのマクロでCSVファイルを開く→編集→保存(CSV形式)までを自動化しているのですが、
保存時の文字コードをS-JISではなくEUC-JPにして保存したいのです。
色々調べたんですが使えそうなのがなかったので・・。
506:デフォルトの名無しさん
10/03/08 21:02:08
保存した後で変換ツールに投げるとこまで自動化したらばどうよ
507:デフォルトの名無しさん
10/03/08 21:19:20
>>505
nkf.dll