Excel VBA質問スレ Part9

Excel VBA質問スレ Pa ..

188:デフォルトの名無しさん
08/12/21 14:27:42
>>186 >>187

ありがとうございます。値貼り付けにできますか？
あとこのマクロは時間処理が少しおかしいです。

しばらく席を離れて画面が黒くなりパソコンが待機状態になったとき
(マウスを触るとすぐに画面は表示される状態)などマクロがとまってしまいまいます。

そして再度実行させると、たまっていた処理を一気に吐き出すような感じで、
3連続処理を繰り返すことが多々あります。安定動作にはまだまだ遠いです。

189:デフォルトの名無しさん
08/12/21 16:06:47
>>172
矩形範囲の種類を数える高速なワークシート関数なんてない。
１列とか１行でソートされてるとかなら簡単だが、矩形範囲ならユーザー定義関数作れ。
Dictionaryオブジェクトの方が簡単だが、>>176の書いてるCollectionを使うなら

Function CountKinds(r As Range) As Long
　　Dim col As Collection
　　Dim element As Variant
　　Dim cnt As Long
　　Set col = New Collection
　　On Error Resume Next
　　For Each element In r.Value
　　　　If Not IsEmpty(element) Then
　　　　　　col.Add Empty, CStr(element)
　　　　　　If Err.Number = 0 Then
　　　　　　　　cnt = cnt + 1
　　　　　　Else
　　　　　　　　Err.Clear
　　　　　　End If
　　　　End If
　　Next
　　CountKinds = cnt
End Function

一次元配列に移してからソートして数える方法もあるが。

190:183
08/12/21 16:15:46
>>184
少し意味がわかりませんが。
PCが違うときに同じマクロでもエラーが出るんです・・・。
自宅PC＞動く
会社PC＞エラー
ということです。
シートの保護やファイルの保護などの設定の問題のような気はするんですが。
わかる方いたらお願いします。

191:デフォルトの名無しさん
08/12/21 16:34:38
>>190
単純に考えて、同じマクロではないのだろう。

192:デフォルトの名無しさん
08/12/21 16:46:37
ＶＢＡで組んだマクロの仕様書を作ってくれるソフトって無いですか？
ＶＢとかｃとかはあるんだけど、ＶＢＡのやつは見つからない。

193:183
08/12/21 17:33:42
>>191
すいません。
厳密に言うと違うんですが。
中身はコードのコピー貼り付けなのでコードは同じです。
（ファイルは別物）
ファイル名シート名の書き換えとかはしますけど。

会社のファイルがシート保護されていたので、
ためしに自宅PCでシートの保護をした状態だと、同様のエラーがでました。
なので設定の問題かなと予想してますが。

エラー箇所は毎回切り替えの部分です。
（アクティブシート・ファイルの切り替え）

194:166
08/12/21 17:49:37
>>187
Copy Destinationですと値貼り付けできないようなので、
PasteSpecial Paste使ってデータをとることにしました。

もう少し研究して使いやすいものを作ってみたいと思います。
（作成したマクロは下です）。ありがとうございました。

---------------ここから---------------

Private Sub Macro1()

nextTime = Now() + TimeValue("00:03:00")
Application.OnTime nextTime, "Macro1"

Worksheets("IV").Range("B1:B96").Copy
Worksheets("IV").Range("IV1").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub

---------------ここまで---------------

195:デフォルトの名無しさん
08/12/21 18:00:59
.valueを転載したいだけなら、forなりfor eachなりでまわして、
sheets(2).cells(1,1).value = sheets(1).cells(1,1).value
の考えで代入して行っても良いんでないかな。

まぁ、ある程度の量以上になると遅いけど。

196:デフォルトの名無しさん
08/12/21 20:18:24
>>195
For Eachで回さんでも、Rangeオブジェクトを使えば値が配列として取り出せるから複数のセルを一気にコピーできる。
Set r = Range("IV1").End(xlToLeft).Offset(0, 1)
Range(r, r.Offset(95, 0)).Value = Range("B1:B96").Value

197:デフォルトの名無しさん
08/12/22 07:46:08
rangeをvariant型の2次元配列に代入するのもいいね。

198:デフォルトの名無しさん
08/12/22 11:08:13
>>197
>>196も入れてる。
右辺のRange("B1:B96").Valueが２次元配列。
左辺はResize使った方がすっきりするが。

199:166
08/12/22 17:36:11
>>195->>198
ありがとうございます。
>>196さんのVBAを使わせてもらってます。

あと3分間に3回も4回も動作を繰り返す症状があり、
以下のサイトを参考にしてexcelを強制リロード
させるようにしたところ安定動作するようになりました。
URLﾘﾝｸ(www.efcit.co.jp)

お礼まで。

200:デフォルトの名無しさん
08/12/22 21:47:11
Cells(1, 1) = Format("2008 / 12 / 22", "aaa")

これを実行すると (月) ってなるんだけど
両側の括弧を消したい場合は文字を操作するしかないですか？

201:デフォルトの名無しさん
08/12/22 21:49:23
>>200
replaceで括弧取り除くユーザ関数でも作れば？

202:デフォルトの名無しさん
08/12/22 21:51:41
>>200
ならないよ

203:デフォルトの名無しさん
08/12/22 22:04:30
>>202
申し訳ない、環境書きます
osx excel 2004

この環境特有の処理かな？

204:デフォルトの名無しさん
08/12/22 22:18:23
st = "個"
Range("d5").NumberFormatLocal = "0.0""個"""

これだと設定を変えられました。stに代入する意味はありませんが

st = "個"
Range("d5").NumberFormatLocal = "0.0""st"""

これだとエラーがでます。文字列なので""をとってみても
"0.0"st""　無理でした。
どうすれば代入した値を扱えるのでしょうか？

205:デフォルトの名無しさん
08/12/22 22:46:05
>>203
mac版って不便だね
Cells(1, 1) = Mid("日月火水木金土", Weekday(2008 / 12 / 22), 1)

