ベストアンサー

ＶＢＡでセルに公式をいれたい！

2005/10/28 19:37

ＥＸＣＥＬ2000を使っています。以下のコードを書くと Range("Ｇ18").Formula = WorksheetFunction.CountIf(Range("Ｑ18：ＡＢ19"), "出張") i = Range("G18").value 結果の個数が表示されてしまいます。関数をセルに入れ、表示は個数にしていのですがどうしたらよろしいでしょうか

aitaine
お礼率43% (170/393)

ウィルス・マルウェア
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

BLUEPIXY
ベストアンサー率50% (3003/5914)

2005/10/28 19:42 回答No.1

Range("Ｇ18").Formula = WorksheetFunction.CountIf(Range("Ｑ18：ＡＢ19"), "出張") を Range("G18").Formula = "=COUNTIF(Q18:AB19, ""出張"")"

質問者

お礼 2005/10/28 21:58

とんでもない質問にさっそくの回答ありがとうございました。助かりました。

関連するQ&A

VBAで文字と数値のセルを計算したい

EXCEL2000でＶＢＡ作成中です。　以下のコードで計算式を入れています。セルの値が0のときは、セルの値を表示しないようにしています。ところが印刷すると0が表示されてしまいます。 Range("F18").Formula = "=if(+G18>0,""朝"","""")" Range("h18").Formula = "=if(+Ｉ18>0,""昼"","""")" Range("J18").Formula = "=if(+Ｋ18>0,""夕"","""")" Range("G18").Formula = "=IF(COUNTIF(Q18:AB19, "" 朝"")=0,0,COUNTIF(Q18:AB19, ""朝""))" Range("I18").Formula = "=IF(COUNTIF(Q18:AB19, "" 昼"")=0,0,COUNTIF(Q18:AB19, ""昼""))" Range("K18").Formula = "=IF(COUNTIF(Q18:AB19, "" 夕"")=0,0,COUNTIF(Q18:AB19, ""夕""))" Range("L18").Formula = "=-(+G18*300+I18*350+K18* 400)" そこで Range("G18").Formula = "=IF(COUNTIF(Q18:AB19, "" 朝"")=0,"""",COUNTIF(Q18:AB19, ""朝""))" とすると、L18にエラーが出て計算してくれません。ゼロを非表示にしてしかも計算させるようにするにはどうしたらよろしいか。
VBA ワークシート関数のエラー

