Excel VBA質問スレ Part12

Excel VBA質問スレ Pa ..

159:157
09/07/25 17:35:38
>158の続き

>152の例だと｢項目３｣が　えええ、おおお、かかか、ききき、えええ、・・・という
順番だけど、えええ、えええ、おおお、おおお、かかか、かかか、ききき、ききき・・・の
並びの方が組み合わせ順としては自然だと思う。項目４も同様に同じものが８回ずつ繰り返す
ことになります。

>152　ここまで示したらできますか？

160:デフォルトの名無しさん
09/07/25 18:55:00
よくわからないけど、列ごとにソートしたいのか？
格納用の配列(65534、254)を用意
ソート用の配列(65534、0)を用意
列をカウントする変数iを用意

for i＝0to254
ソート用の配列に列データを格納、ソート
格納用の配列(65534、i)にソートしたデータを格納

最後にシートに格納した配列を流し込む

161:デフォルトの名無しさん
09/07/25 20:12:03
>>152
死ぬほど遅いけどこういうことか？

Sub test()
For Each c In Range(Cells(1, 1), Cells(65535, 255))
If (c.Value = Empty And c.Rows > 1) Then
c.Value = c.Offset(-1, 0).Value
End If
Next
End Sub

162:デフォルトの名無しさん
09/07/25 21:10:28
>>152
１．まず、項目１．．．ｎの要素を数える
２．数えた要素を掛け算、K1xK2x...xKn
３．２．で得られた数値が必要な行数なので、
　　各項目ごとに各要素で必要行数だけ埋める

163:162
09/07/25 21:13:15
すまそ

２．数えた要素の、最小公倍数を求める

164:162
09/07/25 21:16:14
すまそ

だれか、２．の正解を頼む

165:162
09/07/25 21:18:27
ああ、最初の162で正解でした

166:162
09/07/25 21:22:58
>>152
の質問で
あああ, ううう, おおお, くくく
の組み合わせが必要かどうかで答えが変わるね

スレよごし、すまそ

167:デフォルトの名無しさん
09/07/26 00:54:28
環境
・WindowsVista
・Excel2002

A1～A10の合計をC2に表示させるマクロを作りたいのですが上手くいきません。
自分で作ったのは以下の通りです。

Sub practice()
Dim i As Integer
For i = 1 To 10
Cells(2, 3) = Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1) + Cells(i, 1)

Next i
End Sub

アドバイスを頂けると助かります。
よろしくお願いします。

168:デフォルトの名無しさん
09/07/26 01:01:07
どううまく動かないか説明もせずにアドバイスとな

169:デフォルトの名無しさん
09/07/26 01:12:49
説明不足で申し訳ありません。

上手くいかないというのは合計の値がオートSUMで計算した合計と一致しないということです。

170:デフォルトの名無しさん
09/07/26 01:21:21
やりたいことはコレか？

Sub practice()
Dim i As Integer
Dim sum as Integer
sum = 0
For i = 1 To 10
sum = sum + Cells(i, 1)
Next i
Cells(2, 3) = sum
End Sub

171:デフォルトの名無しさん
09/07/26 01:26:42
>>167
元マクロ無視して書けばこういうこと？

Sub practice()
range("c2") = worksheetfunction.sum(range("a1:a10"))
End Sub

172:167
09/07/26 01:28:41
>>170
値が一致しました。ありがとうございました。

173:デフォルトの名無しさん
09/07/26 03:50:40
どうせ小数をintegerで計算したってオチだろ

174:デフォルトの名無しさん
09/07/26 08:32:13
セルを各々9回余分に加算してたんだろ

175:デフォルトの名無しさん
09/07/26 09:25:18
動かないとかエラーが出てるとか書く時はどう望んだ風に動かないとかどんなエラーメッセージが出てるとか書け

と>>1に書いたとしても、読みもしないんだろうなぁ。

176:デフォルトの名無しさん
09/07/26 09:33:22
エスパーだけどループ処理を使ってSUMさせる課題か何かだな

177:デフォルトの名無しさん
09/07/26 13:48:35
よろしくお願いしますm(__)m

Excelで店舗の営業日報を作れるデータを作成しました。
他人がそのデータを使うワケなのですが、

データに打ち込んで、上書き保存などはできるが、
データそのものを複製やコピーする事を防止する事は可能ですか？

また、暗証番号機能などで、その複製のロックを管理する事は可能でしょうか？
あるとすればどのような手段でデータをその人に預ければよいのでしょうか。

わかりずらいかも知れませんが
よろしくお願いしますm(__)m

178:デフォルトの名無しさん
09/07/26 14:00:33
>>177
マルチ　芯でください

179:デフォルトの名無しさん
09/07/26 16:08:32
できる

で、マルチならどこなのか晴れＹＯ

180:デフォルトの名無しさん
09/07/26 16:09:31
54 ：名無しさん＠そうだ選挙にいこう：2009/07/26(日) 13:28:31
よろしくお願いしますm(__)m

Excelで店舗の営業日報を作れるデータを作成しました。
他人がそのデータを使うワケなのですが、

データに打ち込んで、上書き保存などはできるが、
データそのものを複製やコピーする事を防止する事は可能ですか？

また、暗証番号機能などで、その複製のロックを管理する事は可能でしょうか？
あるとすればどのような手段でデータをその人に預ければよいのでしょうか。

わかりずらいかも知れませんが
よろしくお願いしますm(__)m

181:デフォルトの名無しさん
09/07/26 17:25:08
自分>>177です。

マルチとは
『他でも質問してる』
って意味なのですね。

すみませんm(__)m
ドコで質問すればベストか、また、
色んな人に聞けばもしかしたら、と思い書き込みしてしまいましたm(__)m

ご迷惑おかけしましたm(__)m

さしつかえ無ければ>>179さん、簡単にでも教えていただけませんでしょうか？
よろしくお願いしますm(__)m

182:デフォルトの名無しさん
09/07/26 17:29:37
↑
女子大生or女子高生なら、即解決ｗ

183:デフォルトの名無しさん
09/07/26 17:53:50
☆質問例☆

Excelで店舗の営業日報を作れるデータを作成しました。
他人がそのデータを使うワケなのですが、

都内の中学校にかよう１５歳の女子中学中学生ですが、最近中学１年の妹の胸が大きくなってきて困ります。
まだ中学生なのに私よりも膨らみが目立っているのが少し悲しいです。

一緒にお風呂に入るとよくわかります。
妹は私の気持ちに気がつくどころか、ことあるごとにさわったりもんだりしてくるのです・・・。

データに打ち込んで、上書き保存などはできるが、
データそのものを複製やコピーする事を防止する事は可能ですか？

また、暗証番号機能などで、その複製のロックを管理する事は可能でしょうか？
あるとすればどのような手段でデータをその人に預ければよいのでしょうか。

今日もスポーツブラの下から手を入れてきて、声を堪えるのに大変でした。

わかりずらいかも知れませんが
よろしくお願いしますm(__)m

184:デフォルトの名無しさん
09/07/26 18:13:54
俺は貧乳でもOKだよ。

185:デフォルトの名無しさん
09/07/26 22:33:47
XP,OFFICE 2007
初心者＆初カキコです。
いきなりすみません。
配列変数 A(3,100)があるとして、
A(2,0)～A(2,100)や、A(3,0)～A(3,100)といった各一次元配列の平均をそれぞれ出したいのですが、
全ての平均を出す場合は
.Average(A)
ですが、各次元毎だと、方法が解りません。
どなたか指導をお願いします。

186:デフォルトの名無しさん
09/07/26 22:48:03
環境
・WindowsVista
・Excel2007

SheetAに貼った画像の中から選択したものを一つSheetBに貼りたいんですが
どうすればいいですか？

187:デフォルトの名無しさん
09/07/26 22:58:51
>186
マクロの自動記録は試してみましたか？
当方Excel2003ですが、自動記録してできたソースの１～２行コメント化するだけで、できましたよ。

188:デフォルトの名無しさん
09/07/26 23:02:24
>185
凡人なので、for ～ next　ループで回しながら、合計と件数を調べてわり算で求める方法しか知りません。
これ以外の回答をお望み？

189:デフォルトの名無しさん
09/07/26 23:03:27
>>187
ありがとうございます
やってみます

190:デフォルトの名無しさん
09/07/26 23:29:12
>188
出来るだけ早くしたくて。。
すみません。実は50×100×10000の三次元配列なので、それやると時間が半端ないんです。

191:188
09/07/26 23:34:11
>185,190
情報の後出しイクナイ

192:デフォルトの名無しさん
09/07/26 23:37:25
>>186ですが、自動記録を使ってやってみました
でもだめでした・・

Sheet2にある複数の図のうち、異なる図をコピーしても、すべて

Sheets("Sheet2").Select
Selection.Copy

となってしまいます
コピーする図を選択するにはどのようにすればいいんですか？

193:デフォルトの名無しさん
09/07/26 23:39:54
>>191
そんなの後出しじゃないだろ。
質問の内容から想定してしかるべき。

194:デフォルトの名無しさん
09/07/26 23:41:24
for ～　nextで変数を複数設定したい場合はどうすればできますか？

たとえば変数iが「5 to 101 step 24」で変数kが「5 to 20 step 5」として
cells(i,k).copy
selection.paste
みたいな感じで動作させたいです。

195:デフォルトの名無しさん
09/07/26 23:47:02
>>191
「俺にはわからない。」と言えばいいんだよ。
>情報の後出しイクナイ
なんだこりゃ？ぶさいく。

196:デフォルトの名無しさん
09/07/26 23:47:19
>191
確かに。後だしは良くないですよね。すみません。
出来るだけ簡単なシチュエーションにしたかったんです。
ところで、どなたか>185のやり方をご存知ないでしょうか？

197:187
09/07/26 23:59:08
>192
当方の手順（マクロの自動記録）シートＡに図形があって選択していない状態から
１　図形をクリック
２　メニューの編集－コピー
３　シートＢのタブをクリック
４　メニューの編集－貼り付け
これだけです。できたソースは↓で、1行目だけ削除すればいい。
ActiveSheet.Shapes("Picture 1").Select　←これだけ削除
Selection.Copy
Sheets("SheetB").Select
ActiveSheet.Paste
実行する際は、マクロを呼び出す前にコピーしたい図形をクリックして選択
状態にしておくこと。シートＢの貼り付け先を指定したいときは、自動記録
のときに当該セルをクリックする。

198:デフォルトの名無しさん
09/07/27 00:04:47
>192
196ですが、世の中ｷﾞﾌﾞｱﾝﾄﾞﾃｲｸって事で、試して見てください。
Worksheets("A").shapes(i).Copy
Worksheets("B").Activate
Active.Sheet.Paste

iの部分に画像が何枚目かを代入。

199:デフォルトの名無しさん
09/07/27 00:07:40
>>197
>>実行する際は、マクロを呼び出す前にコピーしたい図形をクリックして選択
状態にしておくこと。

この作業無しでする方法はないですか？

200:デフォルトの名無しさん
09/07/27 00:22:25
>>198
できました！
みなさんありがとうございました

201:デフォルトの名無しさん
09/07/27 01:24:29
>>185
Range(Cells(1, 1), Cells(3, 100)) = a
として
各行の平均を出す

202:デフォルトの名無しさん
09/07/27 01:28:15
>>194

k = 5
For i = 5 To 101 Step 24
　　If k > 20 Then Exit For
　　'↑はkのTo 20があまり重要でないならいらない
　　
　　Cells(i,k).Copy
　　Selection.Paste
　　
　　k = k + 5
Next

こんなんなったけどいいか?
これだと、変数iとkがいずれかはみ出したらループを抜ける。
これだと、(i,k)=(5,5),(29,10),(53,15),(77,20)の4回ループ内を実行する。

203:デフォルトの名無しさん
09/07/27 01:42:17
>>202
ありがとうございます。
上記の方法で無事動作しました。
ちなみに変数にしたい要素が3つ以上ある場合というのは一般的にどういう処理が効率的でしょうか？
今はいちいちすべての場合分けをして記述していますが、それぞれの増減は規則性があるので
なんとか簡易にしたいと思っています。

204:デフォルトの名無しさん
09/07/27 01:53:41
>>185
Sub test()
Debug.Print WorksheetFunction.Average(Range("A1:A100"))
Debug.Print WorksheetFunction.Average(Range("B1:B100"))
Debug.Print WorksheetFunction.Average(Range("C1:C100"))
End Sub