206:205
08/12/22 23:05:03
>>203
すいません
こうですね
Cells(1, 1) = Mid("日月火水木金土", Weekday("2008/12/22"), 1)
若しくは
Cells(1, 2) = WeekdayName(Weekday("2008/12/22"), True)

207:デフォルトの名無しさん
08/12/22 23:05:49
IF文でCELLS(5,4).VALUE の値が小数点ならとかいう指定はできますでしょうか？
もしくは小数点を含まないといった指定はどうやればできるのでしょうか？

208:デフォルトの名無しさん
08/12/22 23:11:10
>>204
st = "個"
Range("d5").NumberFormatLocal = "0.0" & st

209:デフォルトの名無しさん
08/12/22 23:15:04
>>196 198さんのに関して、横レスですが、是非、教えてください。

>右辺のRange("B1:B96").Valueが２次元配列。
office tanaka で調べても、これは２次元配列ようにありますが、私には
１次元配列に見えるのです。こう書いてもvariant型変数なので２次元配列
となるというように理解するものですか？

210:デフォルトの名無しさん
08/12/22 23:18:10
>>208
それでもエラーでましたorz

211:デフォルトの名無しさん
08/12/22 23:29:43
>>207
今思いついたのは

n = (Cells(5, 4).Value * 10) Mod 10
If n <> 0 Then MsgBox "小数"

＞値が小数点なら
って言うのをエスパーした結果
2.0は小数点無しでいいんだよね

212:デフォルトの名無しさん
08/12/22 23:34:53
>>211
2.0も小数点扱いしたいです・・・

213:デフォルトの名無しさん
08/12/22 23:40:40
>>212
書式で小数点以下の桁数指定すれば
1は1.0とか
2は2.0とか表示されるんだけど
その状態だと全部小数点有りだよね

214:デフォルトの名無しさん
08/12/22 23:46:52
文字列にして"."をFind

215:デフォルトの名無しさん
08/12/22 23:50:59
>>210
こうじゃね？
st = """個"""
Range("D5").NumberFormatLocal = "0.0" & st

216:デフォルトの名無しさん
08/12/22 23:58:08
>>209
調べてみりゃわかる。
MsgBox UBound(Range("B1:B96").Value, 1)
MsgBox UBound(Range("B1:B96").Value, 2)
96と1が返るから２次元配列。

217:デフォルトの名無しさん
08/12/23 00:18:33
find関数で、もし見つかったら処理するを先に記述するにはどうしたらよいのでしょうか？

If Obj Is Nothing Then

これだと見つからなかったら先に処理して、それ以外は見つかったことになりますよね
その逆の順番にしたいのです

218:デフォルトの名無しさん
08/12/23 00:20:50
>>209
んな難しく考えんでも、行／列　って2次元じゃん。
2次元配列を視覚的に見えるようにしたのがシートってだけだよ。

219:デフォルトの名無しさん
08/12/23 00:22:03
>>217
if obj is nothing then
else
～～

じゃダメなの？

if not obj is nothing then

にしたいって事？

220:デフォルトの名無しさん
08/12/23 00:39:13
>>219
はい、そうです
Dim Obj As Object
Set Obj = Cells(1,1).Find(".") '小数点含むなら

If not Obj Is Nothing Then

セル1,1に値を入力しました。5と入力したところ
objはnothingになりません・・・一体なぜなのでしょうか？

221:デフォルトの名無しさん
08/12/23 00:46:03
>>220
表示形式が0.0とかじゃないの？
LookIn:がxlＶaluesになってたらNothingにはならない。

値=Cells(1,1)..Value
If Int(値) = 値　Then
とかで判定した方がいいと思う。

222:デフォルトの名無しさん
08/12/23 00:47:32
Sub test()
Dim a As Range
Set a = Cells(1, 1).Find(".")
If Not a Is Nothing Then
MsgBox a.Address
Else
MsgBox "nothing"
End If
End Sub

普通にnothingだけどねえ。

223:デフォルトの名無しさん
08/12/23 00:50:45
>>222
LookInがxlＶaluesなんだろ？
デフォルト状態ではxlFormulasだが、指定しないと前の状態を引き継ぐからな。

224:220
08/12/23 00:53:43
どうやら、そのようでした。ご迷惑おかけして申し訳ありませんでした。
無事、解決いたしました。ありがとうございます。

225:デフォルトの名無しさん
08/12/23 00:56:00
セルの値が文字列かどうかって判定できますでしょうか？
数値か文字列かを判定したいだけなのですが、
この場合、どうしたらよいでしょうか？

226:デフォルトの名無しさん
08/12/23 00:56:31
完全一致検索とかも考えられるか。
Findメソッド使うときは最低でもLookInとLookAtは書いた方がいい。

227:デフォルトの名無しさん
08/12/23 01:00:41
>>225
VarType関数で調べる。
いまいちな人はWorksheetFUnction.IsNumberで調べる。

228:デフォルトの名無しさん
08/12/23 01:08:34
>>227
If VarType("Cells(x, y).Value") = 8 Then　これで文字列ならと指定したのですが、
何故か、セルに手動で入力した5とかの数字も文字列として認識されてしまいます。
これは回避できないのでしょうか？

229:デフォルトの名無しさん
08/12/23 01:16:35
>>228
釣りか？
"Cells(x, y).Value"とダブルクォートでくくったら文字列に決まってるだろ？

230:デフォルトの名無しさん
08/12/23 01:20:55
流石に釣りだろ・・・。

231:デフォルトの名無しさん
08/12/23 01:37:50
セルに値入力をして、たとえば整数を入力します77とか8とか
その入力したセルに対してvartypeやtypenameで調べてみると
vartype=5 typaname=double　と表示されます。
なぜ整数扱いではないのでしょうか？

232:デフォルトの名無しさん
08/12/23 01:48:55
>>231
EXcelの仕様。
Long型とかInteger型はありえない。

233:デフォルトの名無しさん
08/12/23 01:52:44
>>232
こんな仕様にした理由は何かあるのでしょうか？
普通に整数ならintegerに小数点ならとりあえずdoubleにとかしてくれたほうが
わかりやすい？

