• 締切済み

EXCEL(VBA）について質問です。

EXCEL（VBA)について質問です。 S7列に入った数字をS6列（TODAY関数） の日付に対してのT6～の日付にコマンドボタンを押すと反映する方法を行いたいです。 また各日にちに反映した数字は保存しておくようにしたいです。 以上　よろしくお願い致します。

画像を拡大する

みんなの回答

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.2

次のようなマクロにすればよいでしょう。 Private Sub CommandButton1_Click() Dim c As Integer Dim n As Integer c = WorksheetFunction.Match(Range("S6"), Range("T6:AX6"), 0) For n = 7 To 15 Cells(n, 19 + c) = Cells(n, 19).Value Next End Sub

すると、全ての回答が全文表示されます。
  • ctmogawa
  • ベストアンサー率54% (6/11)
回答No.1

質問の中で主語（とうか目的）がかなり省略されている気がします。 技術的には難しくなさそうなので、やりたい手順を細かく書けばレスがつくと思います。

yu-ssk
質問者

補足

S7～S15の値を各日付の７～１７セルにワンクリックで反映をおこないたいです。

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • EXCEL(VBA）について

    EXCEL（VBA)について質問です。 S7～S15に入った値（sumifで引っ張っています）をS6の日付に対してのT6～の日付にたいして T7：Y15の欄にボタンなどで反映をさせたいです。 また反映後は各セルにそのまま値が残るような形にしたいです。 以上、よろしくお願い致します。

  • エクセル　VBA

    最終行から順番に下へ同列で入力するＶＢＡを教えて下さい。 ＥＸＣＥＬのＶＢＡで教えて下さい。 シート1のＡ列にはB列が入力されると自動入力されるNo.があり、C～G列もB列が入力されると自動入力されます。 B列には日付が、H列には３～4桁の数字が入力したいのですが、 入力行は必ず最下行のセルB、Gな為、VBAでフォームを作成し、 入力実行ボタンを押すことにより、最下行のセルB、Gに反映されるように したいです。 又、上記入力後に、シート2のH～N列をコピーして、シート3のA～G列に値のみの貼り付けを行い保存した後、シート3のA～G列をコピーして ｃｓｖファイルを作成して保存したいです。 一連の流れを、フォームの入力実行ボタンを押すことで実行したいのですができるのでしょうか？ 宜しく御願い致します。

  • エクセルＶＢＡの質問です

    sample.xlsがあり内容は下記のように Ａ列に名前、Ｂ列に数字が入り、行数は一定でありません 田中一郎 3 鈴木健一 5 佐藤太郎 8 田中一郎 5 田中一郎 2 佐藤太郎 7 鈴木健一 3 佐藤太郎 9 鈴木健一 54 佐藤太郎 8 田中一郎 9 このエクセルシートにコマンドボタンを付け、ＶＢＡでコマンドボタンを押した場合 指定したエクセルファイル”kekka.xls”に 田中一郎 19 鈴木健一 62 佐藤太郎 32 と言うように、名前別でその氏名の横の数字の合計を表示させたいと考えています。 何卒お知恵をお貸しください、お願いします。

  • エクセルＶＢＡにつきまして

    詳しい方ご教示ください。 エクセルのセルに、数字で1220と入っていて、 それを日付の2011/2/20に変換したいのですが、ＶＢＡ必要でしょうか。 それとも何か便利な関数ありますでしょうか？ 詳しい方、よろしくお願い致します。

  • エクセルの日付について、教えてください。

    エクセルの日付について、お伺いしたいのですが、 ユーザーホームにて、テキストボックスを三つ作り、 その、おのおのに、任意の数字をいれて、ユーザーホームのコマンドボタンを押すと、その三つの数字を合わせてできた数字を日付として、シートに表示したいのですが、コマンドボタンの、ＶＢＡはどのように記述すればいいのか、教えていただけませんか？ 例　 テキストボックス1←2007 テキストボックス1←09（※09は9でもかまいません） テキストボックス1←05 コマンドボタンを押す。 シート→2007/09/05（日付として認識してほしい。） 解りにくいかも知れませんがよろしくお願いいたします。

  • excel vba 検索の方法について

    excel vba 検索の方法について sheet1とsheet2があり sheet1のA列に10列(全て8桁の数字)文字が並んでいます。 sheet2のA列には1000列(全て8桁の数字)文字が並んでいます。 sheet1のA列とsheet2のA列で同じ文字がある場合 sheet2のA列の同じ文字の隣のsheet2のB列に◎がつくような vbaが書きたいです。 A列の文字は消したり、文字を変えたりします。 コマンドボタンに書いて、ボタンを押せば B列に◎がつくようにしたいです。 ご教授お願いします。

  • エクセルVBAで mod関数

    はじめまして。 エクセルVBA初心者のも社会人です。 mod関数を使用して、 コマンドボタンを押すたびにコマンド１、コマンド２を繰り返すにはどのようにしたら良いのでしょうか？ mod関数を使用してあまり０，１で行いたいのですがいまいちわかりません。 どなたかご教授お願いいたします。

  • エクセルのコマンドボタンの位置をVBAで指定できませんか？

    エクセルのコマンドボタンの位置をVBAで指定できませんか？ 表にコマンドボタンがかぶらないようにデータのない最終行にコマンドボタンを移動する ＶＢＡを教えていただけませんか？ 最終列に移動するＶＢＡも合わせて教えてください。

  • エクセルのＶＢＡに関する質問です。

    エクセルのＶＢＡに関する質問です。 仮にＡ列にＡ１からＡ１４まで（１２３４１２３１２１２３４５）と入っていて、さらにＢ列にＢ１からＢ１４まで（３８９０６４９３０８７６３９）と入っていたとします。Ａ列の（２）の隣にあるＢ列の数字はそれぞれ（８４０７）になりますよね。 この２のとなりのＢ列の数字を、Ａ列の最初から（１２３４）（１２３）（１２）（１２３４５）と１を区切りとして、Ｃ列に、２に対応していた先ほどの数字を入力したいのです。 つまりＣ列には（８８８８４４４００７７７７７）と入るようにしたいのですが、ＶＢＡド素人の私には解説書を読んでもいい知恵が浮かびません。 どなたか、ご説明か、できればＶＢＡのコピーを取らせていただけないでしょうか？ よろしくお願いいたします。

  • エクセルVBAでの質問です。

    エクセルVBAでの質問です。 以下のようなA列にID、B列、C列にそれぞれIDに対応したデータがあります。 A　　　　 　B　 　　　　C ID 　 　名前　　　　住所 10000 ～ 39999 IDを10000～19999、20000～29999、30000～39999で分けて別シートに もっていこうと思っています。 自分としては、ID左端の数字をLeft関数を使って何とかしようと思っていましたが、 どうしてもうまくいきません。 何かいい方法はないでしょうか。

GEONU PR-500KIの機械不良
このQ&Aのポイント
  • インターネット回線が繋がらず、数分置いたり、初期化および再起動しても状況変わらず繋がらない。
  • ルーターの電源は点灯しており、アラームとPPPのランプは消灯している。
  • 近日の太陽フレアとは無関係だと考えられる。
回答を見る

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する