205:デフォルトの名無しさん
09/07/27 01:53:48
>201
ありがとうございます。
やはりシートを利用するしかないんでしょうね。
それか個別の一次元配列変数を宣言して代入とか。
出来れば、.Average(A(2))とかの記述でその従属二次元配列が計算されるのを期待したんですが、
特定の次元を宣言するような関数なり構文はないんですね。。
今日はもう寝ます。明日会社だし。
ありがとうございました。

206:デフォルトの名無しさん
09/07/27 10:20:03
>>203
「一般的」と「効率的」と「簡易」は両立が難しい。
何がやりたいのか自分でもわかってない気配がするが、まずは質問を絞れ。

ループ終了の条件が2つ以上ある時は無理にFor Nextを使わない。
Exit ForやGotoのような、プログラムの流れを強制的に変える命令は、
あまり使わない方がいい。

i = 5
k = 5
While (i <= 101) And (k <= 20)
　　Cells(i, k) 以下略

　　i = i + 24
　　k = k + 5
Wend

207:デフォルトの名無しさん
09/07/27 10:44:58
変数が大量にあって、ループの回数も多くなると、
ForとIfでもWhileでも、終了条件の判定回数が増えるから少し効率が落ちるね。
そういう時は最初にループの回数を調べしまうといい。

回数i = (101 - 5) / 24
回数k = (20 - 5) / 5
If 回数i < 回数k Then
　　回数 = 回数i
Else
　　回数 = 回数k
End If
i = 5
k = 5
For a = 1 To 回数
　　Cells 以下省略
　　i = i + 24
　　k = k + 5
Next

あとはケースバイケース。
可能なら、こんなふうに数式を短縮してみるとか。

For a = 0 To 回数 - 1
　　Cells(5 + 24 * a, 5 + 5 * a) 以下省略
Next

208:デフォルトの名無しさん
09/07/27 17:17:40
strTextLine = "A,B,C,D,"
というCSVファイルがあって、これをDataという配列変数に
Data = Split(strTextLine, ",")
とすると

DATA[0]はA
DATA[1]はB
DATA[2]はC
DATA[3]はD

ですが

DATA[5]にナルが入るんでしょうか？
それとも最後のカンマは無視されるんでしょうか？

配列に入れて処理を加えた後に

strTextLine = Data(0)
For C = 1 To UBound(Data)
　　strTextLine = strTextLine & "," & Data(C)
Next C

で戻してやると最後のカンマは生きているので、無視はされてないのではないかと思うのですが、確証が得たいので質問しました。

209:デフォルトの名無しさん
09/07/27 17:33:58
あれ使うといいよ
イミディエイなんとか

210:デフォルトの名無しさん
09/07/27 18:53:26
>>208
さすがにDATA[5]には何も入らんだろう。という挙げ足は置いといて。
たとえば元のデータが"A,,,B"で長さが0の文字列が無視されてしまったらどうなると思う？

211:デフォルトの名無しさん
09/07/27 18:57:25
何百行あるか何千行あるかわからないテキストファイルを一行ずつ配列に入れたいんですが
LineInputを繰り返す度に毎回ReDimしながら代入するしかありませんか？
なんとなくRedimを繰り返すのは処理速度的にあまりスマートではないのではという懸念があるのですが。
一度LineInputの度に変数に+1して行数を求めてから
もう一度LineInputと代入を繰り返すのとどっちが良いでしょうか。

212:デフォルトの名無しさん
09/07/27 19:25:27
俺なら最初に何行あるかを確認して、その分の配列をとり格納するようにすると思うけど、

スマートとかどうとか言う以前に目的を達成できたら、それで良いのでは？
デバッグの容易さとか保守性の容易さとかを考慮するのは大事だと思うけど。

213:デフォルトの名無しさん
09/07/27 21:51:33
>>208,209

イミディエイトウインドウのことですな。
DATA[4]なら

Debug.Print DATA(4)

で調べられますYo.
っていうかこの場合ローカルウィンドウで直接見たほうが早くね?

214:デフォルトの名無しさん
09/07/27 23:35:50
>>211
1行ずつ増やすんじゃなくて、たとえば100行とか200行単位で拡張していって、
最後に余った分はもう一度ReDimして削るようにすれば、だいぶ軽くなる。

行の長さの最大値とかファイルの大きさがある程度わかってれば、
もうちょっと別のアプローチもあるんだけど。

215:デフォルトの名無しさん
09/07/27 23:44:05
>>211
ファイル全体を文字列変数に一気に読み込んだあと
Split関数で区切りを改行コードにして分割

216:デフォルトの名無しさん
09/07/28 00:35:54
WindowsXPのOffice2003を使用しています。
型番や製品名の一覧があり、これらが別に用意されている製品の型番などの書かれたリストと
一字一句相違ない事を確認する作業を補助するマクロを作ろうとしています。

列Aに
aaa
bba
ccc
zzz

とあり、別のシートにリストがあって
aaa
bbb
ccc
ddd

の様に書かれていたら、列Aのbbaとzzzがリストにないのでそのセルを着色する、と言う処理を考えています。
この様なリスト総当たり的な判定、間違い探しを行う事は可能でしょうか。

URLﾘﾝｸ(paint.s13.dxbeat.com)
画像は処理前後のイメージです。列Cにコピーするわけではありません。
実際にはリストもデータもそれなりの量があります。
(なお、ループ処理、次の行、列、リストへの移動などは別に変数を切ってある範囲を直指定するなど力業でやってしまう予定です。)

マッチングのやり方として、以下を考えています。
1.リストの先頭の文字列をデータの列Aの先頭から総なめして、次のリストの文字列へ、、の繰り返し。
2.何かしらの関数でリストを一括で読み込めて、データの列Aを上からマッチングしてくれるやり方。

2は希望ですが、何か良い手段がありましたらご教授お願いします。

217:デフォルトの名無しさん
09/07/28 00:42:41
よし！ここでVLOOKUP関数だ！

218:デフォルトの名無しさん
09/07/28 00:46:43
>216
そういう関数があるかは解りませんが、結局マッチングしなかったセルを色付けしないといけないので、
For～Next構文を使用する事になると思いますので、１．をお勧めします。