いや、絶対値とるためにdoubleにしてるのかな
でも、typenameやvartypeをそのまま使えないってのは面倒かも

234:デフォルトの名無しさん
08/12/23 08:12:18
熱海を神奈川に押し付けようと言う魂胆かもしれんがいらんぞ。

235:デフォルトの名無しさん
08/12/23 08:13:11
間違えた…ｷﾆｽﾙﾅ!

236:デフォルトの名無しさん
08/12/23 09:46:16
ディズニーランドは東京、でも浦安は千葉。
みたいな感じ？
どうでもいいわｗ

237:デフォルトの名無しさん
08/12/23 12:38:37
>>233
実数の型にはsingleもあるのにどうしてそれは無視してとりあえずdoubleなの？

238:デフォルトの名無しさん
08/12/23 13:30:07
singleの方が使用バイト数少ないしね！

239:デフォルトの名無しさん
08/12/23 21:24:42
>>233
0.1 * 10がIntegerにならないぞゴラって声が容易に想像できるから、全部Doubleのほうがいいと思う。

あと、ワークシートでの計算でIntegerとDoubleを区別するよりは
全部Doubleのほうが速いなんてこともありそう。いや想像だけど。

それよりも、一般人が良く使うソフトなのに、基数が10でないことのほうが問題だろ。
さすがにある程度の補正はかかっているけど。

240:デフォルトの名無しさん
08/12/24 14:01:15
>>239
良く分からんけど
Excelが普通なんでしょ

241:デフォルトの名無しさん
08/12/24 19:50:07
>>239
てか、2進法で計算してるんだから、わざわざ10進法基数にする必要性が無いよ。
余計な事して誤差が問題になるなら、やらんで欲しいな。

変数の型に関しては、使用バイト数が少ない方が当然処理は早いよ。
混在とか関係ない・・・はず。

242:デフォルトの名無しさん
08/12/24 20:35:29
んなこたーない。実数同士の足し算よりも、整数と実数の変換の方が余程時間が掛かるのが今のCPUだ。
ついでに言えば、Excel2000だか2002だかを境にdoubleからlong doubleに切り替わっている筈。

レーザ測距のデータみたいに、10桁くらいある数の標準偏差を取ろうとすると違いが判る。

243:デフォルトの名無しさん
08/12/24 21:58:35
>>241
いや、基数10はセルが保持するデータの話。
Doubleではない何かの型であってほしかったということ。

244:デフォルトの名無しさん
08/12/24 23:50:41
floatよりdoubleの方が速いらしいぜ

245:デフォルトの名無しさん
08/12/25 00:30:23
>>244
マジレスすると、ケースバイケース。

246:デフォルトの名無しさん
08/12/26 00:36:57
質問です。

windowsXPでExcelは2007。

Dim lastRow As Long '最終行数

Workbooks.Open Filename:="C:\Documents and Settings\デスクトップ\新しいフォルダ\ＡＡＡ.xls"

lastRow = Range("A" & Rows.Count).End(xlUp).Row '最終行の取得

で、lastRowに1しか入りません。
実際は1000と入らなければいけないのですが。

どこが間違っているか、御教示ください。

247:デフォルトの名無しさん
08/12/26 01:42:25
>>246
xlUpはどう言う意味？

248:デフォルトの名無しさん
08/12/26 01:49:04
たまたまこのスレ開いた俺が適当に答えてみる
Rows.Countって選択してるRowの数返すんじゃないの？

249:デフォルトの名無しさん
08/12/26 01:56:21
>>246
lastRow = Range("A1048576").End(xlUp).Row

250:デフォルトの名無しさん
08/12/26 02:04:26
シートを指定していないから
関係無いシートがアクティブになってるんじゃない？
一度シートが１つのBookで試してみ

251:デフォルトの名無しさん
08/12/26 02:06:54
おそらく、アクティブなシートを勘違いしている。

252:デフォルトの名無しさん
08/12/26 02:07:27
リロードすればよかった・・・

253:246
08/12/26 09:15:59
皆様ありがとうございます。
シートを1つにしてもlastRowには1しか入りませんでした。
最終行の取り方自体は合っているようなので、シート関係を見直してみます。
ありがとうございます。

254:デフォルトの名無しさん
08/12/26 11:39:51
>>253
「 Range("A" & Rows.Count)」のターゲットが、「ＡＡＡ.xls」になっていないと思われる。
おそらくは、マクロのあるシート。

255:デフォルトの名無しさん
08/12/26 12:51:43
A列にデータが無いとかじゃないよな

普通Bookを開いたら、そのBookがアクティブになるから
問題は無いはず

まぁ複数のBookを扱うなら、きちんとBookを指定したほうがいい

256:デフォルトの名無しさん
08/12/26 12:58:20
>>255
> 普通Bookを開いたら、そのBookがアクティブになるから
> 問題は無いはず
ねーよ

257:デフォルトの名無しさん
08/12/26 15:30:49

ユーザーフォームでコンボボックスを３つ作成し、それぞれに

sample1
sample2
sample3

とオブジェクト名を指定しました。

コード内で変数を用いてそれぞれのコンボボックスにテキストを挿入したいときに、

For i = 1 To 3

j1 = i
j2 = "sample" & Cstr(i)

j2.Text = j1

Next i

という形でコードを組みましたがうまくいきません。
オブジェクト名を変数で定義することはできないのでしょうか？
稚拙な質問で申し訳ありませんが、よろしくお願いします。

258:デフォルトの名無しさん
08/12/26 15:42:33
>>257
Me.Controls("sample" & Cstr(i)).Text
でできないか？

259:デフォルトの名無しさん
08/12/26 15:49:02
＞＞２５８さん

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

260:デフォルトの名無しさん
08/12/26 21:56:21
知ってる人がいたら教えてほしいのですが、
エクセルVBAのコンボボックス（activX）の
設置数に限界は存在するのでしょうか？

とりあえず、３０００＋αのコンボボックスを１シートに
設定したいのですが・・・・

裏技的な方法でも良いので教えて頂ければ
ありがたいので宜しくお願いします。