シートに数式を入れていたものを、ＶＢＡで値のみ入力しようと考えています。そこで、.Cells(1,1) = WorksheetFunction.数式といった形のメソッドを試しています。しかし、複雑な数式を記述するとエラーが出てしまいます。成功 (iferrorというワークシート関数が１つ） Debug.Print WorksheetFunction.IfError(1 / .Cells(1, 5) + 1 / .Cells(1, 6) + 1 / .Cells(1, 7) - 1, "P") 失敗（ワークシート関数のifとcountifなど複数のものが数式に混入） Debug.Print WorksheetFunction.If(CountIf(Range("C17:D49"), Range("C29")) > 5, Range("C29"), Range("D29")) Countifの場所でエラーになります。このcountifを使えるようにするためには、どうすればよいのでしょうか？ WorksheetFunction.if(WorksheetFunction.Countif(、、、、という書き方はダメでした。数式が汚くてすみません。宜しくお願いいたします。
[Excel97]VBA:セルに入っている数式を別のシートのセルに文字列としてセットする

「ExcelVBAマクロ500連発」という技術評論社の本（青のカバー）のNo.277に「式を文字列として表示する」というサンプルマクロがあります。「ワークシートのセルに入っている数式を、（同じシート内の）別のセルに文字列としてセットする」ここのコードを参考にして、「数式を、（同じブック内の別のシートの）セルに文字列としてセットする」コードを考えています。以下のコードを作りましたが、実行すると最後から2行目の「.Formula」のところで実行時エラー1004：'Range'メソッドは失敗しました。'_Global'オブジェクトというエラーが出てきます。なぜでしょうか？正しいコードの記述を教えて下さい。（Sheet1のD3セルの計算式をSheet2のD10セルに文字列としてセット） Option Explicit Dim 調査セル As Variant Dim 報告セル As Variant Sub 式の抽出() Worksheets("Sheet2").Select 調査セル = Worksheets("Sheet1").Cells(3, 4) 報告セル = "D10" Range(報告セル).Value = "" Range(報告セル).Value = "'" + Range(調査セル).Formula End Sub
【エクセル】離れたセルのCOUNTIF関数

こんにちは。エクセルのCOUNTIF関数についての質問です。各セルに以下のような数値が入っている表で・・・　A＝10　 B＝00　 C＝20 　 D＝30 　 E＝00 　 F＝40 　 G＝50　 AとCとEとGのセルを選択し、0以外のセルの個数を数えるとき COUNTIF関数で＝COUNTIF(A,C,E,G,"<>0") という数式を立てたのですが、エラーとなってしまいました。最終的には＝((COUNTIF(A,"<>0")+(COUNTIF(C,"<>0")+(COUNTIF(E,"<>0")+((COUNTIF(G,"<>0")) という数式をたてて計算は出来たのですが、もっと簡単（？）な式はあったりするのでしょうか？ご存知の方がいらっしゃいましたら是非お教え下さい。
ExcelのVBAでお聞きします。

初心者の為、分からないのですが・・・すいませんが宜しくお願いします。シート上に特定の文字(有給)と入力した時に、その文字を数えるようにCOUNTIF関数を使って A1のセルに個数を表示させました。同じように計画と入力した時に、その文字を数えるようにCOUNTIF関数を使って B1のセルに個数を表示させました。ここからなんですがシート上に(有給)と入力した時に、メッセージボックスを使って残りの有給は○○あります。と表示させたいのです。同じように(計画)と入力した時に、メッセージボックスを使って残りの計画は○○あります。と表示させたいです。有給と計画の入力範囲ですが・・・E11：AD76です。 A1とB1には、COUNTIF関数で、残数を表示させています。 A1が有給の残数です。 B1が計画の残数です。この様な、動作をさせる場合は、どの様なコードを作成すればよいのでしょうか？お手数ですが教えて頂けますでしょうか？
VBAについて教えて下さい

EXCEL2010を使用中。独学で、Web上で色々検索したものをパクリながら VBAを組んでるようなレベルです。今回教えて頂きたい内容ですが、カード型の入力シート「Sheet名:入力」を作成して、登録ボタンでデータベースシート「Sheet名:スケジュール」に書き足していくような業務スケジュール表を作成中です。わざわざそんな手のこんだものを作らなくてもと思われるかもしれませんが諸事情があっての事なので登録ボタンのVBAは Private Sub 登録_Click() Dim row As Integer row = WorksheetFunction.CountA(Sheets("スケジュール").Columns(1)) + 1 Sheets("スケジュール").Cells(row, 1).Value = Range("Q2").Value Sheets("スケジュール").Cells(row, 2).Value = Range("G6:G7").Value Sheets("スケジュール").Cells(row, 3).Value = Range("G8:G9").Value Sheets("スケジュール").Cells(row, 4).Value = Range("G10:G11").Value Sheets("スケジュール").Cells(row, 5).Value = Range("G12:G13").Value Sheets("スケジュール").Cells(row, 6).Value = Range("G14:G15").Value Sheets("スケジュール").Cells(row, 7).Value = Range("G16:G17").Value Sheets("スケジュール").Cells(row, 8).Value = Range("G18:G19").Value Sheets("スケジュール").Cells(row, 9).Value = Range("G20:G21").Value Sheets("スケジュール").Cells(row, 10).Value = Range("G22:G23").Value Sheets("スケジュール").Cells(row, 11).Value = Range("G24:G25").Value Sheets("スケジュール").Cells(row, 12).Value = Range("M6:M7").Value Sheets("スケジュール").Cells(row, 13).Value = Range("M8:M9").Value Sheets("スケジュール").Cells(row, 14).Value = Range("M10:M11").Value Sheets("スケジュール").Cells(row, 15).Value = Range("M12:M13").Value Sheets("スケジュール").Cells(row, 16).Value = Range("M14:M15").Value Sheets("スケジュール").Cells(row, 17).Value = Range("M16:M17").Value Sheets("スケジュール").Cells(row, 18).Value = Range("M18:M19").Value Sheets("スケジュール").Cells(row, 19).Value = Range("M20:M21").Value Sheets("スケジュール").Cells(row, 20).Value = Range("M22:M23").Value Sheets("スケジュール").Cells(row, 21).Value = Range("M24:M25").Value Sheets("スケジュール").Cells(row, 22).Value = Range("S6:S7").Value Sheets("スケジュール").Cells(row, 23).Value = Range("S8:S9").Value Sheets("スケジュール").Cells(row, 24).Value = Range("S10:S11").Value Sheets("スケジュール").Cells(row, 25).Value = Range("S12:S13").Value Sheets("スケジュール").Cells(row, 26).Value = Range("S14:S15").Value Sheets("スケジュール").Cells(row, 27).Value = Range("S16:S17").Value Sheets("スケジュール").Cells(row, 28).Value = Range("S18:S19").Value Sheets("スケジュール").Cells(row, 29).Value = Range("S20:S21").Value Sheets("スケジュール").Cells(row, 30).Value = Range("S22:S23").Value Sheets("スケジュール").Cells(row, 31).Value = Range("S24:S25").Value Sheets("スケジュール").Cells(row, 32).Value = Range("S26:S27").Value Range("Q1").Select End Sub としています。この時、移行するセル内の文字数が指定文字数を超えると、移行した先のセルの書式設定を「折り返して全体を表示する」に設定変更をしたいですのですが、その方法についてご教授いただけないでしょうか？因みに現在の設定は、「縮小して全体を表示する」としています。
エクセルVBA　ワークシート関数の使用について

エクセル2003VBA　ワークシート関数の使用についての質問ですよろしくお願いします。４桁の数字を、千の位・百の位・十の位・一の位に分解する関数ですが例えば A1に４桁の数字があり、B1に千の位を表示する場合ですがワークシート関数の場合 B1=MOD(INT($A$1/1000),10)　となりますが VBAにてそのまま使用し Range("B1").value=Application.WorksheetFunction.MOD(INT(Range("A1")/1000),10)とするとエラーになります。エラーになる原因は、いろいろ調べたら分かったのですがこの様に、一発でB1に計算結果を入れたいのですが、どうしたらよろしいでしょうか現在は、 Range("C1").Formula = "=MOD(INT(A1/1000),10)" Range("B1").value=Range("C1").value 一旦、C1に置き換えてから行っています。よろしくお願いします
日付セルをVBAのVLOOKUPで見つけられません

　今日は、質問させていただきます。どうぞよろしくお願いいたします。　環境：Excel2010＋Win7 でございます。　今、A列の日時データの中から、特定の日時のセルの行を取得しようといたしまして、下記のようにコーディングいたしました。が何故か WorksheetFunction.CountIfでは見つかっているのですが WorksheetFunction.VLookupではエラーが帰ってまいります。【A列のデータ】（ユーザ定義で「yyyy/mm/dd hh:mm:ss.000」としております。） 2015/05/16 22:00:00.002 2015/05/16 22:00:00.182 2015/05/16 22:00:00.342 　　　　：　　　　：【VBA】 Sub test() 　Dim WS_DATA As Worksheet 　Set WS_DATA = ThisWorkbook.Worksheets("Sheet1") 　With WS_DATA 　　str時間 = "2015/05/16 22:00:00.002" 　　If WorksheetFunction.CountIf(.Range("A:A"), str時間) > 0 Then 　　　MsgBox (Application.WorksheetFunction.VLookup(str時間, .Range("A:A"), 1, False))　'←ここでエラーになります　　Else 　MsgBox str時間 & "がリストに存在しません。" 　　End If 　End With End Sub 【実行結果】　コード中に記しましたエラー箇所で、「実行時エラー1004 　 WorksheetFunctionクラスのVlookupプロパティーを取得できません」となります。検索範囲内に見つからない場合のエラーのようでございます。　あとVBAに日時 = Format(str時間, "yyyy/mm/dd hh:mm:ss.000") を追記して、この「日時」を探してみましたが、同じ結果になりました。。。（CountIfでは見つかっていますが、Vlookupではエラーになります。）　データが大量にありますので高速に検索出来る方法を探しておりますが（＝おそらく、VLookUpを使うか、もしくはA列をVariant型に入れて検索する？）、何か良い方法はないものでございましょうか？　もしお詳しい方がいらっしゃいましたら，是非アドバイスいただきたく何卒よろしくお願いいたします。
VBA　Match関数の使い方について

お世話になりますご教示頂けたら幸いですシート結果セルE4の値を検索してシート結果G4の値を検索行のB列に値を転記したいです下記のように書くとMatch関数行でエラーが出てしまいますどの様にすればいいのでしょうか？お手数おかけしますが　何卒よろしくお願いいたします With Sheets(Worksheets("結果").Range("A4").Value) WorksheetFunction.Match(Worksheets("結果").Range("E4").Value, Range("A1:A1000"), 0).Offset(3) = _ Worksheets("結果").Range("A4").Offset(2).Value End With
関数で可視セルのデータ個数カウント

Excel2002を使用しています。オートフィルタで抽出したデータの個数を関数でカウントしたいのですが、可視セルのみをカウント出来る関数はあるのでしょうか？例えば　　Ａ 1　件数 2　　2 3　　1 4　　3 5　　1 6　関数Ａ６セルに何らかの関数を入れておき、Ａ列のオートフィルタを使って、1を抽出した時はＡ６に”２” ３を抽出した時はＡ６に”1”を表示させたいのです。このように、可視セルのデータ個数のみをカウントする関数はありますでしょうか？フィルタを使わずにCOUNTIF関数でカウントする方法、また、可視セルをコピー貼り付け後カウントする方法は避け、あくまでフィルタで抽出したデータの個数を瞬時にカウントしたいのです。ご教授宜しくお願いします。
エクセル2013 セル内の ( から右側を削除

A列のセルにある文字列の中に ( が存在したら (　から右側を削除して左側だけをA列に表示したいのですが、 ( が存在するセルと存在しないセルがあります。下記コードを現在使用していますが ( が存在しないとエラーになってしまうためエラーを回避するコードを教えてください。宜しくお願い致します。 lastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To lastRow r = Application.WorksheetFunction.Search("(", Range("A" & i), 1) k = Left(Range("A" & i).Value, r - 1) Range("A" & i).Value = k Next
VBA　WorksheetFunction.VLookupとoffsetプロパティー

エクセル２００２使用です。 VBAの記述で、WorksheetFunction.VLookupを使って求めた値の入っているセルの列方向に一つ下の値を取得したいのですが・・・・ range("A1").Value =WorksheetFunction.VLookup( range("B1").Value, Range("A3:C10"), 3, 1) 例えば上記で得た値がC4セルにあるのであれば、C5セルの値を取得したいのです。 offset（０，１）プロパティーをどこにおけば良いのか良くわかりません。どうかよろしくお願いします。
セルの値でなくセルの関数を参照したい

次のコードでセルI13の値を入力できましたが、 '---------------------- 'Dim i As Integer 'For i = 2 To Worksheets.Count - 6 'With Worksheets(i) '.Range("I13") = Worksheets(1).Range("I13").Value 'End With 'Next セルの値でなく関数を入力しようとして次のコードに修正したらエラーになりました。どこがいけないのでしょうか。 Dim i As Integer For i = 2 To Worksheets.Count - 6 With Worksheets(i) .Range("I13").Formula = "=" & Worksheets(1).Name & "!I13" End With Next
EXCEL VBA Worksheet_Chang

お世話になります。 EXCEL VBAで以下の処理をしています。 C6の内容に応じて、セルに式を設定するだけなのですがこのシートの全然関係ないセルで[Delete]キーを押下した際に実行時エラー　13 型が一致しませんというエラーが発生します。どういう理由でエラーとなるのでしょうか？また、どのような対処をすればいいでしょうか？以下、実際のコードです Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("C6") Then If Range("C6").Value = "する" Then Range("I11").Formula = "=C7" Range("I12").Formula = "=C7" Range("I13").Formula = "=C7" Range("I14").Formula = "=C7" Range("J11").Formula = "=C8" Range("J12").Formula = "=C8" Range("J13").Formula = "=C8" Range("J14").Formula = "=C8" Else Range("I11").Formula = "" Range("I12").Formula = "" Range("I13").Formula = "" Range("I14").Formula = "" Range("J11").Formula = "" Range("J12").Formula = "" Range("J13").Formula = "" Range("J14").Formula = "" End If Else End If End Sub
VBA 計算結果を数値ではなく、数式で表示したい。

配合表から配合比率を計算するVBAを組みたいのですが、実際の数値ではなく計算式を表示したいです。こちらが自分で記入したコードです。 Q列とAA列とAB列をかけて、100で2回割った結果をAC列に表示します。同じ行にすべての数値が記入されないので、AB列からそれぞれ必要な列の数値を取得しています。 Sub 配合比率仮() Dim i As Integer Dim AB Dim Q Dim AA Range("AB3").Select For i = 1 To 500 If ActiveCell.Value = "" Then 　　　 '空白の場合下のセルへ ActiveCell.Offset(1, 0).Select Else '配合割合の数値がある場合 AB = ActiveCell.Value 　　　　　　　 'アクティブセルの数値の取得 Q = ActiveCell.Offset(0, -11).End(xlUp).Value 　　　　　　 '重量比率を取得 AA = ActiveCell.Offset(0, -1).End(xlUp).Value 　　　　　　 '配合割合の左列を取得 ActiveCell.Offset(0, 1) = s * t / 100 * u / 100 　　　　　　'製品の配合比率を計算（ここを数式にしたいです） ActiveCell.Offset(1, 0).Select 　　　　　　'下のセルへ End If Next i End Sub 上記コードでは数値が表示されます。数式で結果を表示させる方法を教えてください。Formula/FormulaR1C1プロパティを使うと思ったのですが、うまく動くコードが書けませんでした。初心者に毛が生えたようなもので上記コードもなっていないものかとは思うのですが、どうぞお力を貸してください。
Excel VBA Rangeについて

下記のコードは、あるテキストに掲載されていたコードです。 D5に番号を入力すると、F5に文字が表示されるというようなコードです。下記コードのRange("顧客コード")とは何を意味するのでしょうか？ Worksheets("顧客")の意味は分かりますが、私の知識ではRange("　")の中に入るのは、A1などしか分かりません。よろしくお願いします。 Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim r As Integer, myRange As Range Set myRange = Worksheets("顧客").Range("顧客コード") With Target '変更されたセルがD5だったら If .Row = 5 And .Column = 4 Then '顧客コードの位置を取得 r = Application.WorksheetFunction _ .Match(Target.Value, myRange, 0) 'セルに顧客名を表示 Range("F5") = Worksheets("顧客").Range("B1").Offset(r - 1).Value End If End With End Sub
可視セルを対象としたcountifができるでしょうか?

オートフィルターで表示してある所だけを対象としてcountifで対象値の数を出したいのでのですができますでしょうか? Sub countif() Range("C1") = Application.WorksheetFunction.countif(Range("A:A").SpecialCells(xlCellTypeVisible), Range("B1")) End Sub イメージはこんな感じなのですがよろしくお願いします。
EXCELVBAの Countifについて

A列のA2から値が入力されている最終セルまでを一気に範囲選択して、データの個数を数えたいのですが、上手くいきません。ご指導をよろしくお願いします。 Range("D1") = WorksheetFunction.countif(Sheets("1").Range(Cells(2, 1), Cells(2, 1).End(xlUp)), "001")
エクセルVBAについて

こんにちわ！今、エクセルでAシートの入力した項目をBのシートへデーターが入力できるようなシステムを以下のようにくみました。そこでBシートにデーターが入力されるのですが２０行まで入力すると入力できないようにしたいのですが、なかなか上手くいきません。 A1からF20まで書式のロックを外しそれ以外のセルは保護をかけたのですがその状態でVBAを使って２０行以上入力できませんという感じのエラー表示をしたいのですが、どうすればいいでしょうか？ VBAは初心者ですが宜しくお願いします。 Private Sub CommandButton1_Click() Dim row As Integer row = WorksheetFunction.CountA(Sheets("date").Columns(1)) + 1 Sheets("date").Cells(row, 1).Value = Range("B2").Value row = WorksheetFunction.CountA(Sheets("date").Columns(2)) + 1 Sheets("date").Cells(row, 2).Value = Range("B3").Value row = WorksheetFunction.CountA(Sheets("date").Columns(3)) + 1 Sheets("date").Cells(row, 3).Value = Range("B4").Value row = WorksheetFunction.CountA(Sheets("date").Columns(4)) + 1 Sheets("date").Cells(row, 4).Value = Range("B5").Value row = WorksheetFunction.CountA(Sheets("date").Columns(5)) + 1 Sheets("date").Cells(row, 5).Value = Range("B6").Value row = WorksheetFunction.CountA(Sheets("date").Columns(6)) + 1 Sheets("date").Cells(row, 6).Value = Range("B7").Value Sheets("統制入力").Select Range("B17").Select ActiveWindow.SmallScroll Down:=-9 Range("B3:B7").Select Selection.ClearContents Range("B1").Select End Sub
エクセル：countif関数について

A1からG1まで次のように入力されているとします。い　　ろ　　に　　い　　あ　　て　　うこの場合H1にA1からG1のセルの中から「あ」が入力されているセルの個数を表示させるには =countif(A1:G1,"あ") と入力するのですが、「あ」と「い」が入力されているセルの個数の合計は =countif(A1:G1,"あ")+countif(A1:G1,"い") としています。しかし、この程度であればいいのですが、入力されている文字の種類を多くすると下のようにとんでもなく長くなってしまいます。 =countif(A1:G1,"あ")+countif(A1:G1,"い")+countif(A1:G1,"う")+countif(A1:G1,"え")・・・・・関数式がもっと単純になる方法をご存知の方がいらっしゃいましたらよろしくご教授ください。

ＶＢＡでセルに公式をいれたい！

質問者が選んだベストアンサー

お礼 2005/10/28 21:58

関連するQ&A

VBAで文字と数値のセルを計算したい

VBA ワークシート関数のエラー

[Excel97]VBA:セルに入っている数式を別のシートのセルに文字列としてセットする

【エクセル】離れたセルのCOUNTIF関数

ExcelのVBAでお聞きします。

VBAについて教えて下さい

エクセルVBA　ワークシート関数の使用について

日付セルをVBAのVLOOKUPで見つけられません

VBA　Match関数の使い方について

関数で可視セルのデータ個数カウント

エクセル2013 セル内の ( から右側を削除

VBA　WorksheetFunction.VLookupとoffsetプロパティー

セルの値でなくセルの関数を参照したい

EXCEL VBA Worksheet_Chang

VBA 計算結果を数値ではなく、数式で表示したい。

Excel VBA Rangeについて

可視セルを対象としたcountifができるでしょうか?

EXCELVBAの Countifについて

エクセルVBAについて

エクセル：countif関数について

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

ＶＢＡでセルに公式をいれたい！

質問者が選んだベストアンサー

お礼 2005/10/28 21:58

関連するQ&A

VBAで文字と数値のセルを計算したい

VBA ワークシート関数のエラー

[Excel97]VBA:セルに入っている数式を別のシートのセルに文字列としてセットする

【エクセル】離れたセルのCOUNTIF関数

ExcelのVBAでお聞きします。

VBAについて教えて下さい

エクセルVBA ワークシート関数の使用について

日付セルをVBAのVLOOKUPで見つけられません

VBA Match関数の使い方について

関数で可視セルのデータ個数カウント

エクセル2013 セル内の ( から右側を削除

VBA WorksheetFunction.VLookupとoffsetプロパティー

セルの値でなくセルの関数を参照したい

EXCEL VBA Worksheet_Chang

VBA 計算結果を数値ではなく、数式で表示したい。

Excel VBA Rangeについて

可視セルを対象としたcountifができるでしょうか?

EXCELVBAの Countifについて

エクセルVBAについて

エクセル：countif関数について

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセルVBA　ワークシート関数の使用について

VBA　Match関数の使い方について

VBA　WorksheetFunction.VLookupとoffsetプロパティー

カテゴリ
一覧

専門家に質問してみよう
専門家登録