• ベストアンサー

マクロにてセルに文字表示

マクロで１つのセルに次の文字を表示したいのですが記述を教えて下さい、 =today()にて年月日続けて「クリックしました。」の表示です、 range("a1").value="=today()" range("b1").value="クリックしました。" この表示を A1 セルに続けて表示したいのですが、 "=today()"と"クリックしました。"を結合したいのです。

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

  • ベストアンサー
回答No.2

Range("a1").Value = Date & "クリックしました。" でもいいと思います。

hoshi7777
質問者

お礼

ありがとございます、助かりました。

その他の回答 (2)

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.3

Sub test01() Worksheets("sheet1").Select Range("a3") = Range("a1") & Range("a2").Value End Sub が答えでしょうか。左辺がどこを望んでおられるのか 不明。Ｍｓｇｂｏｘでも良いのか。 「クリックしました」と言うような定数的文言は、普通はセルに一旦セットしないでリテラル値で＃１＃２のご回答のようにするのでは。敢えて意味があるのかなと思って 上記の形にしました。

hoshi7777
質問者

お礼

有り難うございました、左辺はA1です、勉強になりました。

  • taknt
  • ベストアンサー率19% (1556/7783)
回答No.1

range("a1").value="=today()" range("a1").value=range("a1").value & "クリックしました。" これで どうでしょうか？ 二行目を変えました。

hoshi7777
質問者

お礼