261:デフォルトの名無しさん
08/12/26 22:13:21
>>260
Excelにセルの数だけウィンドウがあるわけではないのは知ってるよな？

262:デフォルトの名無しさん
08/12/26 22:27:44
>とりあえず、３０００＋αのコンボボックスを１シートに

ユーザーも大変だ w

263:デフォルトの名無しさん
08/12/27 01:03:57
良く分からないけど
一気にfor nextで3000作ろうとすると1208個でオブジェクトが有りませんだけど
1000作るを3回繰り返すと3000個出来た
For a = 1 To 3
For n = 1 To 1000
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=a * 72, Top:=(n * 18), Width:=72, Height:=18).Name = "ComboBox" & n
Next n
Next a

264:デフォルトの名無しさん
08/12/27 01:51:37
失敗したときのコードを張ってみそ

265:263
08/12/27 02:04:11
For n = 1 To 3000
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=(n * 18), Width:=72, Height:=18).Name = "ComboBox" & n
Next n

>>260を見て
試してみたら解るだろと思ってやってみただけだから
質問主じゃないよ

266:260
08/12/27 02:33:26
２６３氏の方法でなんとかなりそうです
ありがとうございました

267:デフォルトの名無しさん
08/12/27 07:25:59
いや、出来る出来ないはどうでも良いんだよ。
コンボボックス3000ってのは、何とか別方法で再検討すべきじゃないか？

268:デフォルトの名無しさん
08/12/27 09:32:05
>>260
コンポボックス３０００超って単に入力作業をするためのものですか、それとも
何か・・・
非常に興味があるので、横レスですが、使用場面のヒントでも・・・

269:260
08/12/27 12:40:11
>>268　
項目数がやたら多いアンケートを想像してもらえれば、そんなに違わないかとおもいます
その内容を、特定のルールで別シート上へ集計するのが目的です。

>>267
コンボボックス３０００が非常識なのは解ってはいたのですが、
社内の決め事なのでとりあえずは作ってみようという話になってしまいまして・・・
一旦使ってみた後での検討はします。

こんなところでしょうか

270:デフォルトの名無しさん
08/12/27 13:10:26
コンピュータには、ダメなものをダメな方向に力押しする性癖がある。
バカな物は作ってはいけない。

271:デフォルトの名無しさん
08/12/27 17:51:01
>>269
データベースシステム使えよ。マジで。
煽りとかじゃなくて、後々の事考えても、3000項目の入力なんてDBじゃなきゃ無理だよ。

3000の保守は出来ない、と言うかやるにしても金掛かるよ。
どうしてもやるなら、コンボボックス噛ませる必要性も見いだせないし。
シートをRDBとみなして、ダイレクトにセルに書き込むべきかと。

272:268
08/12/27 20:20:28
折れの既成概念では、コンボボックスそのものの数が数件から１０数件だったwww
>>263　さんので、コンボボックスのオートメイクは1208個、個数制限はない（ようだ）と
言うことを知った今、リストボックスとテキストボックスの利点を併せ持つコンボボックス
の大量使用によるＲＤＢ的エクセル活用法となるかも。これは、創造の世界に踏み込むものかも。

273:デフォルトの名無しさん
08/12/27 20:34:24
>>272
こらこらｗ

274:デフォルトの名無しさん
08/12/27 20:47:59
>>272
DBの知識がどれくらいあるのか分からないし、
スレ違いにもなってしまうから適当なところまでしか話しないけど、
エクセルではトランザクションの概念はビルドインされてない。

エクセルをRDB的に使用する事があるのは、
シートがRDB構造と視覚的に同じである事が理由。
つまり、RDBをダンプして、その結果をシートに表示するのに向いてるって事。

エクセル自体はDBじゃないから、入力に関しては向いてない。（出来なくはない）
やはりトランザクションとロックの概念が無いシステムでは怖い。
これはエクセルが劣ってるとかではなく、向き不向きがあるって事なのよ。

エクセルのシートにRDBをダンプすれば、言語が分からなくても、
オートフィルタ機能使ったり、VBAで複雑なクエリが出せる訳。
関数だってクエリと言えるよね。これは凄く魅力的な事だよ。

全部無理とは言わないし、勉強のためにやるのは一向に構わないけど、
老婆心ながら、エクセルをRDBに見立てて業務に使うのだけはやめた方が良いと思う。

275:デフォルトの名無しさん
08/12/27 23:59:21
>>263

---265氏のプログラム

For n = 1 To 3000
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=(n * 18), Width:=72, Height:=18).Name = "ComboBox" & n
Next n

---君のプログラム

For a = 1 To 3
For n = 1 To 1000
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=a * 72, Top:=(n * 18), Width:=72, Height:=18).Name = "ComboBox" & n
Next n
Next a

---私が265氏と同等と考えるプログラム

For a = 0 To 2
For n = 1 To 1000
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=a * 72, Top:=(n * 18), Width:=72, Height:=18).Name = "ComboBox" & a * 1000 + n
Next n
Next a

276:デフォルトの名無しさん
08/12/28 00:09:40
>>274 レス、どうもです。RDBはexcelよりも本拠地です。といっても、msdos時代でのものですが。

>>260さんの　私の>>268 に対する >>269の返信を見て、
顧客の嗜好調査データとか、アマゾンのこの本を買った人はこんな本を買っていますの
小規模版データを想像してみました。

また、見た目はデータベースソフト、中身はexcelという体の業務用ソフトは結構作られており、
この方の会社の人も類似ソフトを見ての発想（excelであるなしを問わず）と妄想しました。

データ設計例？
　100人のレコード、100のフィールドがあるとしてシート毎に異なるキーフィールド相当の位置づけをする。

求めるもの
　２値（３値）間にどんな相関関係があるかが視覚的にもわかるように散布図に落とす。

この「求めるもの」＝クエリが種々、エクセルで可能ということですね。
どの方法であれ、処理スピードと正確性確保、維持管理の容易さが善し悪しを決めることに
なりますよね。

