• ベストアンサー

UWSCにてExcelの値と同じキーを押す

A1のセルに 3 という値が入力されていたら、キーボードの３を押す。 このような動作を実行するためには、どのように書けばよろしいでしょうか？ ご教授、よろしくお願いいたします。

  • bor0n
  • お礼率100% (1/1)
回答 全件
ベストアンサー
Excel = XLOPEN(True) // Excel起動 Msg…

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

  • ベストアンサー
  • neKo_deux
  • ベストアンサー率44% (5541/12319)
回答No.1

Excel = XLOPEN(True) // Excel起動 MsgBox("A1に数値入力してから↓ＯＫ") gdat = XLGETDATA(Excel, "A1") // A1の値取得 メモID = EXEC(GET_SYS_DIR+"\notepad.exe", False) // メモ帳起動 if gdat=3 then kbd(VK_NUMPAD3) // A1の値が3だったら3のキーを送る とか。 入力値が複数あり得るなら、仮想キーコードの対応表を作るか、テキストボックスに入力とかならクリップボード関数使うのが良いかも。

bor0n
質問者

お礼

XLGETDATAは有償版じゃないと使えないコマンドみたいでした。 別の方法を模索してみます。 回答ありがとうございました＾＾

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. フリーウェア・フリーソフト

関連するQ&A

  • エクセルでセルの値が変更されたらマクロを実行

    エクセルで、セルの値が変更されたらマクロを実行したいと考えています。 具体的には、A1のセルに何か値が入力されるか、変更されたら、 作成したマクロを実行したいと考えています。 どうしたらいいのでしょうか。 ご教授ください。 よろしくお願いします。

  • エクセルで2つのセルの値を結合出来ますか？

    例えばセルA１に「123」と値が入力されていて、 セルB1に「456」と入力されているとします。 それを「A1」か「B2」のどちらかのセル、もしくは空いているセル「C1」に「123456」と2つのセルの値を結合することは可能でしょうか？ 何とか週末でデータを作らなくてはならないので困っています。 どなたかエクセルにお詳しい方、ご教授願えたらと思います。 よろしくお願いします。

  • (UWSC)エクセルのセルの値を読み込むには？

    ＵＷＳＣで、エクセルのセルの値を読みこむ方法について 悩んでおります。 Excel = GETACTIVEOLEOBJ("Excel.Application"); val1 = Excel.ActiveSheet.range("A1").value; を使えば、開いているエクセルのＡ１セルにある値を 「val1」に読み込むことができました。 今、A1～A100にある100個のリストを順々に読み込むことを 考えています。おそらくfor文を使って、以下のようにするのかな？ と思っております。 for i=1 to 100 val=○○ next A1～A100の値を順々に読み込むにはどのようにすればいいのでしょうか？

  • UWSCでエクセルの値貼り付け

    UWSC初心者です。事情で、URLの記載ができません・・・。 あるwEBページのテキストボックスに、エクセルのセルの値を貼り付けて実行する処理の自動化を考えています。該当ページを開いている状態で、できれば、インプットボックスで登録する番号を指定（No○～No○までのように）して１件ずつ処理を実行していくようにしたいのです。 またそのページ内には、プルダウンメニューにて選択する箇所があるのですが、セルの値（例えばＤ1）と合致するものを選ぶということは可能なのでしょうか？ データが１０００近くあり今までは手動で登録していましたが、なんとか自動化したいのでよろしくお願いします

  • エクセルで、値が飛んでこないのは？

    エクセルで、シートからシートへ値をとばすように設定しているのに値が入力されません。例：　シートＡのセル１の値をシートＢのセルへ飛ばすとき、Ｂシートのセルの数式は　”＋Ａ!A1”となりますが、A1の値が飛んできません。F2を押してENTERキーを押すと飛んできます。たくさんのシートがあるので、大変です。どうしたらいいですか？

  • エクセル2010,値の選択？

    エクセル2010を使っています。 エクセルを使って、 A1に値(aとおきます)を入力した祭、 A1セルの値　　　　B１セルの値 a<105 　→ 　　　　105 105<a<120 　→　　　 　120 120<a<150 　 → 　 　　150 のように、A1のセルの値の範囲によって、 上のようにB１の値を表示させたいのですが、どうすればいいでしょうか？

  • Excelで一番ゼロに近い値を求めるには

    Excelで一番ゼロに近い値（正負）を求めるにはどうしたらよいでしょうか？ 希望は、条件書式で設定したいのです。 もし駄目なら列を挿入して計算式用の列を作っての方法をご教授ください。 例えば、 Ａ１　　０ Ａ５　　0.5 Ａ６　　-0.3 Ａ７　　0.1 Ａ８　　　　（空白） Ａ９　　-0.12 セルＡ５からＡ９の間で一番ゼロに近い値を求めたいです。 その時にセルＡ８の空白は考えないようにしたいです。 条件書式か計算式でできるでしょうか？ どうぞよろしくお願いいたします。

  • エクセルにてA1に１と入力したらB1の値を表示

    エクセル初心者です セルのA1に数字の１を入力するとB1の値が表示、A2に数字の2を入力するとB2の値が表示されるようなものを作りたいのですが・・・ どなたかご教授お願いします 例えば、A1に１を入れるとB1の値"北海道" A2に２を入れるとB2の値"青森"といった感じでです 宜しくお願いいたします

  • Excelでの複数シートへの値の入力

    おはようございます。 Excel2000で複数のシートを選択した状態でセルに値を入力すると、他のシートの同じセルに内容が入力されますよね。 この機能の名称はわかりませんが・・・(^_^;) これをヒントに「フォーム内にあるTextBoxに入力された値を各シートのセルに入力しよう」というVBAのソースを作ってみましたが、 実行してみると選択されている1枚目のシートにしか値が入力されません。 汚いソースをみなさんに見せるのは恥ずかしいのですが、 是非実現したいので、どこが間違っているか指摘をいただけると幸いです。 やろうとしていること： フォームのテキストボックスに値を入力し、 コマンドボタンを押すとシートを複数枚選択し、 各シートのセル”A1”（AからDまでを結合）に値を入力する。 ******************************************* Private Sub CommandButton1_Click() 'テキストボックスの値取得と、店名の合成 Dim myTmei As String Dim myTmei2 As String myTmei = TextBox1.Text myTmei2 = "店名" & myTmei 'シートの選択 Sheets(Array(5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46)).Select '値の入力 Range("A1").Select Range("A1").Value = myTmei2 End Sub ****************************************** 結果を見ると、シート自体は選択できているのですが、 その中でも「アクティブになっている(?)シート（1枚目）のセルだけに値を入力しなさいよ。」と書いてしまったようで、 「全てのシートのセル”A1”に入力しなさい。」という部分が書けていないのだと思うのです。 Selectだけじゃ、ダメなのかな・・・ どうかよろしくお願いします。

  • EXCELでワークシートを検索して値を返したい。

    こんばんは。 いろいろ調べてみたのですが、わからなかったので質問させていただきます。 EXCELで「111」「222」「333」「444」「555」という五つのワークシート名を持つブックがあります。 「111」のシートのセル"A1"に,"222"と入力すると、隣のセル"A2"にシート「222」の特定のセルの値（例えばC20のセルの値）を返し、セル"A1"に「555」と入力するとセル"A2"にシート「555」の特定のセルの値を返すといったものを作るには、どうしたらいいんでしょうか？ できれば関数だけで作りたいのですが、もしむりならマクロではどういうコードになるのでしょうか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する