219:デフォルトの名無しさん
09/07/28 00:53:48
>>216
作業列を1列使えばワークシート関数だけでできるんだけど、VBA使わないとだめ？

220:デフォルトの名無しさん
09/07/28 00:54:27
VLOOKUPと条件付書式を使えばできるんじゃないかな。
俺ならマクロでするけど。

221:デフォルトの名無しさん
09/07/28 00:58:52
>>216
個人的お勧めは3.フィルタオプション

だけれどちょっと調べてよくわからないなら1.総ナメが堅いかな
結構な量あるとはいっても2003の行に入る分量なら
よほど下手なコード書かない限りたいして時間かからない

222:216
09/07/28 01:13:53
皆さんレスありがとうございます。
>>217
調べてみました。まさにマッチングはこれだ！と言う感じでしたが、リストの別の値を代入するのではなく
色を付けたいのでどうして良いものか…　　あ、何でも良いから値をマッチしたら変数に値を一旦格納して
その後if文で変数を見て色塗りを振り分ける、、って感じなら出来そうですね。

>>218
はい、1も考えてみます。パフォーマンスがやや心配ですが^^；
ループはいずれかの方法を使いますが、時間の関係と空のセルも多々あり得るので手を抜こうと画策中です。

>>219
実は既にデータシートに数式が入っていたりして、なるべく体裁をいじりたくないというのが一点と
列が20個ほど、列の数だけリストも存在し、行数は100～200位なのでVBAの方が良いのかなと考えました。

>>220
はい、vlookupをちょっと調べてみます。
条件付き書式は多分勝手に組んじゃダメと言われそうなので回避する方向で考えています。

>>221
なるほど、オートフィルタの制限無しバージョンみたいな感じですね。しかもリストの範囲も指定できて出力も出来ると。
参考にさせていただきます。ただ、各ファイルで毎回設定各列を指定する必要がありそうですね。
上記データシートが一日に10～20ファイル届いて捌かないと行けないので、もう少し自動化の道も探ってみます。

223:デフォルトの名無しさん
09/07/28 01:37:25
>222
218です。20*200なら配列変数に格納してMatchなりVlookUpなりで検索かける方がセルに情報を読みに行く時間が短縮出来ますよ。ほんと僅かですけど。
変数格納もRangeオブジェクト使えば一瞬ですし。

224:デフォルトの名無しさん
09/07/28 01:42:13
223です。
はあ？って思われたでしょうね。
誤爆しました。223は忘れて下さい。時間は同じでした。

225:デフォルトの名無しさん
09/07/28 07:35:38
すいません、Excel2003なんですが質問が二つあります。

１．セルに複数行のデータがある場合、指定行だけ参照することはできますか？

２．セルに入力されたパスが読み取り専用のフォルダかどうか調べることはできますか？

よろしくお願いします。

226:デフォルトの名無しさん
09/07/28 07:49:41
>>225
１については、セルの折り返しでなく改行入力ならば、改行をカウントして文字列抜き出す
２はFSO使えばおｋ

227:デフォルトの名無しさん
09/07/28 10:02:18
Excel2003 XPです。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

で渡されるTargetが連続した複数のｾﾙ範囲である場合、行を1行に
変更する処理を行いたいのですが、とりあえず力技で以下のように
しています。

myRange1 = Target.Address
myRange2 = myRange1
If InStr(myRange1, ":") Then
myRange = Split(myRange1, "$")
myRange2 = myRange(1) & myRange(2) & myRange(3) & Left(myRange(2), Len(myRange(2)) - 1)
End If

要は"$"で列行列行に分割して文字列を作り直しているのですが、
何とも見難いのでもっとｽﾏｰﾄなｺﾏﾝﾄﾞやﾃｸﾆｯｸは無いでしょうか？

よろしくお願いします。

228:デフォルトの名無しさん
09/07/28 10:36:53
>>215
ありがとうございます！
すばらしくスマートです。

229:デフォルトの名無しさん
09/07/28 12:20:58
>>227
とりあえず$記号をまとめて消したいなら
myRange2 = Replace(Target.Address, "$", "")

あと、そのプログラムにはバグがあるよ。
選択された領域が2つ以上に分かれて離れていた場合、2つ目以降がすべて消えたり
$記号が残ったりする。

それよりも、セルが1個の時と複数の時を区別する意味がわかんないし、
$を消す理由もよくわからん。普通はTargetはそのまま使うもんだし。
たぶん、他の部分でもカンチガイしてる可能性が高い。

何がやりたいのか全部書いてみ？

230:227
09/07/28 13:27:12
>229

よく読んでください。

$をまとめて消したい訳ではありません。
連続領域の最上位行が対象ですので離れていようがﾊﾞｸﾞりません。

>何がやりたいのか全部書いてみ？

>227の通りです。

231:デフォルトの名無しさん
09/07/28 13:35:49
>>227
データ解析の色分けで同じようなことをやったことがありますが
$を探して無理やりやった記憶があります。
今でも勉強中の身ですのでその程度の知識しかありません。

SPLITで配列に入れて結合し直すのは感心しました。
無駄レス失礼。

232:デフォルトの名無しさん
09/07/28 13:59:52
>>229
よく読めば>>227さんの言ってることくらいわかるはずだろ！
二度と質問者様の手を煩わせることのないようにな！
あと分かりやすく説明するんだぞ！！

(・д・)

233:デフォルトの名無しさん
09/07/28 14:09:26
俺の頭が悪いのかなあ
「行を1行に変更する」の意味がどうもわからん
じゃあ変更する前の「1行じゃなかった行」ってどういう状態のことだろ

234:22
09/07/28 14:27:27
dim header as range
set header = target.rows(1)

235:デフォルトの名無しさん
09/07/28 14:28:12
う、変な名前が・・・

236:デフォルトの名無しさん
09/07/28 15:42:54
>>233
奇遇だな、俺もわからないんだ

237:デフォルトの名無しさん
09/07/28 15:56:24
わからないなら書き込まないでくださいね

238:デフォルトの名無しさん
09/07/28 16:14:20
>>227
具体的な例を出してないのが悪いな
例えば$A$3:$E$6が選択されてたらどうしたいんだ？