277:デフォルトの名無しさん
08/12/28 13:15:14
>>275
---私が265氏と同等と考えるプログラムを
xp 2003でやってみたら、１列目１０００個で完了、２列目が２０８個で
オートメーションエラー発生しました。

278:デフォルトの名無しさん
08/12/28 13:37:14
自分のパソはメモリーが小さいのでかも。260さんではありません。
試しにやってみたものです。

279:263
08/12/28 14:39:49
名前が1208個までしか付けられないのか

280:277
08/12/28 16:44:44
>>279
私のパソコンでは、
263のでは３０００個出来ているが、275の---私が265氏と同等と考えるプログラム
では、一気に３０００個出来ず、1208個しか出来なかったという意味です。

281:デフォルトの名無しさん
08/12/28 19:45:07
mixiでもチラシの裏でも良いから、どっか行って適当に試してくれ・・・。
誰が得するんだ？誰かが得するなら俺が出て行けば済む話だが。

282:デフォルトの名無しさん
08/12/28 20:22:28
？

283:デフォルトの名無しさん
08/12/29 06:36:24
ある程度、大きなシステム作ってみて気がついたけど似たようなコードを何度も書いてるんだよな
効率のいいコードを書くために必要な知識とか教えてくれないか。

284:デフォルトの名無しさん
08/12/29 08:22:46
>>283
そのシステムはExcelで作ったの？

285:デフォルトの名無しさん
08/12/29 08:29:17
>>283
サブルーチンなり関数なりに分けましょう。

286:デフォルトの名無しさん
08/12/29 10:25:34
>>284
うん、データはAccessに入れて、ほとんどの操作はExcelのユーザーフォームを使うような感じで
ワークシートは大雑把に全体を見るためにあってデータを追跡したり、試算ができたりするようなやつ

>>285
最初の頃、ほとんど直観でやってたから今になって無駄を省くために自分のレベルでできそうなところはやってる。
でもクラスモジュールで何ができるのかとかが気になる。

287:デフォルトの名無しさん
08/12/29 12:51:23
>>286
ユーザインタフェースのプログラムを何とかしたいということ？

288:デフォルトの名無しさん
08/12/29 13:11:23
>>287
まぁ、そういうことなのかな。

入力チェックとか、動作は同じだけど入るデータが違うとか結構あって。
コピペして改変しながら作ってたけど、完成してみるとコードがぐちゃぐちゃになってしまった。

運用は始めてて、今のところ作業者の不満は出てないけど将来的な拡張や保守のためにもう少し勉強したい。

289:デフォルトの名無しさん
08/12/29 14:19:59
>>288
UI部分はごちゃごちゃしてても仕方ないんじゃないの。
データさえしっかりしてたらいいよ。

290:デフォルトの名無しさん
08/12/29 15:09:44
>>288
誰もが一度は通る悩み。
モジュールの独立性をあげ過ぎても使い勝手悪くなるけど。

モジュール結合度とかでググってみるといいよ

291:デフォルトの名無しさん
08/12/29 18:53:44
100円　　500円　　250円

↓　ﾏｸﾛ発動

100円○　500円　　250円

もっとも小さい数字を選んでその数字の横に
○印をつけたいのですが
なかなかうまくいきません

どういった関数を使えばいいでしょう？

292:291
08/12/29 19:08:00
xp
2003

293:デフォルトの名無しさん
08/12/29 21:35:37
>>291さん
こんな感じでどうですか？
Sub mini()
Dim mymin
mymin = WorksheetFunction.Min(Range("a1:a3")) '対象データのの範囲
Cells(4, 1) = mymin & "円○"
End Sub

294:デフォルトの名無しさん
08/12/29 22:24:22
約4000のテキストファイルをそれぞれのワークシートにインポートしたいんだけど、
テキスト名が　1001.txt、1002.txt、1004.txt
といった具合に連番じゃないので、下のプログラムだと1003.txtが存在しないので
当然エラーが発生します。都合上、ファイルの名前を連番にすることはできないんです。
理想としては、存在しないファイル番号は無視して次のファイルをインポートするように
したいのですが、イイ案が浮かびません。。
このエラーを回避する手段はありますか？

環境はXPの2003です。

Sub Macro1()
Dim bng As Integer
For bng = 1001 To 9996

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\Program Files\ootori\data\" & bng & ".txt", Destination:=Range("A1"))
.Name = "1001_1"
.FieldNames = True
～
中略（マクロの自動登録で書かれた部分）
～
End With
Next
End Sub

295:294
08/12/29 22:31:54
マジですいません。。事故解決ですorz
ググり直したら簡単に出てきやがった・・・
エラーを回避する便利なプログラムがあったのね

296:デフォルトの名無しさん
08/12/29 22:34:16
勘違いしてました
訂正です
Sub mini()
Dim mymin
Dim myjuni
Dim datasuu
myjuni = 1
datasuu = 3
mymin = WorksheetFunction.Min(Range("a1:a3")) '対象データの範囲
For i = 1 To datasuu - 1
If Cells(myjuni, 1) > Cells(i + 1, 1) Then
myjuni = i + 1
End If
Next i
Cells(myjuni, 1) = mymin & "円○"
End Sub

297:デフォルトの名無しさん
08/12/29 22:36:55
296は293の訂正です

298:デフォルトの名無しさん
08/12/29 22:43:48
VBAのステップ実行時に、ウォッチでRangeを見てみました。
すると色々あるわけですが、型情報の意味がさっぱり分かりませんでした。
この情報はどんなルールで何を表現しているのでしょうか？
たとえば
Variant/Double
だと、/の手前はVariantで、これは任意の型だと思うんです。だから/の後ろで、実際には今Doubleが入ってるよ、みたいな感じ？

でも、Variant/Object/Range見たいな奴もあるし。。
（これはVariantでObjectでその実態はRangeということかな？）

Worksheet/Sheet1なんていうのもあります。
（これはなんだろ？？Sheet1ってのは型なんですかねぇ。ユーザがシートをガンガン追加したらSheet4,Sheet5...ってな感じで型が増える？）