有り難うございました、助かりました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • マクロ"today()"について

    ボタンをクリックしてマクロを実行させます。 マクロの中に　range("a1").value="today()" range("a2").value="クリック済み" と記述しています。その為クリックするとその「日付とクリック済み」が表示されますが後日ソフトを立ち上げるとクリックしないのに日付がその日その日に更新されます。この日付が更新されずにクリックした日付を表示させるためにはどのように記述したらよいでしょうか。

  • エクセルのマクロで結合セルに値を貼り付けたい

    お世話になります。 マクロ初心者で本やネットで色々調べたのですが分からないため 教えていただけますと幸いです。 Sheet1にはB1:B3、B4:B6…と3行縦に結合された表があり、 Sheet2のA列には単独セルに商品の名前が入っております。 膨大な量のため、Sheet2のA列に入っている情報を Sheet1の縦に結合されたセルに一つずつマクロで転記したいと 考えております。 Range("B1:B100").Value = Range("A1:A100").Value のように記載すると、2個飛ばしで入力されてしまうので、 結合されている分飛ばされないで一つずつ転記したいのですが どのようにしたら良いでしょうか。

  • Excelマクロにて文字列連結

    現在Excelのマクロにて文字列の連結を行っているのですが、 繋いだ文字列を改行を付けて連結を行いたいです。 セルとセルの中の文字列を改行を付けて連結するにはどうしたらいいのでしょうか？ 例 A1セル「あああ」 B1セル「いいい」 C1セル「あああ 　　 　　　いいい」 Worksheets(sheet1).Range("C1").Value = Worksheets(sheet1).Range("A1").Value + Worksheets(sheet1).Range("B1").Value をすると 「あああいいい」と1行で表示されてしまいます。 　　　　↑ ここに改行を入れるにはどうしたらいいのでしょうか？ 以上、宜しくお願いします。

  • セルの結合マクロについて

    セルの結合マクロについてご相談させてください。 セルのA2とA3を結合,B2とB3を結合。 セルのA4とA5を結合,B4とB5を結合。 セルのA6とA7を結合,B6とB7を結合。 というように、A2,A4,A6・・・、B2,B4,B6・・・にデータがあれば、結合するマクロを作成したいです（データがなければそこまでのデータを結合）。 例えば、A2とA3両方にデータがあった場合、A2の内容で表示されるようにしたいです（B2とB3についても同様）。 複雑でどのようにマクロを書けばよいのか困っていました。 恐れ入ります、どのようにすれば良いのかわかる方がいましたら教えていただけないでしょうか。

  • 結合されているセル行の中から１行だけを非表示にするマクロ

    結合されているセル行の中の１行だけを非表示したいと思っています。 例えばA1:A5が結合していて、B1:E5までは一切結合されていない状態で、３行目だけを非表示にしたいのですが、 Rows("3:3").Select Selection.EntireRow.Hidden = True とすると、１～５行目まで全てが非表示になります。 マクロを自動記録すると Rows("3:3").Select Range("B3").Activate Selection.EntireRow.Hidden = True となるのですが、この通りにコーディングしても、やはり１～５行目が非表示になります。 １行だけを非表示にしたい場合は、どのように記述すれば良いのでしょうか？ よろしくお願いします。

  • マクロについて

    マクロでデータをクリアするコマンドボタンを作りました。でも、計算の答えがでなくなりました。 例えば、 A1：A10までの情報はクリアになります。 答えの“=SUM(A1:A10)”というCセルだけが前の情報のままになります。（Cセルはマクロに登録していません。） 全くのど素人で、マクロの登録も他の書類からコピーしてセルだけ変えました。 マクロの内容は、下記の通りです。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 ' Sub allclear() Application.Calculation = xlManual Range("D4").Value = "" Range("B6").Value = "" Range("B8").Value = "" Range("E11").Value = "" Range("E12").Value = "" Range("F11").Value = "" Range("B21").Value = "" Range("B23").Value = "" Range("B25").Value = "" Range("B27").Value = "" Range("B29").Value = "" Range("P5:P9").Value = "" Range("Q5:Q9").Value = "" Range("P15:P19").Value = "" Range("Q15:Q19").Value = "" End Sub よろしくおねがいします。（_ _）

  • エクセル（マクロ）置換　結合されたセルに対しての置換

    こんばんは、 今置換用のマクロをこちらで検索して使ってましたが 使用するエクセルのフォーマットが 1セルに入力されてるのではなく、３つのセルを結合されている物に入力されているもので 下記のマクロだと、正しく置換されておりません。 置換変換用のシートと、置換したいシートがある状態で、 下記のマクロだとなぜ結合されたセル内の文字は置換えできないのでしょうか？ 結合されてないセルですと、置換はちゃんとされております。 Sub 置換() With ThisWorkbook If ActiveSheet Is .Worksheets(1) Then Exit Sub For i = 1 To .Worksheets(1).Range("A65536").End(xlUp).Row ActiveSheet.Cells.Replace _ What:=.Worksheets(1).Range("A" & i).Value, _ Replacement:=.Worksheets(1).Range("B" & i).Value, _ LookAt:=xlPart, SearchOrder:=xlByColumns Next End With End Sub 明日の昼までに5000個のファイルを置換えするので これが出来ればなぁと思っております。 大変お手数ですが教えて頂けると助かります では、よろしくお願いいたします。

  • セル解除後、各行に値をコピーし結合するマクロ

    A1からC3のセルが結合しており、 そのセル結合を解除すると、A列のみ値がコピーされる。 コピーした後、各行ごとにセルを結合していく…… という処理をしたいと思い、 調べて下記のマクロまでなんとかこぎつけました。 Sub セル結合() Dim date1 As Variant Dim range1 As Range Application.DisplayAlerts = False For Each range1 In Selection.Rows If range1(1).MergeCells = False Then range1(1).Merge Else date1 = Selection.Rows(1).Value With range1 .UnMerge .WrapText = False .ShrinkToFit = False Selection.Value = date1 End With End If Next range1 End Sub ※実行範囲に関しては、 　任意選択をした範囲にしたいため、 　range(1)にて処理を行いました。 困っているのは、上記のマクロを実行すると、 最初の行のみ結合できないということ。 もうひとつが、 セル結合をしない時に値を左端にコピーすると、 文字が自動縮小されてしまいます。 縮小しないようにするには、 どのような処理を入れたら良いでしょうか？ お力添え頂けますと幸いです。 よろしくおねがいします。

  • マクロで文字だけ貼り付けるには？

    コピーしてあるＨＰ上の文字列をA6セルに貼り付けたいんですが、クリップボードには書式情報も入っている様で、下記のマクロだと後ろのセルが結合されたり色がついたりします。 テキストだけ張り付けるにはどうすれば良いのでしょうか？ Sub ネットから貼付() Range("A6").PasteSpecial End Sub

  • マクロでシリアル値を文字列にしたい。

    マクロでシリアル値を文字列にしたい。 すみません、マクロでシリアル値を文字列に変えたいと思っています。 Range("A1").Value = Format(Now,"yyyy年") とすれば現在の日付のデーターが文字列になるのですが、これを例えば、B2にシリアル値で日付が入力されていてA1文字列に置き換える方法はあるのでしょうか？出来れば記述の仕方を教えていただきたいのですが宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する