hige_082のプロフィール

シート上に Ａ学科　相川　秋山・・・鈴木・・・ Ｂ学科　伊藤　・・・鈴木 ・ ・ ・ と書いてあります。 Sub Find_01() 　Dim c As Object 　Dim myKey As String, fAddress As String 　　　myKey = "鈴木" 　　　With Worksheets(1).Range("a1:a30") 　　　　　 Set c = .Find(What:=myKey, LookIn:=xlValues, lookat:=xlWhole, _ 　　　　　　　　　　　　　　SearchOrder:=xlByColumns, MatchByte:=False) 　　　　　If Not c Is Nothing Then 　　　　　　　fAddress = c.Address 　　　　　　　Do 　　　　　　　　　c.Interior.ColorIndex = 3 　　　　　　　　　Set c = .FindNexｔ(c) 　　　　　　　　　　　If c.Address = fAddress Then Exit Do 　　　　　　　Loop 　　　　　End If 　　　End With End Sub このプログラムで「鈴木」と書いてあるセルに色がつくのですが 「鈴木」という部分にはマークをせず、学科の部分をマーク するにはどうすればよいのでしょうか？

ＶＢＡでマクロを走らせた日時をＳｈｅｅｔ２のＡセルに入力する はじめまして。 現在、ファイルを整理するマクロを使っています。 そのマクロを使った履歴を残す意味で、 いつマクロを走らせたかすぐにわかるように、 Ｓｈｅｅｔ２のＡのセル（２行目から）に走らせた日時を示したいと思っています。 マクロでの処理が終わったら、 毎回Ｓｈｅｅｔ２に日時が入力されるようにするには、 どんな命令文を追記したらよいのでしょうか。 マクロに関しては知識がなく、 インターネットで調べて、 Sheets("Sheet２").Cells(R, "Ａ").Value = Now というのを追記してみたのですが、 Ｓｈｅｅｔ２に入力はされるものの、 Ａセルの行がとびとびに入力されたり、 整理したファイルの数だけ（複数）入力されてしまいます。 マクロを１回走らせたら１つの日時が入力されるようにしたいです。 Sub ()とEnd Subの間にFor RとNext Rがあり、 作業が繰り返されているようです。 転記ができないため、マクロを示すことができません。 さすがに、これだけの情報では難しいでしょうか。 わかるかたがいらっしゃいましたら、 よろしくおねがいします。

エクセルと条件付き書式について 以下のような表をエクセル2007で2つ作成しました。 内容は全く同じものですが、この二枚を照合して あっているかどうかを確かめたいです。 条件付き書式で処理したいと思います。 もし、違うところがあれば、セルを赤で塗りつぶしわかりやすいようにさらに「×」 を表示したいです。 初心者で申し訳ないですが、教えてください。

UserFormのTextBoxに入力した値を保存する方法がありますか？ 具体的には、UserFormのTextBoxに2010/6/10と入力したときに シートのセルT13に表示されるように以下のマクロを作成しました。 Private Sub CommandButton1_Click() Range("T13").Value = 日付.Value If CloseMode = vbFormControlMenu Then Cancel = True Me.Hide End If End Sub 再度UserFormを開くと前の入力内容があるのですがExcelを保存 して閉じて再度シートを開くと空白になってしまいます。 UserFormを開いたタイミングで出力させたT13の値を返すという ようなマクロにするにはどうしたらよいでしょうか。 初心者なので詳しく教えていただけませんか。

　エクセルに写真を挿入するマクロを組んでいます。 ２００３までは問題なく動作していたマクロが、 ２００７では位置調整がうまく行きません。 　そこでネットで検索して With Selection .Left = Range("C6").Left .Top = Range("C" & rowa).Top End With のように　Selection.Left　を使えば解決するとありましたが、 (1)ＷＩＮ　ＶＩＳＴＡのエクセル２００７では おなじひとつのエクセルファイルの あるシートではコード通りが位置でるのに 違うシートでは縦位置がずれる。 (2)ＷＩＮ　ＸＰのエクセル２００７では すべてのシートで縦位置がずれる。 ただし、ずれの位置は(1)よりは少ない。 といずれのＯＳでも不具合が出ます。 　事情によりエクセル２００７でこのマクロを使用しなければならなくなり 非常に困っております。 どなたか解決方法をご存知の方、よろしくお願いします。 　なお、(2)のＷＩＮ　ＸＰでは、エクセル２００３も入っており、 その中では、全く問題なくマクロが動作しています。 実際のコードは下の通りです。 Sub 写真呼出(koumoku, jpgf, tr As Variant) Dim rowa As String ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = tr　←選択したセルの行ナンバー ActiveSheet.Pictures.Insert(motopath & "写真\" & koumoku & "\" & jpgf & ".JPG").Select Selection.Name = "写真" Selection.ShapeRange.LockAspectRatio = msoTrue '縦横比の固定 Selection.ShapeRange.Height = 480 'Selection.ShapeRange.IncrementLeft 100　←不具合が出たので止めた部分 'Selection.ShapeRange.IncrementTop 40　　←不具合が出たので止めた部分 rowa = tr + 2 With Selection .Left = Range("C6").Left .Top = Range("C" & rowa).Top End With End Sub