239:デフォルトの名無しさん
09/07/28 16:32:41
>>237
そうだな、なんで解らないってレスが付いてるかも理解出来ないやつは書き込み禁止にすべきなんだよな

240:デフォルトの名無しさん
09/07/28 17:04:07
>>227
そのプログラム、Target.Addressが"$A$1,$C$3:$D$4"の時、
myRange2は"A1,C1"という結果になるんだけど、本当にこれでいいの?

241:デフォルトの名無しさん
09/07/28 17:13:21
まさかと思うけど…
1行にしたいってこういうこと?
Set myRange2 = Target.Resize(1)

242:デフォルトの名無しさん
09/07/28 17:28:21
myRange2は範囲を示す文字列だから
myRange2 = Replace(Target.Resize(1).Address, "$", "")
じゃないか?
$を消す必要があるかどうかは不明だが
ちゃんと説明してもらえそうにないんで、とりあえず。

243:デフォルトの名無しさん
09/07/28 17:30:30
実は文字列に変換する必要はなかった、に一票
たぶん>>241で正解だと思

244:227
09/07/28 17:31:34
>233
>236
>238

現状のｺｰﾄﾞまで書いてるのに･･･

>240

そのｹｰｽは想定しておりませんでした。
ご指摘ありがとうございます。

変な流れになってますので出直します。
失礼しました。

245:227
09/07/28 17:36:06
>241

それです。
Resizeがありましたね。

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

246:デフォルトの名無しさん
09/07/28 17:53:30
現状のコードってあんた、>>240の例にもあるように
そのコードが理解不能な結果を出してんだから答えようがないじゃん
ちなみにCtrl+クリックで離れたセル領域を選択すると
Resizeでエラー出るよ

247:227
09/07/28 17:58:01
>246

>233,236,238の問いには充分かと思いますが？
またResizeでｴﾗｰがでるのは承知しております。

>229でとんちんかんなﾚｽをされていた方でしょうか？
いずれにせよ不毛ですのでこの辺で失礼します。

248:デフォルトの名無しさん
09/07/28 18:42:48
>>247
ほんと変な流れになってるよね、なんでかわからないけどｋｋｗｒ
ちゃんとした質問ｋｋｗｒだったし、口調も丁寧ｋｋｗｒなのに・・・
多分タイミングが悪かったんじゃないかな・・・また何かあったらその時はきちんとしたレスが付くといいねｋｋｂｋ

249:231です
09/07/28 20:20:23
そうか、RANGEのままサイズ変更できるんだ。
何で>>227が絡まれてるか分からんけど自分の勉強になりました。

250:デフォルトの名無しさん
09/07/28 21:14:36
OS:XP、EXCEL2003　を使っています。
こちらのコードを実行すると(0 2)、(0.1 1.9)...(1.8 0.2)、(1.9 0.1)と出力されます。
最後に出力させると思われる(2 0)が出力されません。
小数処理の関係かと思うのですが、どなたか詳しい方
解説いただきたくよろしくお願いいたします。

Sub test()
Dim a As Double
Dim b As Double

For a = 0 To 2 Step 0.1
b = Round(2 - a, 1)
Debug.Print a & vbTab & b
Next
End Sub

251:デフォルトの名無しさん
09/07/28 21:48:48
>>250
演算誤差詳しくないけれど
Excelの0.1は厳密な0.1じゃないからループ21回目でfor文の終了条件の2を越えてるんじゃね？

252:デフォルトの名無しさん
09/07/28 21:52:15
>>250
浮動小数点の問題ね
As Double　を　As Currency　にしてみたら・・どうなるかな！

253:デフォルトの名無しさん
09/07/28 22:11:06
四捨五入せずに

For a = 0 To 2 Step 0.1
b = 2 - a
Debug.Print a, b
Next

でやってみ。誤差が見えるよ。
あとPrintメソッドで「 , 」を使うとTabの働きをする。これ豆知識な

254:デフォルトの名無しさん
09/07/28 22:20:08
通貨型 (Currency)
通貨型 (Currency) の変数は、64 ビット (8 バイト) の変数です。
整数形式で表され、10,000 倍されて整数として記憶された、15 桁の整数部分と 4 桁の小数部分を持つ固定小数点数です。
-922,337,203,685,477.5808 ～ 922,337,203,685,477.5807 の範囲の値をとります。通貨型の型宣言文字は、アットマーク (@) です。

通貨型 (Currency) は、金額に関連する計算に役立つデータ型です。また、固定小数点を含む計算にも役立ちます。

255:250
09/07/28 23:14:54
>>251-254
試してみて0.1ステップだと誤差で21回目に2より
少しだけ大きな値になってしまうことが理解できました。
Printメソッドでの「 , 」も勉強になりました。

通貨型でも期待通りの動作をすることを確認できました。
こういった誤差に強い型だとわかりました。

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

256:デフォルトの名無しさん
09/07/29 00:14:45
応用は利かないけど、こうするな

For a = 0 To 20 Step 1
b = ( 20 - a ) / 10

257:デフォルトの名無しさん
09/07/29 00:21:19
> あとPrintメソッドで「 , 」を使うとTabの働きをする。これ豆知識な
豆知識ではなく基礎知識じゃね？
；で区切ると結合になって、末尾に；入れると改行されないのとセットで

258:デフォルトの名無しさん
09/07/29 10:09:22
メインのSubで動的配列を
Dim A() As String
Dim B() As Long
Redim A(10)
Redim B(10)

と宣言して別のルーチンで配列の中身をいじりたい時
ルーチンの呼び出しと呼び出し側の指定はどう書いたら良いですか？

配列操作 A(), B()
private sub 配列操作(ByRef A() As String, ByRef B() As Long)
な感じでしょうか、それとも
配列操作 A, B
private sub 配列操作(ByRef A As String, ByRef B As Long)
な感じでしょうか

259:デフォルトの名無しさん
09/07/29 11:05:06
>>258
配列は自動的にByRefになるので省略できます。逆にByValは指定できません。

Call 配列操作(A(), B())
Private Sub 配列操作(A() As String, B() As Long)

260:デフォルトの名無しさん
09/07/29 11:23:33
()は必要なんですね、ありがとうございます。

261:デフォルトの名無しさん
09/07/29 11:50:09
>>259
おい、嘘つくな。

