- ベストアンサー
VBAで最も近い数値に置き換えを行う方法
n-junの回答
- n-jun
- ベストアンサー率33% (959/2873)
（同じ数値が無い場合は、差が最も小さい数値を選択）。 とは、±で差が少ない値と言う事？ それとも、超えない範囲で一番近い値と言う事？
関連するQ&A
- Excel VBA セルの値を変更後にVBA作動
Excel VBAを活用して、特定のセルの値が変更されたときに、VBA処理を発動させることになりました。 処理といたしましては、C列（３列目）の４行目以下の空白セルに数値を入力するか、セルに入力されている数値を変更した場合にVBAを発動させたいです。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 3 And Target.Row >= 4 Then MsgBox "セルの値が更新されました" End If End Sub 上記のコードを実行してみたところ、３列目（C列）の４行目を選択した段階でVBAが作動してしまいます。 セルの値変更後に作動するようにするには、どう修正すればよろしいでしょうか？
- ベストアンサー
- Visual Basic
- エクセルのVBAのことで
コマンドボタンで「Macro1」というマクロを実行させるVBAは以下だと思いますが。 Private Sub CommandButton1_Click() Call Macro1 End Sub 上記に、Sheet1・Sheet2・Sheet3に対して実行するということを加えると、どんなふうになるでしょうか。
- ベストアンサー
- オフィス系ソフト
- エクセルのＶＢＡ 条件分岐について
エクセルのVBAで、条件分岐プログラムを考えております。 セルA1に入力された数値が、 2.0以下は"B1セルの値をC1セルへコピー 数値が 5.0以上の場合は"B2セルの値をC1セルへコピー それ以外の場合は”対象外”と表示させたいのですが ご教授お願いします。 又、条件分岐後の部分『C1セルへコピー』の部分を"マクロ１を実行" "マクロ２を実行"というように、変える様な事も出来ますでしょうか？ 以上よろしくお願いします。
- ベストアンサー
- 会計ソフト
- エクセルマクロ印刷時にプリンタを指定できますか？
エクセル２００２を使用しています。VBAはまったくわかりません。 マクロの自動登録で印刷を記録すると、通常使うプリンタから 出力されるようですが、LANでプリンタ複数使用可能な環境です ので、いちいち通常使うプリンタを変更するのではなく、マクロ 実行時にプリンタを選択したく思います。 因みに、以下のマクロはSheet1に値を入力し、Sheet1の値をコピー したSheet2を印刷するというマクロです。このマクロのどの部分に コードを付け加えればプリンタをこのマクロ実行時に選択可能でしょうか？ もしくはマクロではプリンタを選択できないのでしょうか？ どうぞよろしくお願いいたします。 ****************************************************************** Sub 印刷() Sheets("Sheet2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Sheet1").Select End Sub *******************************************************************
- ベストアンサー
- オフィス系ソフト
- Excel VBA 選択方法を教えてください。
Excel2002でリスト作成してデータを入力します。A列の最下行を選択して、例えば（A12）から、（H2）まで選択したいのですが、VBAでどのように記述したらよいのでしょうか。 Range("A65536").End(xlUp).Offset(0).Select を使用したVBAを使用したいと思っています。 この選択範囲をコピーして、異なったシートに貼り付けたいのですが、 下から選択して、貼り付けた場合、何か注意することはありますでしょうか。 宜しくお願い致します。 それと、値のみをクリアにして、計算式を残した削除方法ってVBAであるのでしょうか。 あわせて宜しくお願い致します。
- ベストアンサー
- その他（プログラミング・開発）
- EXCEL VBA シート内の特定のセルに値が入…
EXCEL VBA シート内の特定のセルに値が入力された際に処理を実行するプログラム EXCELシート内の特定のセルに値が入力された際に処理を実行するプログラムをEXCEL VBAで作成したいと考えています。 EXCELに計測データを取込み、このデータが設定値以外の場合のみ、トリガーを出す様なイメージで使いたいと思います。 どの様に考えれば良いでしょうか？サンプル等ありましたら紹介ください。 上記質問の”トリガー”について補足します。 あるセルに値が入力されたら、マクロを実行するという風にしたいという意味です。 単純にマクロ実行を手動で行うのでは無く、ある値が判定値以外の場合に他アプリケーションを操作したいという意味です。。
- ベストアンサー
- 開発
- エクセル上のＶＢＡ
当方、ＶＢＡまるっきり初心者です（触りはじめて３日くらい）。 エクセルはある程度理解しているつもりですが… バージョンはエクセル２０００です。 他シートのセルのひとつに入力すれば、 別シートのセルがそれを参照したうえで 値として表示出来るようにならないでしょうか。 今のところ、以下のような状況です。 step01 sheet1のセルＡ１に任意の数値（整数限定です）を入力。 step02 sheet2のセルＡ１に、sheet1のセルＡ１の数値を用いて MOD関数で余りを出す。 step03 sheet2のセルＢ２に以下のＶＢＡによって step02の余りを値として表示。 Private Sub Worksheet_Change(ByVal Target As Range) Range("b2").Value = Range("a1") End Sub これだとsheet1の数字を変えても、 sheetの切替後sheet2のセルＢ２に 表示される値が変わってくれません。 最初の入力（step01の入力）をおこなえば sheet2のセルＢ２まで値が変わってくれるような方法を 教えていただけないでしょうか。 拙い説明で申し訳ありませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル ＶＢＡ 初心者で困っております！
いつもありがとうございます。VBA初心者です。 データベース（sheet2）のデータをセルＡ１（sheet1）の値をオートフィルタ－に反映させて抽出し、 その後、セルＢ１（sheet1）に入力した値と貼り付けた別のシート（sheet3）で数値１×数値２（Ｂ１で入力した値）を掛け算し、数値３に出すのが目的です。 sheet1 セルA１【製品名を入力】例、【製品Ａ】を入力 セルB1【数値を入力】例、５を入力 コマンドボタン１を押すと実行 sheet2（データベース） 製品名 数値1 数値2 数値３ １ 製品C 2 ２ 製品A 2 ３ 製品A 1 ４ 製品B 4 ５ 製品D 3 ６ 製品D 5 sheet3（貼付先） 実行結果 製品名 数値1 数値2 数値３ １ 製品A 2 ５ １０ ２ 製品A 1 ５ ５ 当初、リストボックスを選択出来るようにし、その値を別のシートに貼り付け、演算処理を行うの方法を模索しておりましたが、 shee2のデータベース、Ａ１・Ｂ１（検索値・値）も毎回変わるため、１回ずつの作業を行うように考えなおしたところ、 いきずまってしましました。 時間がないためによろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ(VBA)で指定したセルが変化したときに実行するには？
VBAでsheetの中のworksheet_changeなどでマクロを書くと、そのシー トの中のどのセルを変化させてもマクロが実行されるのですが、これ を、A1とc1とc2が変化したときだけ処理を実行させたいのです。 以下のマクロのどこかを編集すると、そのようなことが出来るのでし ょうか？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) ----実行する内容---- End Sub Private Sub Worksheet_Change(ByVal Target As Range) ----実行する内容---- End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでLOOKUP関数がうまくできません
エクセルVBAでLOOKUP関数がうまくできません。 入力シートと判別用のシートがあり入力シートで入力した品名を検索値 として判別用シートで数値に置き換えた値をLOOKUPで検索したいのですが WorksheetFunctionクラスのVLOOKUPプロパティを取得できませんと 実行時エラーが出ます。検索しましたが修正方法がわかりません。 構文のどこが原因なのか教えてください。 VBA初心者です。よろしくお願いします。 sub test() Dim データ行 As Long Dim データ数 As Long データ行 = Cells(Rows.Count,8).End(xlUp).Row For データ数 = 11 To データ行 Cells(データ数 ,32) = Application.WorksheetFunction.VLookup(cells(データ数,8),Worksheets("判別シート").Range("B11:E110"),5,False) Next データ数 End sub
- ベストアンサー
- その他([技術者向] コンピューター)