299:デフォルトの名無しさん
08/12/29 23:19:00
ああ俺の作ったやつon error resume nextだらけだ、心配になってくるぜ。

300:デフォルトの名無しさん
08/12/29 23:48:10
別に、エラーをインラインで処理するのはおかしくない。
トラップすれば処理できているとは限らないのと一緒。
論理的破綻はどちらでも起こる。

301:296
08/12/30 00:08:18
>>291さんへ
たびたびすいません
こんなのありました
large関数
（指定された範囲データから大きい方から任意の数字番目を返す）
small関数
（指定された範囲データから小さい方から任意の数字番目を返す）

302:デフォルトの名無しさん
08/12/30 00:58:44
VBAで特定の文字列を検索して、その文字列が見つかったらオートシェイプ（msoShapeFlowchartAlternateProcess（角がRの四角）、透明）
をその文字の上に配置して、その文字を囲っているように見せたいと思っています。

そこで、文字列の幅を求め、その文字列が入っているセルの位置と、その文字列の幅から、
オートシェイプを配置すべき座標を計算することを考えています。
フォントは固定幅で考えております。

今、自分が分からないのは、
（１）文字の幅の単位（ｃｍとかインチ？ピクセル？？）
（２）文字列の長さをｃｍとかインチで正確に取得する方法
（関数？VC++でもこの手の問題にぶつかったことがあるけどそちらでは上手く取れなかった覚えがあります。VBAは高機能なので正確にゲットできると期待！）
（３）オートシェイプの座標系の単位（ｃｍとかインチ？ピクセル？？）
（４）文字列の長さの単位と、オートシェープの座標系の単位が違うのなら、それを変換してくれる関数あるいは公式

何方か教えていただけますですか？
（自分でも継続して調べます。）
よろしくお願いします。

303:デフォルトの名無しさん
08/12/30 04:13:54
シェイプの長さは
テキストのFont.Size掛ける文字数で

シェイプの位置は
セルの.Top .Leftで

目的のセルはFindと FindNextで

あとは細かい調整で
いいみたい

304:デフォルトの名無しさん
08/12/30 08:28:53
VBAでマクロの同時起動って出来ますか？タイマーを２つ並列に走らせたいのですが…

305:デフォルトの名無しさん
08/12/30 11:28:03
>>304
同時起動は多分出来ないけど、WindowsAPI使ってタスク複製するかスレッド使えば出来ると思う。
　VBAではやり方は良くわからんのだけど、
"Excel VBAによるWin32 APIプログラミング入門"
この辺を見ればよいと思う。
　タスク複製だのは結構癖があるからがんばって。

　あと、どういうタイマーなのかわからんが、タイマ割り込みみたいに定期的に何かをやらせる場合、並列にすると旨く動かなくなる可能性があるので、きちんと実行時間を計測した方がいいよ。

306:302
08/12/30 17:09:11
>>303
ありがとうございます！！！

自分でも探したんですけどさっぱりその手の情報がなくて(;_;)
非常に助かりました。本当にありがとうございました！

307:304
08/12/30 18:30:26
≫305 ありがとうございます。教えて頂いた書籍を調べてみます。タイマーと言っても、あるAタイマーが30～1にカウントダウン中に別のBタイマーを同時に走らせる、みたいな単純なモノです。実現可能でしょうか？

308:291
08/12/31 14:49:44
>>301
ありがとうごさいます

やってみます

309:デフォルトの名無しさん
08/12/31 22:39:19
Select Case…End SelectってC言語のswitch相当だと思うんですけど、breakって無いんですか？

Select Case exp
Case 0
IF xxx = FALSE THEN
Break　　←これ！！！！
End IF
End Select

みたいな。

310:デフォルトの名無しさん
08/12/31 23:29:23
無い

311:デフォルトの名無しさん
09/01/01 00:31:04
>>309
そもそもbreakしてどこへ行くつもりだ

312:デフォルトの名無しさん
09/01/01 00:36:55
>>310
ありがと

>>311
Ｓｅｌｅｃｔの外に決まってんじゃん。。。

313:デフォルトの名無しさん
09/01/01 00:41:39
>>312
それがしたいだけなら、どうにでもなるだろと小一時間…

314:デフォルトの名無しさん
09/01/01 00:41:51
仕方なくGotoだな

315:デフォルトの名無しさん
09/01/01 00:44:16
>>314
ちょ、おま、そんな最終手段をっ！

316:デフォルトの名無しさん
09/01/01 00:44:45
>>313
どうすんの？

317:デフォルトの名無しさん
09/01/01 00:46:24
>>316
Select Case exp
　　Case 0
　　　　IF xxx THEN
　　　　　　処理
　　　　End IF
End Select