262:デフォルトの名無しさん
09/07/29 11:53:36
直後にすみません、もうひとつひっかかってしまいました。
Split関数で文字列をAというVariant型の配列に格納した場合、この変数は

配列操作 A
Private Sub 配列操作(A As Variant)
とすれば配列を維持したままByRefで渡せるんでしょうか？

263:デフォルトの名無しさん
09/07/29 12:12:18
自分で実験すれば済むことをここで聞くか？

264:デフォルトの名無しさん
09/07/29 13:37:55
聞けばわかるのにわざわざコード組むか？

なんだろ

どちらも真理だ

265:デフォルトの名無しさん
09/07/29 14:31:15
わかったら終わりなの？結局コードは書かなくていいの？

宿題？

266:デフォルトの名無しさん
09/07/29 14:37:35
>聞けばわかるのにわざわざコード組むか？
ただの疑問なら聞けば済むだろうが
ここで出る質問のほとんどは最終的に組まないと終わらないだろ？
まぁ実験の仕方がわからないって場合は仕方ないかも知れんが

267:デフォルトの名無しさん
09/07/29 15:44:29
結局コード組むんだから間違ってるかも知れない面倒はやりたくないのだよ！

268:デフォルトの名無しさん
09/07/29 15:55:18
いきなり成功するより、いっぺん間違えた方が身に付くし
理解が深まって応用がきくようになる

269:デフォルトの名無しさん
09/07/29 16:59:34
それは当然
だが結果しか望まない者もいるのだよ・・・

270:デフォルトの名無しさん
09/07/29 17:18:10
Sub test()
Dim V() As Variant
ReDim V(10)

V(0) = "自分で調べろ"
VVV V
End Sub

Private Sub VVV(V As Variant)
MsgBox V(0)
End Sub

271:デフォルトの名無しさん
09/07/29 17:57:12
>>270
そのコードは冗長的だな
今後の保守のためにもこうすべき

Sub test()

略

V(0) = "ググレ"

略

272:デフォルトの名無しさん
09/07/29 18:04:34
>>271
そのコードは冗長的だな
今後の保守のためにもこうすべき

ググレ

273:デフォルトの名無しさん
09/07/29 18:37:56
で、このスレの存在価値も無くなりましたとさﾁｬﾝﾁｬﾝ

274:デフォルトの名無しさん
09/07/29 18:43:57
ではこういうのは

Sub b()
Dim myStr As String
Dim myMsg As String
Dim i As Long
Do
myStr = Mid(Rnd(), 3, 14)
If myStr = "718571858269" Then Exit Do
sleep 1
Loop
For i = 1 To 12 Step 2
myMsg = myMsg + Chr(Mid(myStr, i, i + 1))
Next
Debug.Print myMsg
End Sub

>273
そもそも質問するスレだしな
答えたくないなら答えなければいいだけ・・・でもある

275:デフォルトの名無しさん
09/07/29 18:55:03
桁が足りないな
素直に

for ri = 0 to 5
Randomize
rndStr(i) = mid(rnd()3,2)
next

276:デフォルトの名無しさん
09/07/29 19:55:37
ワークシート関数を眺めていて、気になったのですが、
countif(range,"<100")
のように、第2引数が文字列型(?)のように見えます。

試しに、
dim str as string
str = "<100"
msgbox 10 & str '← 10<100 と計算をさせたい。= true の結果を出したい。

と組んだのですが、
結果は 10<100 と文字列で表現されるだけでした。
引数に含まれる演算子をそのまま読み込ませる方法はありますでしょうか。
なにとぞよろしくお願いします。

277:デフォルトの名無しさん
09/07/29 20:20:41
それをやるのはevaluate()だが、お前が本当にやりたいのはworksheetfunction()じゃないか？

278:デフォルトの名無しさん
09/07/29 20:48:18
str = "<100"
MsgBox CBool(Val(10 & str))

279:デフォルトの名無しさん
09/07/29 20:52:22
つまらん

280:デフォルトの名無しさん
09/07/29 20:52:34
sumif関数について質問です。
検索条件を２つ指定する場合はどのようにしたらいいのでしょうか？

A列にある「あ」という文字とB列にある「い」という文字があるときの
C列にある数値の合計。

よろしくお願いします。

281:デフォルトの名無しさん
09/07/29 21:00:45
>>280
ここはvbaの質問スレだけどvbaの回答でいいのか？
(なんとなくスレ違いっぽい文章に見えたので念のため確認)

282:デフォルトの名無しさん
09/07/29 22:51:02
>>277
いや、ワークシート関数をVBAで使うって話ではなくて、
例えば、countif だと条件2個はネストしないと出来ないので、
それを1つの関数で出来るようにユーザー定義関数を作ろうと思ったのです。

その時に、ワークシートの countif は、第2引数に文字列で条件を入れてるのに、
それをダイレクトに演算式に代入出来てる事を疑問に思いまして。

283:デフォルトの名無しさん
09/07/29 22:59:55
そうならそうと最初から言え馬鹿

284:デフォルトの名無しさん
09/07/29 23:00:54
私の政策はブレてません。

285:デフォルトの名無しさん
09/07/30 05:32:07
馬鹿ではないでしょ。読めば分かるし。

>282
Rangeｵﾌﾞｼﾞｪｸﾄのように、セル範囲を" "で囲んであるものも有りますよね。
これはVBAがコードをコンパイルする時に、区別しやすくするためだと思います。
なので必ず文字列として機能している訳ではないです。
最終的にはマシン語で動く訳ですから。

286:デフォルトの名無しさん
09/07/30 06:24:27
VBAはコンパイルはしないだろ

287:デフォルトの名無しさん
09/07/30 07:35:20
メニュー > デバッグ > VBAProject のコンパイル

288:デフォルトの名無しさん
09/07/30 07:41:11
そういう表記だとしてもコンパイルじゃないよね？
コンパイルの意味わかってる？

289:デフォルトの名無しさん
09/07/30 07:42:52
機械語に訳すとならったが、ちがうのか？

290:デフォルトの名無しさん
09/07/30 07:51:58
そうだね。
それでVBAは機械語に訳した実行ファイルを作るのかい？

291:デフォルトの名無しさん
09/07/30 07:53:31
VBAはコンパイラじゃなくて、インタプリタだろ？

292:デフォルトの名無しさん
09/07/30 09:02:19
VBAはインタプリタ言語でもあり、コンパイル言語でもある

293:デフォルトの名無しさん
09/07/30 10:04:31
アセンブラのほうが好みだわ

294:デフォルトの名無しさん
09/07/30 10:31:03
機械語を吐くのは「狭義の」コンパイル。工業高校レベルの回答。
「Pコードマシン」でぐぐれ。

295:デフォルトの名無しさん
09/07/30 13:08:27
Excel2007のVBE、インテリセンスが効かないんだけど何か設定がいるの？

296:デフォルトの名無しさん
09/07/30 13:10:25
ああ、オブジェクトの種類によって効かないやつがあるのか
Rangeならいけるわ

297:デフォルトの名無しさん
09/07/30 19:10:58
すみません、ご助言お願いいたします。

OS：Vista、Excel：2007

コンパイルを実行すると
”プロシージャの呼び出し、または引数が不正です”と表記されます。
この際、黄色い帯で示されるエラー部分が、
Public Function Zn(CZn, X, W, b, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11)
Zn = 2 * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4) / _
(K1 * X + ((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4)) ^ 0.5)
End Function

のZnの式の部分です。

色々考えたのですが原因がわからず、試しに、上手くいく類似のプログラムの
Znを代入してみたところ、エラーは出ませんでした。
代用したZnの式は

Zn = 2 * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2) / _
(K1 * X + ((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2)) ^ 0.5)
です。
（K10とK12の項を削除したものです）

最初のZn式がエラーを示す原因等、ご助言お願いいたします。

298:デフォルトの名無しさん
09/07/30 19:48:59
0.5

299:デフォルトの名無しさん
09/07/30 20:09:56
^ 0.5

300:デフォルトの名無しさん
09/07/30 20:15:46
>>298
>>299
早速のご助言ありがとうございます。

0.5とは、最後のですよね。
ただ、エラーが出るZn式にも、出ないZn式にも含まれているのですが･･･？

301:デフォルトの名無しさん
09/07/30 20:28:09
そのエクセルほしいな
2kしかもっていないけど、基本的に^は整数しか出来ない

Zn = Application.Power(～～ ,0.5)
で代用

302:デフォルトの名無しさん
09/07/30 20:38:13
>>301
細かいけど前に「2 *」が抜けてないか？

303:302
09/07/30 20:40:41
不足指摘してるのもまだ不足してたな
さすがにそこまで応用力のないやつはいないか

304:297
09/07/30 20:46:40
>>301
ありがとうございます！
恥ずかしながら、301さんのスレを見て初めてVBAでワークシート関数の利用が
出来ることを知りました。。。

ほしいというのは、やはりここに書いただけではエラーの理由の解明が
難しいということでしょうか？

305:デフォルトの名無しさん
09/07/30 21:08:48
いや、全部確固内に記述しちゃえばよかろ

306:297
09/07/30 21:46:24
アドバイス頂いた方法でやってみたのですが、だめでした

最初のZnの式を
Zn = 2 * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4) / _
(K1 * X + Application.WorksheetFunction.Power(((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4)), 0.5))
としたのですが、
「worksheetFunctionクラスのPowerプロパティを取得できません」
とのことです。。。

307:デフォルトの名無しさん
09/07/30 22:01:33
いろいろ変えてみたら

308:デフォルトの名無しさん
09/07/30 22:24:23
これなら通るんだよね。

Sub test()
Debug.Print 2 * Zn(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) ^ 0.5
End Sub
Public Function Zn(CZn, X, W, b, K1, K2, K3, K4, K5, K6, K7, K8, K9, K10, K11)
Zn = (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 - K8 * X * W - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4) / _
(K1 * X + ((K1 * X) ^ 2 + 4 * K2 * X * (CZn - X - K3 * b * X - K4 * b ^ 2 * X - K5 * b ^ 3 * X - K6 * b ^ 4 * X - 2 * K7 * b * X ^ 2 _
- K8 * W * X - K9 * X * W ^ 2 - K10 * X * W ^ 3 - K11 * X * W ^ 4)))
End Function

309:デフォルトの名無しさん
09/07/31 00:02:27

Excel.Range("Sheet1!$A$1").Find(What:="")

What:= ←ここに２５５文字以上入れると、動かんのだが。

310:デフォルトの名無しさん
09/07/31 00:36:05
Sub test()
Dim HashedData
Set HashedData = CreateObject("CAPICOM.HashedData")
HashedData.Algorithm = CAPICOM_HASH_ALGORITHM_SHA1
HashedData.Hash "abc123あいう"
MsgBox HashedData.Value
End Sub

