エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14708 for VBA�� (0.003 sec.)

[[20100214172346]]: #score: 3410; @digest: af171468ae7b2fca4041b2d217b90fd6; @id: 47762; @mdate: 2010-03-04T02:56:32Z; @size: 27227; @type: text/plain; #keywords: txthyokatoti (309747), txttotimenseki (236828), txtsyutokutoti (179926), txttatemonomenseki (162396), テ担 (86070), txtnengetu (76209), txtsyutokuzei (65413), txttotisyutokuzei (64439), 当) (63054), txtgenzeigaku (59986), 土地 (47114), 「tx (38891), 万円 (31558), 建物 (29732), 面積 (19519), 信・ (17218), ンテ (12846), ・編 (12265), checkbox1 (10411), 算結 (10044), ナス (7986), イナ (7726), 担当 (7359), マイ (6315), メン (5010), val (4862), 計算 (4661), value (3212), 有難 (3170), 返信 (2924), ッセ (2862), メッ (2849); 『ユーザフォームの計算』（tt）
いつも大変お世話になっています。税金計算なんですがワークシートで =(価格*0.5/土地面積)*MIN(床面積*2,200*0.03)で求めていますがユーザフォームで = Val(txtHyokaToti * 0.5 / txtTotiMenseki) * Min (txtTatemonoMenseki * 2, 200) * 0.03 ^^^^^^^^^^ ↑ 反転しますよろしくお願いします。 ---- > 反転しますどういう意味ですか? MsgBox txtTatemonoMenseki とすると、何と表示されるのですか? (VBAメンテ担当) ---- 有難うございます。コンバイルエラー sub またはfunctionが定義されていません。が表示されます。 (tt) ---- > コンバイルエラー > Sub または Functionが定義されていません。そういう情報は、最初から示しましょう。 > =(価格*0.5/土地面積)*MIN(床面積*2,200*0.03) であるならば、 = Val(txtHyokaToti * 0.5 / txtTotiMenseki) * Application.Min(txtTatemonoMenseki * 2, 200 * 0.03) ^^^^^^^^^^^^ ^^^^^^^^^^^ ではないでしょうか? (VBAメンテ担当) ---- (VBAメンテ担当)さん有難うございます。お蔭様でバッチリ計算が出来ました。計算結果マイナスになった場合0表示は出来ますか? (tt) ---- > 計算結果マイナスになった場合0表示は出来ますか? できると思います。具体的な方法は、サンプルデータやコードの説明がないので、わかりません。セルの書式設定などではないでしょうか? (VBAメンテ担当) ---- ＞計算結果マイナスになった場合0表示は出来ますか? 表示だけでなく、結果が「0」に成っても良いのなら MAX関数で下限を設ける手法がしばしば使われるのを見ます。例えばワークシート上でも =MAX(0,計算結果) としておけば計算結果がマイナスの時は 0,プラスの時は計算結果が返されますよね。 VBAでも同じように書いてみられては? それにしても、最初の「Val」は不要に思いますが。。。有った方が良いのかな?? (HANA) ---- (VBAメンテ担当)さん今勉強中のコードです。 Private Sub txtHyokaToti_Change() If CheckBox1.Value = True Then txtSyutokuzei = Val(txtHyokaToti * 0.5 * 0.03) - Val(txtHyokaToti * 0.5 / txtTotiMenseki) _ * Application.Min(txtTatemonoMenseki * 2, 200 * 0.03) ElseIf CheckBox1.Value = False Then txtTorokuToti = Val(txtHyokaToti) * 0.01 End If End Sub txtHyokaToti=1800万円 txtHyokaTaTemono=1500万円 txtTotiMenseki=120u txtTatemonoMenseki=180 この計算結果マイナス18万円になります。したがって税額は0円ということになります。 (tt) ---- (HANA)さんいつも有難うございます。 >それにしても、最初の「Val」は不要に思いますが。。。 >有った方が良いのかな?? 前回この学校でご指導頂いたときにこの方法を教えていただいたので「Val」ナシで検証はしておりません (tt) ---- > この計算結果マイナス18万円になります計算結果は、どの値なのでしょうか? 計算結果 = Application.Max(0, 計算結果) とすれば? なお、Valは有ってもいいと思います。ただし文字列等、数値に変換できない文字が入力されると、誤計算される可能性がありますが・・・ (VBAメンテ担当) ---- >計算結果は、どの値なのでしょうか? 上記のコードに下部のデータで計算した値です。 (tt) ---- >>計算結果は、どの値なのでしょうか? > 上記のコードに下部のデータで計算した値です。その計算結果は、どの値なのか?と聞いているのは、 txtSyutokuzei なのか、txtTorokuToti なのか? そもそも、Max は試したのでしょうか? (VBAメンテ担当) ---- おっと、衝突しちゃいましたが取りあえずそのまま載せておきます。 Valを付けるなら、それぞれの変数に付けないと今回の場合意味が無いと思いますが。。。 Val(txtHyokaToti) * 0.5 * 0.03 こんな感じで。例えば、txtHyokaToti に値以外が入っていた場合 Val(txtHyokaToti * 0.5 * 0.03) ‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾‾この計算をしようとした時点でエラーで止まるんじゃないかと。。。? それから、言葉を統一した方が良いと思いますよ。＞この計算結果マイナス18万円になります。 ↓ txtSyutokuzeiがマイナス18万円になります。と言った感じで。 (HANA) ---- > Valを付けるなら、それぞれの変数に付けないとたしかに・・要するに、付け方ですね。 > 最初の「Val」は不要に思いますがでは、意味がわかりませんでした。 (VBAメンテ担当) ---- (VBAメンテ担当)さん >txtSyutokuzei なのか、txtTorokuToti なのか? (HANA)さんのとおり「txtSyutokuzeiがマイナス18万円になります。」です。今後理解できるように気をつけます。 >そもそも、Max は試したのでしょうか? 試したのですが今のところ計算ミスが出ますのでゆっくり落ち着いて試してみるつもりです。 (tt) ---- >>txtSyutokuzei なのか、txtTorokuToti なのか? > > 「txtSyutokuzeiがマイナス18万円になります。」であれば、 txtSyutokuzei = Application.Max(0, txtSyutokuzei) ではないかと思うのですが、 >>そもそも、Max は試したのでしょうか? > 試したのですが今のところ計算ミスが出ますどのような値で、どのように試しているのかきちんと説明していただければ、アドバイスがしやすいのですが・・・ (VBAメンテ担当) ---- (VBAメンテ担当)さん有難うございます。 >どのような値で、どのように試しているのかきちんと説明していただければ、アドバイ >スがしやすいのですが・・・出来ないからといって何でもお聞きするのも失礼だし自分でよく勉強してそれでも出来ないときに又ご指導願うと言うのが自分のスキル上達につながるのではないかと思います。教えて頂ながら大変失礼だと思いますがよろしくお願いします。 (tt) ---- >>どのような値で、どのように試しているのかきちんと説明していただければ、アドバイスがしやすいのですが・・・ > > 出来ないからといって何でもお聞きするのも失礼だし自分でよく勉強してそれでも出来 > ないときに又ご指導願うと言うのが自分のスキル上達につながるのではないかと思います。少し勘違いをされているかもしれないので、補足しておきます。 > 試したのですが今のところ計算ミスが出ますは、どのように試して、どのようになってほしいところが、どのようになってしまうのかの説明がないので、アドバイスしている者の理解不足等により、間違ったことをアドバイスしている可能性もあります。それよりも、ご自身で考えてみるというのであれば、もちろん、がんばっていただきたいです。そのほうがよりチカラになると思います。 (VBAメンテ担当) ---- (VBAメンテ担当)さん有難うございます。この例題はまだ始まったばかりでご指導をお願いしたいことがたくさんあります。ひとつひとつ解決したいので今後よろしくお願いします。 (tt) ---- > この例題はまだ始まったばかりでご指導をお願いしたいことがたくさんあります。ひと > つひとつ解決したいので今後よろしくお願いします。はい。私でよければ、時間のあるときは、コメントさせていただきます。わからないことが出てきたときは、再現できるサンプルデータとコードを添えて、ご質問いただければよいかと思います。サンプルデータがシートの場合は、以下のような感じで、説明していただければ、助かります。 [A] [B] [C] [1] [2] [3] がんばってください。 (VBAメンテ担当) ---- (VBAメンテ担当)さん有難うございます。ユーザフォーム上で作業しています。概要は土地付建物の購入時の税金計算をしようとしています。 TextBoxには名前を付けています txtTotiMenseki txtHyokaToti txtTorokuToti txtTorokuTatemono (土地面積）（土地評価額) (土地登録免許税） (建物登録免許税） txtTatemonoMenseki txtHyokaTatemono txtSyutokuToti txtSyutokuTatemono (建物面積）（建物評価額) (土地取得税） (建物取得税）今のところこのような形式です。(まだまだ追加される予定です。） txtSyutokuToti = Application.Max(0, txtHyokaToti * 0.5 * 0.03) - Application.Max (0, txtHyokaToti * 0.5 / txtTotiMenseki) _ * Application.Max(0, txtTatemonoMenseki * 2, 200 * 0.03) ^^^^^^^ ↑Minに変更した場合マイナスがプラスになるプレビューでは(建物面積）(建物評価額）等は1段下に下がります。 (tt) ---- それで良いのですか? txtSyutokuTotiが、どの様な計算がされれば良いのかまた、それぞれにどの様な値が入力されるのか分かりませんが。。。少なくとも、「txtHyokaToti」にマイナスが入力される事は無いと思うのでなんだか正しく理解されて居られないように感じますが? もう一度、ワークシートに戻って或いは分かりやすい「土地評価額」などの文字を使ってどの様な計算がされればよいのかゆっくり考えなおしてみられてはどうでしょう。 (HANA) ---- 有難うございます。 >「txtHyokaToti」にマイナスが入力される事は無いと思うので今txtSyutokuTotiを求めています。ここにマイナスが出ます。計算式 txtSyutokuToti = (txtHyokaToti * 0.5 * 0.03) - (txtHyokaToti * 0.5 / txtTotiMenseki) * Application.Min(txtTatemonoMenseki * 2, 200 * 0.03) 具体例 txtTotiMenseki=120u txtTatemonoMenseki=180u txtHyokaToti=1800万円としますと基本税率=1800万円*0.5*0.03=27万円軽減税率=(1800万円*0.5/120u)*200u*0.03=45万円 txtSyutokuToti =27万円-45万円=-18万円 txtSyutokuTotiにマイナスがでます。ここを0表示にさせたいのです。 (HANA)さんご指摘のように(Val)をなくしても正しく計算されました (tt) ---- 返信は、下のコメント欄から行って下さい。また、ワークシート上で考えてみるとどうですか? 具体的に想定すると A1セルに 10、B1セルに 20 と値が入っている状態で A2セルに =B1-A1 と式を入れるとマイナスに成りますね?（-10）＞＞例えばワークシート上でも =MAX(0,計算結果) としておけば＞＞計算結果がマイナスの時は 0,プラスの時は計算結果が返されますよね。これを踏まえて考えると、A2セルの式はどの様な式にしますか? もう少し、実際の計算の様な物を想定してみます。 A1セルに 10、B1セルに 20、C1セルに 30 と入っている状態で B1セルとC1セルの小さい方の値から、A1セルの値を引くこの数式は出来ますか? そして、その結果がマイナスに成った時は「0」にすると言う条件を加えるとどんな式にしますか? ==== もう一つ違ったアプローチとしては計算結果を今は直接表示しているのではないかと思いますが ↓こんな1行のコード表示するボックス = 数式一度変数に入れて、IFを使って場合分けをしても良いと思いますよ。 ↓こんな6行のコードに計算結果を入れる変数 = 数式 IF 計算結果を入れる変数の値がマイナスだったら THEN 表示するボックス = 0 ELSE 表示するボックス = 計算結果を入れる変数の値 END IF って感じで。 (HANA) ---- ご提案有難うございます。 If txtSyutokuToti.Value < 0 Then txtSyutokuToti.Value = 0 End If このコードを追加でマイナスの場合0値が返ります。他にエラーが出るヶ所があります改めてご指導を願いします。 (tt) ---- > このコードを追加でマイナスの場合0値が返ります txtSyutokuToti.Value = Application.Max(0, txtSyutokuToti.Value) では、いけないのでしょうか? > 他にエラーが出るヶ所があります具体的には、どこのコードでどういうエラーが出るのでしょうか? あと、 > 返信は、下のコメント欄から行って下さい。というお願いの意味はおわかりですか? [ 一覧(最新更新順) | 返信・編集 ] の返信・編集をクリックして投稿するのではありません。 (とおりすがり) ---- 有難うございます。 txtSyutokuToti.Value = Application.Max(0, txtSyutokuToti.Value)でも0値が帰ります。エラーの件ですが txtSyutokuToti = (txtHyokaToti * 0.5 * 0.03) - (txtHyokaToti * 0.5 / txtTotiMenseki) * Application.Min(txtTatemonoMenseki * 2, 200 * 0.03) の計算式があるため「txtTotiMenseki」「txtTatemonoMenseki」を入力しないで「txtHyokaToti」に数値を入力又「txtTotiMenseki」「txtTatemonoMenseki」入力して「txtHyokaToti」の数値を消去すすると」実行時エラー "13" 型が一致しませんのメッセージが出ます。 (tt) ---- > 概要は土地付建物の購入時の税金計算をしようとしています。 > TextBoxには名前を付けています > > txtTotiMenseki txtHyokaToti txtTorokuToti txtTorokuTatemono > (土地面積）（土地評価額) (土地登録免許税） (建物登録免許税） > > txtTatemonoMenseki txtHyokaTatemono txtSyutokuToti txtSyutokuTatemono > (建物面積）（建物評価額) (土地取得税） (建物取得税）それぞれのTextBoxには、 > txtTotiMenseki=120u txtTatemonoMenseki=180u > txtHyokaToti=1800万円と入力すると、 > 基本税率=1800万円*0.5*0.03=27万円 > 軽減税率=(1800万円*0.5/120u)*200u*0.03=45万円 > txtSyutokuToti =27万円-45万円=-18万円 > txtSyutokuTotiにマイナスがでます。ここを0表示にさせたいのですよね? "u"や、"万円"という文字も入力してあるのですか? 数字だけ入力している場合 txtSyutokuToti = (txtHyokaToti * 0.5 * 0.03) - (txtHyokaToti * 0.5 / txtTotiMenseki) * Application.Min(txtTatemonoMenseki * 2, 200 * 0.03) のコードですと、-18 となりませんか? 試しに、その次の行に、 txtSyutokuToti = Application.Max(0, txtSyutokuToti) を追加すると、どうなりますか? > 0値が返ります。 txtSyutokuToti がマイナス値の場合、 > 0表示にさせたいのではないですか?何か矛盾していませんか? > 実行時エラー "13" 型が一致しませんのメッセージが出ます。まずは、 > txtTotiMenseki=120u txtTatemonoMenseki=180u > txtHyokaToti=1800万円の例で検証していただけませんか? 途中で前提条件を変えるとややこしくなります。なお、入力しない場合、結果としてどうなればいいのかの説明がありませんので、アドバイスができません。たぶん、 txtSyutokuToti = (Val(txtHyokaToti) * 0.5 * 0.03) - (Val(txtHyokaToti) * 0.5 / Val(txtTotiMenseki)) * Application.Min(Val(txtTatemonoMenseki) * 2, 200 * 0.03) としないといけないのではと思いますが、計算結果として期待しているものが得られるのかがわかりません。 (VBAメンテ担当) ---- ＞実行時エラー "13" 型が一致しませんのメッセージが出ます。このメッセージが出る原因は分かっているのですよね? ＞「txtTotiMenseki」「txtTatemonoMenseki」を入力しないで「txtHyokaToti」に数値を入力又＞「txtTotiMenseki」「txtTatemonoMenseki」入力して「txtHyokaToti」の数値を消去でしたら、計算処理に進む条件が整っているかどうか先に確認すれば良いのではないでしょうか? 「○○の時××をするとエラーが発生する」という考え方ではなく「何がそろっていた時計算されればよいのか」を考えてみられてはどうでしょう? また、その条件が整っていない時は、結果には何を表示させたいのでしょう? IF 条件を確認して、整っていたら THEN ・・・・・・・・・・・ txtSyutokuToti = 計算結果 ELSE txtSyutokuToti = 何を表示? END IF To,VBAメンテ担当さんへ一応、念のため・・・＞このコードを追加でマイナスの場合0値が返ります。＞txtSyutokuToti.Value = Application.Max(0, txtSyutokuToti.Value)でも0値が帰ります。は、「ちゃんと0が表示されるように成りました」って報告だと思います。 (HANA) ---- (VBAメンテ担当)さん有難うございます。 >"u"や、"万円"という文字も入力してあるのですか? > 数字だけ入力している場合 "u"は入力していません。 "万円"は10000で入力しています。のコードですと、-18 となりませんか? >txtSyutokuToti = Application.Max(0, txtSyutokuToti) >を追加すると、どうなりますか? は(HANA)さんがコメントして頂いているように0値がかえります。申し訳ありませんでした。 (HANA)さん有難うございます。 >計算処理に進む条件が整っているかどうか > 先に確認すれば良いのではないでしょうか? はい検証させていただきます (tt) ---- 「txtTotiMenseki」「txtTatemonoMenseki」に数値入力がないときメッセージを出そうとするのですがメッセージも出ない、計算もされないのですが間違いを教えてください（「txtHyokaToti」→「txtTotiSyutokuZei」「txtSyutokuTatemono」→[txtTotiSyutokuZei]に変更しています。 Private Sub txtHyokaToti_Change() If txtTotiMenseki.Value = "" Then Exit Sub MsgBox "土地面積を入力してください" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ If txtTatemonoMenseki.Value = "" Then Exit Sub MsgBox "建物面積を入力してください" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ txtTotiTorokuZei.Value = txtHyokaToti.Value * 0.004 If CheckBox1.Value = False Then txtTotiTorokuZei.Value = txtHyokaToti.Value * 0.01 End If txtTotiSyutokuZei.Value = (txtHyokaToti.Value * 0.5 * 0.03) - (txtHyokaToti.Value * 0.5 / txtTotiMenseki.Value) _ * Application.Min(txtTatemonoMenseki.Value * 2, 200 * 0.03) txtTotiSyutokuZei.Value = Application.Max(0, txtTotiSyutokuZei.Value) End Sub (tt) ---- ＞If txtTotiMenseki.Value = "" Then Exit Sub こんな風に書いてあるので、その通りの動きに成っていると思います。 IF 条件 THEN 処理 END IF が基本ですから、まずはその様になさっておかれては? ＞Exit Sub は、そのマクロを終了します。やりたいことは条件が成立したらメッセージを表示してマクロを終了ですから If txtTotiMenseki.Value = "" Then MsgBox "土地面積を入力してください" Exit Sub End If で、どうでしょう? (HANA) ---- (HANA)さんいつもいつも有難うございます。気持ちよく動いてくれます。 (tt) ---- 動くように成りましたか。良かったです。でも、↑の部分は ttさんが載せておられるコードからコピペして作った物で、私が入力した部分はありません。後一歩を乗り越える為の糧としてステップインで実行しながらコードの動きを確認出来るように成ると良いかもしれません。例えば＞ If txtTotiMenseki.Value = "" Then Exit Sub の行にブレークポイントを設けます。コードを書く白い部分の左側に灰色の部分が有りますね? そこをクリックすると茶色い●が表示されると思います。行も茶色くハイライトされます。或いは、ツールバーの手のマークのボタンを押しても良いと思います。マクロはブレークポイントが設定されている行で一旦止まります。又は、一旦止めたい所の前に一行挿入して「Stop」と書いておきます。やはり、コードはこの行で一旦止まります。マクロが実行されて止まっている行は、黄色くハイライトされていると思います。 [F8]キーを押すと、コードの実行に伴いハイライトの位置も変わって行きます。最初に書いて居られたコードだと、まず、If txtTotiMenseki.Value = "" Then が黄色くなって止まります。 [F8]を押すと、Exit Sub が黄色くなってもう一度押すと、マクロが終了してしまうのが分かると思います。すると、「Exit Sub する前にメッセージを表示しないと!!」と気づけたかも知れません。デバッグ技術も身につけて、頑張ってください。 (HANA) ---- 有難うございます。デバッグ技術も身に付けたいと思います。コードを変更しました。前のコードではチェックを入替え再計算していましたが変更後のコードはチェックを入れ代えるだけで再計算してくれます。 Private Sub CheckBox1_Click() If txtTotiMenseki.Value = "" Then MsgBox "土地面積を入力してください" Exit Sub End If If CheckBox1.Value = True Then txtTotiTorokuZei.Value = txtHyokaToti.Value * 0.004 Else txtTotiTorokuZei.Value = txtHyokaToti.Value * 0.01 End If If txtTatemonoMenseki.Value = "" Then MsgBox "建物面積を入力してください" Exit Sub End If If CheckBox1.Value = True Then txtTatemonoTorokuZei.Value = txtHyokaTatemono.Value * 0.0015 Else txtTatemonoTorokuZei.Value = txtHyokaTatemono.Value * 0.003 End If txtTotiSyutokuZei = (txtHyokaToti * 0.5 * 0.03) - (txtHyokaToti * 0.5 / txtTotiMenseki) _ * Application.Min(txtTatemonoMenseki * 2, 200 * 0.03) txtTotiSyutokuZei = Application.Max(0, txtTotiSyutokuZei.Value) End Sub コード的にはおかしいヶ所ところはないでしょうか? (tt) ---- コード的には。。。無さそうですが（.Value が抜けている所が有るみたいですが。）処理の流れ等は違和感が有ります。なんで、「CheckBox1_Click」でマクロを実行するのかとか土地面積が入力されてなかったら、txtTatemonoTorokuZeiも計算されないとか場合に依ってはすぐに消す事に成るかもしれない値が txtTotiSyutokuZei に入ってしまうとかが、使用方法等は分からないのでそれでよいのかもしれません。 (HANA) ---- 有難うございます。 (tt) ---- 次の課題ですがよろしくお願いします。 sheet2に中古住宅課税標準軽減額範囲指定 B4:E9 昭和2年1月1日〜昭和50年12月31日 0万円昭和51年1月1日〜昭和56年6月30日 350万円昭和56年7月1日〜昭和60年6月30日 420万円昭和60年7月1日〜平成1年3月31日 450万円平成1年4月1日〜平成9年3月31日 1000万円平成9年4月1日〜 1200万円 sheet1(textbox) txtNengetu=年月日 txtGenzeigaku.Value=中古住宅課税標準軽減額 CheckBox1 CommandButton1 を設定しています。 Private Sub CommandButton1_Click() If CheckBox1.Value = True Then txtGenzeigaku.Value = "=IF(txtNengetu.Value ="""","""",VLookup (txtNengetu.Value , 中古住宅課税標準軽減額, 4, True)" End If End Sub txtGenzeigakuに値が返らず数式が返ります。間違いを教えてください。 (tt) ---- > txtGenzeigakuに値が返らず数式が返ります。以下のようにしてはいかがでしょうか? If txtNengetu.Value = "" Then txtGenzeigaku.Value = "" Else txtGenzeigaku.Value = _ Application.WorksheetFunction.VLookup(txtNengetu.Value, Range("中古住宅課税標準軽減額"), 4, True) End If あと、他の方もおっしゃっていますが、 >> 返信は、下のコメント欄から行って下さい。 > > というお願いの意味はおわかりですか? > > [ 一覧(最新更新順) | 返信・編集 ] > > の返信・編集をクリックして投稿するのではありません。の意味はおわかりですか?反応を示していただけませんか? (VBAメンテ担当) ---- 衝突しちゃいましたが、そのまま載せておきます。まず。。。変数 = "あ" と書いたら、変数には「あ」と言う文字が入りますね。変数 = "=1+1" と書いたら、変数には「=1+1」という文字が入ります。それから、変数 = 1+1 と書いたら、変数は「2」になりますが同じように変数 = if(・・・・) と書いても計算してくれません。最初にMIN関数を使おうと思った時も、同じように書いたのでは出来ませんでしたよね。使おうと思った関数が、VBAで使えるのかどうか確認されるのが良いと思います。ヘルプで「ワークシート関数」などのワードで検索すると VBAで使えるワークシート関数の一覧が見つかると思います。 (HANA) ---- (VBAメンテ担当)さん > 返信・編集をクリックして投稿するのではありません。 > の意味はおわかりですか?反応を示していただけませんか? ご指摘がありましたので(VBAメンテ担当)さん宛てにコメントからメッセージをしましたがごらんいただけたのでしょうか? > 返信・編集をクリックして投稿するのではありません。とありますが質問の一環でコメントではないと考えております。もし私の勘違いでしたらごめんなさい。またどの部分がコメントなんでしょうか?ご指摘いただければ幸甚です。 (VBAメンテ担当)さんのコードでは「worksheetFunctionクラスのVlookup1プロパティを取得できません」のエラーメッセージが表示されます。 (HANA)さんワークシートで Range("C17").Formula = "=IF(C16="""","""",VLOOKUP(C16,中古住宅課税標準減税額,4,TRUE)*10000)" (C16=年月日）で値は帰ります。ご存知でしたら「ユーザフォーム」の詳しい書籍がありましたら教えていただけませんか? (tt) ---- まず、質問の本題に入る前に、投稿の方法ですが・・・ > ご指摘がありましたので(VBAメンテ担当)さん宛てにコメントからメッセージをしました > がごらんいただけたのでしょうか? どの文章のことをおっしゃっているのかわかりませんが、拝見はしています。 > 返信・編集をクリックして投稿するのではありません。というように、今回指摘がされているのは、 > 表示された書き込みの一番下[コメント:]の下の枠にコメントを書き込んでという方法で書き込みがされていないように見えます。書き込みの全体を見ていただければ、わかると思いますが、横一直線に線が引かれている部分があり、投稿内容の区切りとなっていて、会話のやりとりがわかるようになっています。ところが、返信・編集をクリックして投稿されると、 ---- という表示では、横一直線の区切り線にならず、投稿の区切りがパッと見て、よくわからないわけです。さて、質問の本題ですが。 > (VBAメンテ担当)さんのコードでは > 「worksheetFunctionクラスのVlookup1プロパティを取得できません」のエラーメッセー > ジが表示されます。コードを示してみてください。 Vlookup1プロパティとは何ですか?1が余計では? あと、txtNengetu.Value が、中古住宅課税標準減税額の左端列にない場合、そのようなメッセージが出ます。なお、データ型をあわせておく必要がありますので、 Val(txtNengetu.Value) とすると、いかがですか? (VBAメンテ担当) ---- >ところが、返信・編集をクリックして投稿されると、知らなかったです。今まで「返信・編集」で投稿していました。以降コメントから投稿します。 >Vlookup1プロパティ > とは何ですか?1が余計では? 1は不必要でタイプミスです Val(txtNengetu.Value)を各ヶ所追加したのですがコンバイルエラー代入式の左辺の関数の呼出しは、バリアント型又はオブジェクト方の値をかえさなければなりませんと表示されます。 (tt) ---- > Val(txtNengetu.Value)を各ヶ所追加したのですが > コンバイルエラー > 代入式の左辺の関数の呼出しは、バリアント型又はオブジェクト方の値をかえさなければなりません各ヶ所追加が気になるのですが、アドバイスが悪かったのかもしれませんが、 VLookup(Val(txtNengetu.Value) ^^^^^ ^^^ ここだけです。 Val(txtGenzeigaku.Value) = _ などとしてしまうと、おっしゃっているようなエラーになります。 Val関数が何をしているのかをーるぷで調べるなど確認して、考えてみてください。 (VBAメンテ担当) ---- ユーザフォームでのVlookupプロパティは結局理解できず私なりにユーザフォームで日時を入力しワークシートにその値を代入しtxtGenzeigakuを計算しその値をユーザフォームに代入するという遠周りで求めました。以前みやほりんさんが回答されたものを応用し 200u以下txtHyokaTotiの1/6 200u以上txtHyokaTotiの1/3 の計算 txtKoteiSisanKeigen.Value = Format(Val(txtHyokaToti.Value * 1 / 6 + txtHyokaToti.Value _ * ((1 - 200 / txtTotiMenseki) * 1 / 6) *(txtTotiMenseki > 200))) 上記のコードはワークシートでは正しく値が返りますがユーザフォームでは200u以上では間違った値が返ります。よろしくお願いします。 (tt) ---- *(txtTotiMenseki > 200) この部分。ワークシートに =(1>0)*1 VBAで msgbox (1>0)*1 (semm) ---- 素直に If txtTotiMenseki.Value > 200 Then ・・・・ Else ・・・・ End If って書いて分けた方が後で読んだときも分かりやすいのではないかと思いますが。。。 (HANA) ---- (semm)さん有難うございます。 > msgbox (1>0)*1を代入しますと「true」がかえりmsgboxを省くと200u超える部分値が小さくなります。例えば txtTotiMenseki 200u txtHyokaToti1800万円 txtKoteiSisanKeigen 300万円です txtTotiMenseki 300u txtHyokaToti1800万円 txtKoteiSisanKeigen 400万円が正答ですが 200万円になります。これは今の式のカッコを移動させて計算しても同様の数値が出ます。 (HANA)さん有難うございます。なかなかレスがなかったのでおっしゃるとおりにやろうかなと考えておりました。 (tt) ---- 新しいシートでこんなコードを実行すると、何か分かるかもしれません。 '------ Sub TEST03031300() Range("A1").Value = "=(100>0)*100" Range("B1").Value = "=(100>0)*1" Range("C1").Value = "B1=(100 > 0) *1 :数式入力" Range("A2").Value = (100 > 0) * 100 Range("B2").Value = (100 > 0) * 1 Range("C2").Value = "B2 (100 > 0) *1 :計算結果入力" Range("A3").Value = "=(100<0)*100" Range("B3").Value = "=(100<0)*1" Range("C3").Value = "B3=(100 < 0) *1 :数式入力" Range("A4").Value = (100 < 0) * 100 Range("B4").Value = (100 < 0) * 1 Range("C4").Value = "B4 (100 < 0) *1 :計算結果入力" End Sub '------ (HANA) ---- (HANA)さん有難うございます。出来そうでなかなか出来ない。もう少し根気よく試してみます。 (tt) ---- 皆さん有難うございました。 txtKoteiSisanKeigen.Value = Format(Val(txtHyokaToti.Value * 1 / 6) - ((txtHyokaToti.Value _ * (1 - 200 / txtTotiMenseki) * 1 / 6) * (txtTotiMenseki > 200)), "#,##0") このコード変更で解決いたしました。 (tt) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201002/20100214172346.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