318:デフォルトの名無しさん
09/01/01 00:48:24
抜ける方法を聞いてんの。
わざわざ論理を逆にして書けば良いじゃんとか
抜けた後にある処理をサブルーチンにしてあげれば良いじゃんとか
そういう構造を縛るしか手が無いんですか？それじゃ言語としてどうだろ
あとさぁ
なんで
if()
{

319:デフォルトの名無しさん
09/01/01 00:48:59
はあ～書いちゃった。。

じゃ、問題。何を書きたかったんでしょうか？

320:317
09/01/01 00:49:51
ちょっと説明不足かな
要するに、breakで外に出るのもスルーするのも同じ事じゃねーのって意味
Ifの条件がFalseの時にbreakしたいんなら、Ifの条件がTrueの時だけ処理すればいい

321:デフォルトの名無しさん
09/01/01 00:53:31
答え発表！
ﾋｭｰﾋｭｰ

あとさぁ
なんで
if()
{
}
else if()
{
}
else if()
{
}
…
みたいにELSE句にIFが書けないんだろう
欠陥だろ。。

でした。

>>320
そりゃかけなくは無いだろうけど構造上書きにくい場合もあるじゃん。
なんでキーワードやステートメントを再発明してまで、不便なってんの！マイクロソフト！！って思うじゃん。

322:デフォルトの名無しさん
09/01/01 00:53:35
go away

323:デフォルトの名無しさん
09/01/01 00:57:44
>>322
おや？外れたのかな？(^^)
勘がニブいんですねｗ

324:デフォルトの名無しさん
09/01/01 01:04:13
>>318
アホなのか・・・

325:デフォルトの名無しさん
09/01/01 01:06:26
> そりゃかけなくは無いだろうけど構造上書きにくい場合もあるじゃん。
ねーよ。

326:デフォルトの名無しさん
09/01/01 01:09:56
抜ける方法を聞いただけでこの荒れようｗｗ
VB厨はばかだなぁｗｗ
書き方を変えれば良いじゃんとか・・それは変えなきゃ対応できない言語ってことだろ。
高級言語でしょ？書き方縛ったらそこでもう言語としてだめでしょ。
アセンブラじゃないんだからさぁ。
IF　THEN
ELSE
　IF　THEN
　ELSE
　　IF　THEN
　　ENDIF
　ENDIF
ENDIF

うわっ。だっさ。最悪。

書き方変えればできますだったらjmpとかjzとかjnzとかjcとかだけでも出来るよｗｗ

327:デフォルトの名無しさん
09/01/01 01:14:31
>>321
If ... Then
ElseIf ... Then
ElseIf ... Then
End If

328:デフォルトの名無しさん
09/01/01 01:27:43
>>327
あ！ありがとうございます。
あったんだ。

329:デフォルトの名無しさん
09/01/01 01:48:45
>>328
意外と素直ｗ

330:デフォルトの名無しさん
09/01/01 02:10:17
あんまり笑わせるなよ。
VB分かってないやつがVB馬鹿にしてたのかよ。orz

331:デフォルトの名無しさん
09/01/01 02:11:14
明らかに分かってないのに、構造構造言いたがるのなんて、
情報系の一年生くらいだろ。

332:デフォルトの名無しさん
09/01/01 02:21:16
>>330-331
ゴメンね(´･ω･｀)
ついイライラしてたから

333:デフォルトの名無しさん
09/01/01 02:30:42
厨とか言っちゃうやつは例外なくアホ

334:デフォルトの名無しさん
09/01/01 13:53:37
結局、Excel2008ではVBAが使えなくなるのですか？

C#への布石ですか？

335:デフォルトの名無しさん
09/01/01 17:12:57
Excel 2008でVBAが使えないのは事実らしいが、
Excel 2008はMac版。移行先は、C#ではなくAppleScript。
しかも、次のバージョンで復活することが発表済み。
URLﾘﾝｸ(www.microsoft.com)

336:デフォルトの名無しさん
09/01/02 08:30:00
このスレは、Excel の VBE で作るフォームについての質問はスレ違い？
スレ違いでしたら誘導をお願いします。

337:263
09/01/02 09:22:34
>>336
もしかしてデザインの話か
そんな誘導先ないだろ

338:デフォルトの名無しさん
09/01/02 09:23:06
名前消し忘れた恥ずかしい

339:デフォルトの名無しさん
09/01/02 13:45:39
どうせなら、ＶＳＴＡ２．０の情報とかを書けばいいのに
>>334-335

340:デフォルトの名無しさん
09/01/02 14:03:27
あれ本当にOfficeに乗っけるの？

341:デフォルトの名無しさん
09/01/02 14:17:09
>>335
よく事情がわからんが、今必死で覚えてるEXCEL VBAが数年先に使えない、役に立たない言語になる可能性もあるってことですか？

342:デフォルトの名無しさん
09/01/02 15:03:36
そう言われ続けて何年も経つが、未だに無くなる気配すらないのがVBA。
この先もそれが続くと信じて安穏としているのは間違っているだろうが、
数年でなくなるような存在でもない。

343:デフォルトの名無しさん
09/01/02 16:48:02
Excel VBAによるWin32 APIプログラミング入門
この本って絶版でもう購入不可ですか？

344:デフォルトの名無しさん
09/01/02 16:58:06
絶版です

345:336
09/01/02 18:06:59
>>337
そうですか…了解です。

スレ違いを承知で 1 つだけ質問。
Excel のデザインで使うフォームのコントロールの仕様って VB6 と
同じなんですかね？

（コンボボックスでダブルクリックのイベントが起きないので調べたら、
　VB6 ではスタイルに 1 を設定しないと起きない、とあったので…。
　ちなみに Excel VBA ではスタイルに 0 or 2 しか設定不可。
　ダブルクリックのイベント絶対起きないじゃん…。）

346:デフォルトの名無しさん
09/01/03 00:31:02
ダブルクリックのイベントが発生しないが意味不明　
で、絶版かどうかも、役に立つかも、全く見当が付かないが、折れの持っている
「Excel VBA はじめてのプログラミングレッスン１」　技術評論社　H12.8.21初版
に第１０章　入力画面を使ってみよう　を読んでみたwww
ユーザーホームのデザインという用語が使われているが、この本では
ダブルクリックをする場面は、VBE上コンボボックスのことで、
excelシート上のコンボボックスではないよ。シート上ではダブルクリックは
使わないものと思っている。

347:デフォルトの名無しさん
09/01/03 00:58:20
>>346
セルのダブルクリックでセルの値等をコピーする、といったマクロも組むから
別にユーザフォーム専用って訳でもないと思うが

348:336
09/01/03 02:30:30
>>346
コンボボックスを使いたい場所はユーザーフォーム上で、
ワークシート上ではありません。

というかワークシート上にもコントロールを置けたんですね。
で、試してみると…コンボボックスのプルダウンメニュー表示中のダブルクリックで
ダブルクリックのイベントが発生しました。なんで？

目的はユーザーフォーム上にあるコンボボックスでダブルクリックのイベントを
取得することですが、無理そうなので、擬似的にダブルクリックを検知することにしました。

方法は下記です。
(1) マウスダウンのイベントが発生した時の時刻を Timer 関数で取得して
　　モジュール変数に退避する。
(2) マウスダウンのイベント発生都度、退避した時刻と押した時刻を比較する。
(3) (2)の時刻差が 0.5 秒以下の場合にダブルクリックのイベントでしたかった
　　処理を実行する。

コンボボックスでダブルクリックのイベントを拾った後の使い道は、
(1) True ⇔ False の切り替え（VBE のプロパティ設定画面では出来る！）
(2) コンボボックスより詳細なリストが表示できるフォームの呼び出し
を考えていました。

上記を応用すれば、トリプルクリックや4回クリックなどにも対応できそうです。
解答してくださった方、ありがとうございました。

349:デフォルトの名無しさん
09/01/03 03:55:36
トリプルクリックにまで対応できるのは素晴らしいけど
コンボボックスをシングルクリックで
透明なアイテムが一番上に(コンボ上に)きて、その
そのアイテムをシングルクリックってすると
じゃ駄目なのかな

350:デフォルトの名無しさん
09/01/03 04:52:18
URLﾘﾝｸ(www.amazon.co.jp)ユーザーのためのWin32-APIプログラミングガイド-大村-あつし/dp/4871936848/ref=sr_1_1?ie=UTF8&s=books&qid=1230925887&sr=1-1

351:デフォルトの名無しさん
09/01/03 04:53:58
オレのExcel、コンボボックスにダブルクリックイベント有るけど
みんなのには付いてないの？
バージョン Excel2003

352:デフォルトの名無しさん
09/01/03 06:03:46
たぶん
コンボボックスのプルダウンメニューの部分のダブルクリックを言っているんだと思う

353:デフォルトの名無しさん
09/01/03 13:26:28
オリジナリティ溢れるUIほど迷惑なものはない

354:デフォルトの名無しさん
09/01/03 16:11:29
>トリプルクリックや4回クリックなどにも

何考えてんだ？

355:デフォルトの名無しさん
09/01/03 16:20:56
V2C には６回クリックまであるぜ

356:デフォルトの名無しさん
09/01/03 17:11:00
API使えば、ダブルクリックの認識の間隔を取得できるから、
0.5秒決め打ちよりそれを使ったほうがいいと思う。
そういう話をしている場合でないとは思いつつ。

357:デフォルトの名無しさん
09/01/03 19:44:02
質問です。
セル上で、右クリックをすると、編集ダイアログ?が出てくるのを出ないようにしたいのですが
どう設定のマクロを書いたものか、よろしく。
右クリックイベントによってコピーモードにしているのに、余分な作業を
するのを防止したいので。

358:デフォルトの名無しさん
09/01/03 21:18:27
マウスの右ボタンを殺す

359:デフォルトの名無しさん
09/01/04 02:39:56
BeforeRightClickイベントの第二引数にCancelがあるだろ

360:デフォルトの名無しさん
09/01/04 13:15:18
サーバサイドでの帳票の生成にVBAを検討していて、
安定性、処理性能、MSのライセンス違反等を懸念してますが、
何か懸念事項やアドバイス等ありますでしょうか？

361:デフォルトの名無しさん
09/01/04 14:49:46
論理で「Aでないか、Bでないか、Cでない」ならの類なのですが、

列5 列6　列9なら、イベント処理し、「そうでないなら」、exitする　の

「そうでないなら」はどう書いたものでしょうか？

362:デフォルトの名無しさん
09/01/04 15:11:17
>>361
色々あるだろうけど
普通は
if
elseif
elseif
else

363:デフォルトの名無しさん
09/01/04 15:18:49
>>357
ワークブックのSheetBeforeRightClickイベントでcancel=trueにしないとだめだよ

364:デフォルトの名無しさん
09/01/04 15:21:38
>>361
>>362だとイベント処理のコードが重複するから
If 列5 Or 列6 Or 列9 Then
イベント処理
Else
Exit
EndIf

365:デフォルトの名無しさん
09/01/04 23:41:35
まあOr使っちゃうのが一般的かつ簡単ではあるが
条件1つずつでネストした方が速い

何故なら、例えば列5に一致するならイベント処理は行うので
列6、列9に一致するか否かは判定する必要が無いのに
>>364では毎回全てを判定した上で論理演算してしまう
複数条件でAnd、Orを使わないのは、コード最適化の常套手段

逆に速度気にせず手を抜きたいなら、カンマ区切りで
複数条件指定できるSelect Case使う方がお手軽だろ
Case 列5, 列6, 列9
　　イベント処理
Case Else
　　Exit

因みに論理演算(>>364)の処理時間を100とするなら、Ifのネストは70、Select Caseは105くらいだ
とは言え最近のPCなら、ループで何十、何百、何千万回とやってコンマ何秒かの差が出る程度だけどな

366:デフォルトの名無しさん
09/01/04 23:56:00
あれ？
VBって or で連結させた場合、順次判定して、hitしたら後の判定スキップじゃなかったっけ。
勘違いだったらごめん。

367:デフォルトの名無しさん
09/01/05 00:00:55
ショートサーキットはしないよ
まあ，とりあえず素直に書いといて最適化は実際に支障が出てから，が基本だけど

368:デフォルトの名無しさん
09/01/05 12:09:49
>>365
Select Caseが105って一概には言えないだろ？
>Case 列5, 列6, 列9
これショートサーキットだから列5がＴrueなら列6と列9は評価しないし。
>>366
ショートサーキットするのはVB.NetのOrElseとかAndAlso
今はVB.Netって言わないんｄっけ？

369:デフォルトの名無しさん
09/01/05 13:14:41
>>368
Select Caseが105ってのは、実際にカウンタ変数のMod 10に対する
条件分岐のみのループの処理時間を計った結果
それぞれ500万回*3回の平均から算出した値

そもそもが単一条件の場合でも、Select CaseはIfより遅いからね

370:デフォルトの名無しさん
09/01/05 14:13:14
セル、グラフ、フォーム等の情報を利用してフォーム形成することはできますか？
例えば
名前　値　ラジオボタン
という行が連なるフォームを作る場合、
グラフの凡例数、セルの列数、フォームで入力した数分等、行が作成される感じにしたいのですが。
（フォームの大きさに入りきらない場合はスクロールバーを出す）

次ページ