暗号化プログラムを作っているのですが、予定では
「f95439120bf5c5d2b962cbe3a530199226f1ed2e」
と出る予定だったはずなのに違う値が出て来るヽ(`Д´)ﾉ

311:デフォルトの名無しさん
09/07/31 01:21:08
>>310
半角のみと全角のみで確認

312:デフォルトの名無しさん
09/07/31 07:04:59
Excelを勉強したくてスレ検索しました
ここがヒットしました。普通のExcelとExcel　VBAとの違いはなんですか？
エクセルとは、プログラムしたエクセルに同じ動作を繰り返させるものだとホームページで読みました。

313:デフォルトの名無しさん
09/07/31 07:24:10
>>312
>普通のExcelとExcel　VBAとの違い
比較する対象ではありません。
ExcelはExcel VBAを含みます。
しかし、例外もあり、含まないExcelもあります。

>エクセルとは、プログラムしたエクセルに同じ動作を繰り返させるもの
再帰的な定義ですね。
その「ホームページ」には「プログラムしたエクセル」の定義は書いてありましたか？

314:デフォルトの名無しさん
09/07/31 07:41:40
暗号化なんてやったことないわ

315:デフォルトの名無しさん
09/07/31 09:58:31
>>297
Functionの最初に
Debug.Print CZn; X; W; b; K1; K2; K3; K4; K5; K6; K7; K8; K9; K10; K11
ってのを追加して、エラーが出た時のパラメータを教えて

316:デフォルトの名無しさん
09/07/31 12:36:30
>>297
マイナスの平方根をとろうとしてる
実数解を期待してるなら、式かパラメータかどっちかがおかしい

317:デフォルトの名無しさん
09/07/31 14:06:05
Excel2003使用

sheet1にある表のB列に「特定」があれば、その行をコピーして
sheet2の2行目から下へ順番に貼り付けたいのですが、
sheet2への貼り付けがうまくいきません。

Rend = Range("c65536").End(xlUp).Row
For i = 7 To Rend
If Range("b" & i) = "特定" Then
Worksheets("sheet1").Rows(i).Select
Selection.Rows.Copy
Worksheets("sheet2").Rows(i).PasteSpecial
End If
Next

Worksheets("sheet2").Rows(i).PasteSpecialの変数(i)を
Rend2=Range("a2").end(xldown).offset(1,0)を作って
それを当てはめてもうまくいきません。
解決方法を教えてください

318:デフォルトの名無しさん
09/07/31 14:46:12
なにがどううまく行かないのかと

シート2のセルをカウントする変数を組み込めばいいんじゃね

319:317
09/07/31 15:19:14
>>272
ありがとうございます。^^
おかげさまで解決しました。

320:デフォルトの名無しさん
09/07/31 16:17:05
【回答は】Excel VBA質問スルナ Part13【ｸﾞｸﾞﾚ】

321:デフォルトの名無しさん
09/07/31 20:03:47
>>317
おそらく、sheet2をアクティブにしていないから

322:デフォルトの名無しさん
09/08/01 07:56:11
すいません。
一般的な関数（例えばsinなど）では
EXCELのセル上で『　　=sin(　　』を入力すると
入力セルの近くに『　SIN(数値)　』というクイックヒントがでます。
しかしVBAでユーザー定義関数をつくり、
同様にセル上で作成した関数を入力してもクイックヒントが出てきません。
どのようにすれば自作の関数でもクイックヒントがでるようになるのでしょうか。
教えてください。
Excel2003、WindowsXPです。

323:デフォルトの名無しさん
09/08/01 08:50:04
ヒントはヒントとして定義しなきゃ出ないよ
Functipnプロシージャを書いただけじゃ、関数と引数を定義しただけだ

とはいえ、Excelでユーザー定義関数のヒントを定義するのは面倒なので
「関数の引数」ダイアログを使う方法をオススメする
こちらは定義というか宣言した引数がそのまま出てくる

324:デフォルトの名無しさん
09/08/01 13:32:00
WindowsXP
Excel2000で作っています。

url = "http://・・・/a.html"
Workbooks.Open Filename:=url

という形で、社内のイントラネット上のhtmlファイルをブックとして開きたいのですが、
インターネットのファイルや、PC内のファイルは開けるのに
イントラネット上のファイルは開けません。
なにか、特別な認証が必要なのでしょうか？

325:デフォルトの名無しさん
09/08/01 18:02:08
社内イントラ上のｈｔｍｌファイルの参照を、http://・・・としてるの？
それだと開くわけないよね。

326:デフォルトの名無しさん
09/08/01 18:46:15
んなわけなかろ

いや端末アドレスがそうなってるなら問題ないだろ

327:デフォルトの名無しさん
09/08/01 19:07:40
IEや他のブラウザでurl = "http://・・・/a.html"が開けるかどうかだね

328:324
09/08/02 00:05:27
みなさんありがとうございます。

IEなどのブラウザでは開けます。
ちなみに、イントラネットのファイルのアドレスは
URLﾘﾝｸ(192.168.1.10)～/～.html
みたいにIPアドレスになってます。

329:デフォルトの名無しさん
09/08/02 22:32:07
cells(x,y)=""
cells(x,y)=Empty

の違いってなんでしょうか？

330:デフォルトの名無しさん
09/08/03 03:28:45
>>329
EmptyはVariant型で「変数が初期化されていない」という意味の特殊な値。
"" はString型で長さが0の文字列。ただしCellsに代入した場合は自動的にEmptyに変換されるので
結果は同じになる。

331:322
09/08/03 05:41:14
>>323
ありがとうございます。
「関数の引数」ダイアログ理解しました。
しかしできることなら、やはりヒントを定義したいのですが
その場合はどのような方法でやればいいのでしょうか？

332:デフォルトの名無しさん
09/08/03 06:37:59
君には無理だ。やめておけ。

333:デフォルトの名無しさん
09/08/03 14:57:23
シートを保存する時に書式を含む値のみを保存しているのですが、条件付き書式も
通常の書式に変換（＆削除）したいのですが、何か良い方法がありますでしょうか？

334:デフォルトの名無しさん
09/08/03 17:31:03
>>333
新規のシートに
はりた

335:デフォルトの名無しさん
09/08/03 17:32:32
新規のシートに
貼りつけて保存すればいんじゃね

336:デフォルトの名無しさん
09/08/03 19:54:43
OS -> Windows Vista
Excel Office2007

ある文字列をカウントする関数Function()を作ってみたけど
参照しているセルの値が変わっても自動計算されません。
なぜでしょうか？

Excelの自動計算はONにしてます。
また、マクロも有効になっています。
数式バーにカーソルを合わせてEnterキーを押すと
そのセルだけが更新されます。

337:デフォルトの名無しさん
09/08/03 20:45:52
参照式とFuncitonの内容を書きなさい。
それだけの情報だとなんともいえない。

338:デフォルトの名無しさん
09/08/04 00:23:59
あるシートに別ファイルシートのイベントマクロをコピーしたいのですが、
たくさんのシートがあるので、手作業でなく、コピーそのものをマクロ化する方法を教えて下さい。

339:デフォルトの名無しさん
09/08/04 00:43:47
>>338
モジュールのインポート、エクスポート

340:デフォルトの名無しさん
09/08/04 06:17:42
>>336
それだけの情報だとApplication.Volatile使えとしかいえない。

>>338
VB言語でVBプロジェクトを弄る方法は、表計算(Excel)とは関係ないので
>>339の方法がお気に召さないならそれ以上はスレ違いって話になる

しかし、あるブックの複数シートで同一イベントを起こしたい場合
シートモジュールでのWorksheet_Changeの変わりに
ブックモジュールでWorkbook_SheetChange使えば良いだけの話だがな

次ページ