Excel VBA質問スレ Part12

1 名前：デフォルトの名無しさん mailto:sage [2009/07/14(火) 19:07:54 ] ExcelのVBAに関する質問スレです 前スレ pc12.2ch.net/test/read.cgi/tech/1241885130/ ★1 質問テンプレ(雛形)は用意しませんが､OSとExcelのバージョンは必ず書きましょう。 ★2 ExcelのVBA以外の部分に関する質問はNGです。 　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。 ★3 ExcelのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。 　VBAとは､『Visual Basic for Application』の略で 　　Application 　　├Workbooks 　　｜└Workbook 　　｜　 ├Worksheets 　　｜　 ｜└Worksheet 　というApplication以下のオブジェクトを､VB言語で操作するものを指します。 　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､ 　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。 ★4 とりあえず､Excelのインスタンスを作らずにVB6で出来ることは全てスレ違いだと思ってください。 ★5 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み 　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。 　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。 ★6 わからなければとりあえず「マクロの記録」（Alt, T, M, R） 233 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 14:09:26 ] 俺の頭が悪いのかなあ 「行を1行に変更する」の意味がどうもわからん じゃあ変更する前の「1行じゃなかった行」ってどういう状態のことだろ 234 名前：22 mailto:sage [2009/07/28(火) 14:27:27 ] dim header as range set header = target.rows(1) 235 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 14:28:12 ] う、変な名前が・・・ 236 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 15:42:54 ] >>233 奇遇だな、俺もわからないんだ 237 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 15:56:24 ] わからないなら書き込まないでくださいね 238 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 16:14:20 ] >>227 具体的な例を出してないのが悪いな 例えば$A$3:$E$6が選択されてたらどうしたいんだ？ 239 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 16:32:41 ] >>237 そうだな、なんで解らないってレスが付いてるかも理解出来ないやつは書き込み禁止にすべきなんだよな 240 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 17:04:07 ] >>227 そのプログラム、Target.Addressが"$A$1,$C$3:$D$4"の時、 myRange2は"A1,C1"という結果になるんだけど、本当にこれでいいの? 241 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 17:13:21 ] まさかと思うけど… 1行にしたいってこういうこと? Set myRange2 = Target.Resize(1) 242 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 17:28:21 ] myRange2は範囲を示す文字列だから myRange2 = Replace(Target.Resize(1).Address, "$", "") じゃないか? $を消す必要があるかどうかは不明だが ちゃんと説明してもらえそうにないんで、とりあえず。 243 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 17:30:30 ] 実は文字列に変換する必要はなかった、に一票 たぶん>>241で正解だと思 244 名前：227 mailto:sage [2009/07/28(火) 17:31:34 ] >233 >236 >238 現状のｺｰﾄﾞまで書いてるのに･･･ >240 そのｹｰｽは想定しておりませんでした。 ご指摘ありがとうございます。 変な流れになってますので出直します。 失礼しました。 245 名前：227 mailto:sage [2009/07/28(火) 17:36:06 ] >241 それです。 Resizeがありましたね。 ありがとうございました。 246 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 17:53:30 ] 現状のコードってあんた、>>240の例にもあるように そのコードが理解不能な結果を出してんだから答えようがないじゃん ちなみにCtrl+クリックで離れたセル領域を選択すると Resizeでエラー出るよ 247 名前：227 mailto:sage [2009/07/28(火) 17:58:01 ] >246 >233,236,238の問いには充分かと思いますが？ またResizeでｴﾗｰがでるのは承知しております。 >229でとんちんかんなﾚｽをされていた方でしょうか？ いずれにせよ不毛ですのでこの辺で失礼します。 248 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 18:42:48 ] >>247 ほんと変な流れになってるよね、なんでかわからないけどｋｋｗｒ ちゃんとした質問ｋｋｗｒだったし、口調も丁寧ｋｋｗｒなのに・・・ 多分タイミングが悪かったんじゃないかな・・・また何かあったらその時はきちんとしたレスが付くといいねｋｋｂｋ 249 名前：231です mailto:sage [2009/07/28(火) 20:20:23 ] そうか、RANGEのままサイズ変更できるんだ。 何で>>227が絡まれてるか分からんけど自分の勉強になりました。 250 名前：デフォルトの名無しさん [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 21:48:48 ] >>250 演算誤差詳しくないけれど Excelの0.1は厳密な0.1じゃないからループ21回目でfor文の終了条件の2を越えてるんじゃね？ 252 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 21:52:15 ] >>250 浮動小数点の問題ね As Double　を　As Currency　にしてみたら・・どうなるかな！ 253 名前：デフォルトの名無しさん mailto:sage [2009/07/28(火) 22:11:06 ] 四捨五入せずに For a = 0 To 2 Step 0.1 b = 2 - a Debug.Print a, b Next でやってみ。誤差が見えるよ。 あとPrintメソッドで「 , 」を使うとTabの働きをする。これ豆知識な 254 名前：デフォルトの名無しさん mailto:sage [2009/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 [2009/07/28(火) 23:14:54 ] >>251-254 試してみて0.1ステップだと誤差で21回目に2より 少しだけ大きな値になってしまうことが理解できました。 Printメソッドでの「 , 」も勉強になりました。 通貨型でも期待通りの動作をすることを確認できました。 こういった誤差に強い型だとわかりました。 ご回答ありがとうございました。 256 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 00:14:45 ] 応用は利かないけど、こうするな For a = 0 To 20 Step 1 b = ( 20 - a ) / 10 257 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 00:21:19 ] > あとPrintメソッドで「 , 」を使うとTabの働きをする。これ豆知識な 豆知識ではなく基礎知識じゃね？ ；で区切ると結合になって、末尾に；入れると改行されないのとセットで 258 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 11:05:06 ] >>258 配列は自動的にByRefになるので省略できます。逆にByValは指定できません。 Call 配列操作(A(), B()) Private Sub 配列操作(A() As String, B() As Long) 260 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 11:23:33 ] ()は必要なんですね、ありがとうございます。 261 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 11:50:09 ] >>259 おい、嘘つくな。 262 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 11:53:36 ] 直後にすみません、もうひとつひっかかってしまいました。 Split関数で文字列をAというVariant型の配列に格納した場合、この変数は 配列操作 A Private Sub 配列操作(A As Variant) とすれば配列を維持したままByRefで渡せるんでしょうか？ 263 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 12:12:18 ] 自分で実験すれば済むことをここで聞くか？ 264 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 13:37:55 ] 聞けばわかるのにわざわざコード組むか？ なんだろ どちらも真理だ 265 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 14:31:15 ] わかったら終わりなの？結局コードは書かなくていいの？ 宿題？ 266 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 14:37:35 ] >聞けばわかるのにわざわざコード組むか？ ただの疑問なら聞けば済むだろうが ここで出る質問のほとんどは最終的に組まないと終わらないだろ？ まぁ実験の仕方がわからないって場合は仕方ないかも知れんが 267 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 15:44:29 ] 結局コード組むんだから間違ってるかも知れない面倒はやりたくないのだよ！ 268 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 15:55:18 ] いきなり成功するより、いっぺん間違えた方が身に付くし 理解が深まって応用がきくようになる 269 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 16:59:34 ] それは当然 だが結果しか望まない者もいるのだよ・・・ 270 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 17:57:12 ] >>270 そのコードは冗長的だな 今後の保守のためにもこうすべき Sub test() 略 V(0) = "ググレ" 略 272 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 18:04:34 ] >>271 そのコードは冗長的だな 今後の保守のためにもこうすべき ググレ 273 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 18:37:56 ] で、このスレの存在価値も無くなりましたとさ ﾁｬﾝﾁｬﾝ 274 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 18:55:03 ] 桁が足りないな 素直に for ri = 0 to 5 Randomize rndStr(i) = mid(rnd()3,2) next 276 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 19:55:37 ] ワークシート関数を眺めていて、気になったのですが、 countif(range,"<100") のように、第2引数が文字列型(?)のように見えます。 試しに、 dim str as string str = "<100" msgbox 10 & str '← 10<100 と計算をさせたい。= true の結果を出したい。 と組んだのですが、 結果は 10<100 と文字列で表現されるだけでした。 引数に含まれる演算子をそのまま読み込ませる方法はありますでしょうか。 なにとぞよろしくお願いします。 277 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 20:20:41 ] それをやるのはevaluate()だが、お前が本当にやりたいのはworksheetfunction()じゃないか？ 278 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 20:48:18 ] str = "<100" MsgBox CBool(Val(10 & str)) 279 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 20:52:22 ] つまらん 280 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 20:52:34 ] sumif関数について質問です。 検索条件を２つ指定する場合はどのようにしたらいいのでしょうか？ A列にある「あ」という文字とB列にある「い」という文字があるときの C列にある数値の合計。 よろしくお願いします。 281 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 21:00:45 ] >>280 ここはvbaの質問スレだけどvbaの回答でいいのか？ (なんとなくスレ違いっぽい文章に見えたので念のため確認) 282 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 22:51:02 ] >>277 いや、ワークシート関数をVBAで使うって話ではなくて、 例えば、countif だと条件2個はネストしないと出来ないので、 それを1つの関数で出来るようにユーザー定義関数を作ろうと思ったのです。 その時に、ワークシートの countif は、第2引数に文字列で条件を入れてるのに、 それをダイレクトに演算式に代入出来てる事を疑問に思いまして。 283 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 22:59:55 ] そうならそうと最初から言え馬鹿 284 名前：デフォルトの名無しさん mailto:sage [2009/07/29(水) 23:00:54 ] 私の政策はブレてません。 285 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 05:32:07 ] 馬鹿ではないでしょ。読めば分かるし。 >282 Rangeｵﾌﾞｼﾞｪｸﾄのように、セル範囲を" "で囲んであるものも有りますよね。 これはVBAがコードをコンパイルする時に、区別しやすくするためだと思います。 なので必ず文字列として機能している訳ではないです。 最終的にはマシン語で動く訳ですから。 286 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 06:24:27 ] VBAはコンパイルはしないだろ 287 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 07:35:20 ] メニュー > デバッグ > VBAProject のコンパイル 288 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 07:41:11 ] そういう表記だとしてもコンパイルじゃないよね？ コンパイルの意味わかってる？ 289 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 07:42:52 ] 機械語に訳すとならったが、ちがうのか？ 290 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 07:51:58 ] そうだね。 それでVBAは機械語に訳した実行ファイルを作るのかい？ 291 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 07:53:31 ] VBAはコンパイラじゃなくて、インタプリタだろ？ 292 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 09:02:19 ] VBAはインタプリタ言語でもあり、コンパイル言語でもある 293 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 10:04:31 ] アセンブラのほうが好みだわ 294 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 10:31:03 ] 機械語を吐くのは「狭義の」コンパイル。工業高校レベルの回答。 「Pコードマシン」でぐぐれ。 295 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 13:08:27 ] Excel2007のVBE、インテリセンスが効かないんだけど何か設定がいるの？ 296 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 13:10:25 ] ああ、オブジェクトの種類によって効かないやつがあるのか Rangeならいけるわ 297 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 19:48:59 ] 0.5 299 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 20:09:56 ] ^ 0.5 300 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 20:15:46 ] >>298 >>299 早速のご助言ありがとうございます。 0.5とは、最後のですよね。 ただ、エラーが出るZn式にも、出ないZn式にも含まれているのですが･･･？ 301 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 20:28:09 ] そのエクセルほしいな 2kしかもっていないけど、基本的に^は整数しか出来ない Zn = Application.Power(〜〜 ,0.5) で代用 302 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 20:38:13 ] >>301 細かいけど前に「2 *」が抜けてないか？ 303 名前：302 mailto:sage [2009/07/30(木) 20:40:41 ] 不足指摘してるのもまだ不足してたな さすがにそこまで応用力のないやつはいないか 304 名前：297 mailto:sage [2009/07/30(木) 20:46:40 ] >>301 ありがとうございます！ 恥ずかしながら、301さんのスレを見て初めてVBAでワークシート関数の利用が 出来ることを知りました。。。 ほしいというのは、やはりここに書いただけではエラーの理由の解明が 難しいということでしょうか？ 305 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 21:08:48 ] いや、全部確固内に記述しちゃえばよかろ 306 名前：297 mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/30(木) 22:01:33 ] いろいろ変えてみたら 308 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん [2009/07/31(金) 00:02:27 ] Excel.Range("Sheet1!$A$1").Find(What:="") What:= ←ここに２５５文字以上入れると、動かんのだが。 310 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 01:21:08 ] >>310 半角のみと全角のみで確認 312 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 07:04:59 ] Excelを勉強したくてスレ検索しました ここがヒットしました。普通のExcelとExcel　VBAとの違いはなんですか？ エクセルとは、プログラムしたエクセルに同じ動作を繰り返させるものだとホームページで読みました。 313 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 07:24:10 ] >>312 >普通のExcelとExcel　VBAとの違い 比較する対象ではありません。 ExcelはExcel VBAを含みます。 しかし、例外もあり、含まないExcelもあります。 >エクセルとは、プログラムしたエクセルに同じ動作を繰り返させるもの 再帰的な定義ですね。 その「ホームページ」には「プログラムしたエクセル」の定義は書いてありましたか？ 314 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 07:41:40 ] 暗号化なんてやったことないわ 315 名前：デフォルトの名無しさん mailto:sage [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 12:36:30 ] >>297 マイナスの平方根をとろうとしてる 実数解を期待してるなら、式かパラメータかどっちかがおかしい 317 名前：デフォルトの名無しさん [2009/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 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 14:46:12 ] なにがどううまく行かないのかと シート2のセルをカウントする変数を組み込めばいいんじゃね 319 名前：317 [2009/07/31(金) 15:19:14 ] >>272 ありがとうございます。^^ おかげさまで解決しました。 320 名前：デフォルトの名無しさん [2009/07/31(金) 16:17:05 ] 【回答は】Excel VBA質問スルナ Part13【ｸﾞｸﾞﾚ】 321 名前：デフォルトの名無しさん mailto:sage [2009/07/31(金) 20:03:47 ] >>317 おそらく、sheet2をアクティブにしていないから 322 名前：デフォルトの名無しさん mailto:sage [2009/08/01(土) 07:56:11 ] すいません。 一般的な関数（例えばsinなど）では EXCELのセル上で 『　　=sin(　　』を入力すると 入力セルの近くに『　SIN(数値)　』というクイックヒントがでます。 しかしVBAでユーザー定義関数をつくり、 同様にセル上で作成した関数を入力してもクイックヒントが出てきません。 どのようにすれば自作の関数でもクイックヒントがでるようになるのでしょうか。 教えてください。 Excel2003、WindowsXPです。 323 名前：デフォルトの名無しさん mailto:sage [2009/08/01(土) 08:50:04 ] ヒントはヒントとして定義しなきゃ出ないよ Functipnプロシージャを書いただけじゃ、関数と引数を定義しただけだ とはいえ、Excelでユーザー定義関数のヒントを定義するのは面倒なので 「関数の引数」ダイアログを使う方法をオススメする こちらは定義というか宣言した引数がそのまま出てくる 324 名前：デフォルトの名無しさん mailto:sage [2009/08/01(土) 13:32:00 ] WindowsXP Excel2000で作っています。 url = "http://・・・/a.html" Workbooks.Open Filename:=url という形で、社内のイントラネット上のhtmlファイルをブックとして開きたいのですが、 インターネットのファイルや、PC内のファイルは開けるのに イントラネット上のファイルは開けません。 なにか、特別な認証が必要なのでしょうか？ 325 名前：デフォルトの名無しさん mailto:sage [2009/08/01(土) 18:02:08 ] 社内イントラ上のｈｔｍｌファイルの参照を、http://・・・としてるの？ それだと開くわけないよね。 326 名前：デフォルトの名無しさん mailto:sage [2009/08/01(土) 18:46:15 ] んなわけなかろ いや端末アドレスがそうなってるなら問題ないだろ 327 名前：デフォルトの名無しさん mailto:sage [2009/08/01(土) 19:07:40 ] IEや他のブラウザでurl = "http://・・・/a.html"が開けるかどうかだね 328 名前：324 mailto:sage [2009/08/02(日) 00:05:27 ] みなさんありがとうございます。 IEなどのブラウザでは開けます。 ちなみに、イントラネットのファイルのアドレスは 192.168.1.10/〜/〜.html みたいにIPアドレスになってます。 329 名前：デフォルトの名無しさん mailto:age [2009/08/02(日) 22:32:07 ] cells(x,y)="" cells(x,y)=Empty の違いってなんでしょうか？ 330 名前：デフォルトの名無しさん mailto:sage [2009/08/03(月) 03:28:45 ] >>329 EmptyはVariant型で「変数が初期化されていない」という意味の特殊な値。 "" はString型で長さが0の文字列。ただしCellsに代入した場合は自動的にEmptyに変換されるので 結果は同じになる。 331 名前：322 mailto:sage [2009/08/03(月) 05:41:14 ] >>323 ありがとうございます。 「関数の引数」ダイアログ理解しました。 しかしできることなら、やはりヒントを定義したいのですが その場合はどのような方法でやればいいのでしょうか？ 332 名前：デフォルトの名無しさん mailto:sage [2009/08/03(月) 06:37:59 ] 君には無理だ。やめておけ。 333 名前：デフォルトの名無しさん [2009/08/03(月) 14:57:23 ] シートを保存する時に書式を含む値のみを保存しているのですが、条件付き書式も 通常の書式に変換（＆削除）したいのですが、何か良い方法がありますでしょうか？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef