エクセルマクロ：特定のセルをダブルクリックすると画像ファイルを参照し、そのセルの大きさに合わせて画像を貼りつける方法| OKWAVE

エクセルVisualBasicマクロ詳しい方

写真を特定のセルに貼り付けるのにダブルクリックでマイドキュメントがでるようにし、写真を貼り付けるとサイズを枠に調節するようにマクロをつくりました。問題なく出来るようになったのですが、ダブルクリックでマイドキュメントではなく、別の場所を指定するにはどこをどう変えればいいですか？現状は以下の通りです。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Union(Range("A1:A21"))) Is Nothing Then Exit Sub Cancel = True Dim myPic Dim myRange As Range '画像を配置するセル範囲 Dim rX As Double, rY As Double myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif") If VarType(myPic) = vbBoolean Then Exit Sub Set myRange = Target 'このセル範囲に収まるように画像を縮小する Application.ScreenUpdating = False With ActiveSheet.Pictures.Insert(myPic).ShapeRange rX = myRange.Width / .Width rY = myRange.Height / .Height If rX > rY Then .Height = .Height * rY Else .Width = .Width * rX End If .Left = .Left + (myRange.Width - .Width) / 2 '写真を横方向の中央に配置 .Top = .Top + (myRange.Height - .Height) / 2 '写真を縦方向に中央に配置 End With Application.ScreenUpdating = True Cancel = True End Sub

エクセル貼付けの画像がメール添付で表示されません

下記のようなVBA（ネット公開されているものを利用させていただいています）を使用し、エクセルに画像を貼り付けています。画像を貼り付けたエクセルを保存後、メールに添付すると貼り付けた画像が表示されなくなります。ファイルの容量も少なく、エクセルに取り込んだ画像は、リンク貼り付けになっているのかと考えていますが、取り込んだ画像を埋め込むにはどのようにすればいいでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim myPic Dim myRange As Range '画像を配置するセル範囲 Dim rX As Double, rY As Double myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif") If VarType(myPic) = vbBoolean Then Exit Sub Set myRange = Target 'このセル範囲に収まるように画像を縮小する Application.ScreenUpdating = False With ActiveSheet.Pictures.Insert(myPic).ShapeRange rX = myRange.Width / .Width rY = myRange.Height / .Height If rX > rY Then .Height = .Height * rY Else .Width = .Width * rX End If .Left = .Left + (myRange.Width - .Width) / 2 '写真を横方向の中央に配置 .Top = .Top + (myRange.Height - .Height) / 2 '写真を縦方向に中央に配置 End With Application.ScreenUpdating = True Cancel = True End Sub

Excelセルのサイズに合わせて画像を表示させたい

Excelのセルの中に、画像ファイル(撮影された写真)のサイズを挿入するときに、セルのサイズに合わせて画像を表示させたいと考え、インターネット上でVBの下記のマクロを探してみました。　セルをダブルクリックすると、画像ファイルの読み出しが行なわれるのですが、セルのサイズにピッタリと合わず、「列」にわずかに隙間が空いてしまいます・・・。　セルのサイズに合わせる為にはどうすればよいでしょうか？　もう一つ質問させていただきたいのですが、一部の画像は読み出しだ際に、縦にして自動的に表示させたいです。 (これまではExcelの「図の書式設定」で-90度と手入力していました) 　何卒宜しくお願い致します。　　Excel2003 　Visual Basic 6.5 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Dim myPic Dim myRange As Range '画像を配置するセル範囲 Dim rX As Double, rY As Double myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif") If VarType(myPic) = vbBoolean Then Exit Sub Set myRange = Target 'このセル範囲に収まるように画像を縮小する Application.ScreenUpdating = False With ActiveSheet.Pictures.Insert(myPic).ShapeRange rX = myRange.Width / .Width rY = myRange.Height / .Height If rX > rY Then .Height = .Height * rY Else .Width = .Width * rX End If .Left = .Left + (myRange.Width - .Width) / 2 '写真を横方向の中央に配置 .Top = .Top + (myRange.Height - .Height) / 2 '写真を縦方向に中央に配置 End With Application.ScreenUpdating = True Cancel = True End Sub

エクセル２０１０　挿入画像の圧縮　VBA

お世話になります。エクセル２０１０を使用しています。写真帳を作成しダブルクリックすれば写真が挿入されるようVBAにて作成しましたが、写真の解像度が高いので挿入するたびに画像が圧縮するようにVBAを組みたいのですが、どなたかご教示ください。具体的には一同挿入した画像を一度コピーし、再度貼り付ける・・・という動作かなと考えているのですが、マクロの記憶では記録されず・・・困っております。現在の写真帳の構文は Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Dim myF As Variant Dim mySp As Object Dim myAD1 As String Dim myAD2 As String Dim myHH As Double Dim myWW As Double Dim myHH2 As Double Dim myWW2 As Double '挿入のセルを指定 If Application.Intersect(Target, Range("d6,d23,d40")) Is Nothing Then Exit Sub Cancel = True Application.ScreenUpdating = False End If '写真挿入 Next myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif") If myPic = False Then MsgBox "画像を選択してください" Exit Sub End If Set myRange = Target 'このセル範囲に収まるように画像を縮小する Application.ScreenUpdating = False With ActiveSheet.Shapes.AddPicture(myPic, False, True, myRange.Left, myRange.Top, myRange.Width, myRange.Height) rX = 0.85 rY = 1 If rX > rY Then .Height = .Height * rY Else .Width = .Width * rX End If .Left = .Left + (myRange.Width - .Width) / 2 '写真を横方向の中央に配置 .Top = .Top + (myRange.Height - .Height) / 2 '写真を縦方向に中央に配置 .ZOrder msoSendToBack '最背面へ移動 End With Application.ScreenUpdating = True Cancel = True End Sub 上記に.CUT　などを書き足せばよいのか・・・ →エラーばかりで動かなったので。。　こちらに質問することにしました。どうぞ、よろしくお願いします。

エクセルに写真を挿入するVBA

エクセルで写真集を作るためのVBAですが、以下のVBAでは画像がリンク貼り付けになってしまいます。どうしたらエクセルファイルに画像を貼りこみで保存できるのでしょうか？よろしくお願いいたします。やりたいことは、まずダブルクリックでダイアログボックスを表示させ、挿入したい写真を選択、写真がセルに合わせた大きさに縮小、セルの中央に写真を配置。以上です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ 　　　　　　　　　　　　　　　　　　　　Cancel As Boolean) 　　Dim PicFile As Variant 　　Dim rX As Double, rY As Double 　　'［ファイルを開く］ダイアログボックスを表示　　PicFile = Application.GetOpenFilename( _ 　　　　　　　　　　　　"画像ファイル,*.jpg;*.jpeg;*.gif;*.tif;*.png;*.bmp") 　　If VarType(PicFile) = vbBoolean Then Cancel = True: Exit Sub 　　Application.ScreenUpdating = False 　　　　'画像を挿入　　With ActiveSheet.Pictures.Insert(PicFile) 　　　　rX = Target.Width / .Width 　　　　rY = Target.Height / .Height 　　　　If rX > rY Then 　　　　　　.Height = .Height * rY 　　　　Else 　　　　　　.Width = .Width * rX 　　　　End If 　　　　'セルの中央（横方向/縦方向の中央）に配置　　　　.Left = Target.Left + (Target.Width - .Width) / 2 　　　　.Top = Target.Top + (Target.Height - .Height) / 2 　　End With 　　　　Application.ScreenUpdating = True 　　Cancel = True End Sub

excel　マクロ　画像挿入

以下のマクロでリンク貼り付けではない　画像挿入を作成しようと思いましたがエラーになります詳しい方　修正　お願いいたします当方のしたい事としましては選択したセルでのみに画像挿入　リンクではない画像貼り付け以下例では　B3,B17,B31,B46,B60,B74　セルをダブルクリックすればそこに画像を挿入です Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myF As Variant Dim mySp As Object Dim myAD1 As String Dim myAD2 As String Dim myHH As Double Dim myWW As Double Dim myHH2 As Double Dim myWW2 As Double If Not Intersect(Range("B3,B17,B31,B46,B60,B74"), Target) Is Nothing Then myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif") Cancel = True '===============画像選択 myF = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False) If myF = False Then MsgBox "画像を選択してください(終了)" Exit Sub End If '===============画像の掃除 For Each mySp In ActiveSheet.Shapes myAD1 = mySp.TopLeftCell.MergeArea.Address myAD2 = Target.Address If myAD1 = myAD2 Then mySp.Delete Next '===============画像の貼り付け Set mySp = ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, _ SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, _ Width:=0, Height:=0) '★　とりあえず　縦横０で。 mySp.ScaleHeight 1, msoTrue '★元のサイズに戻す mySp.ScaleWidth 1, msoTrue '★元のサイズに戻す '===============タテヨコの縮尺を保持 If mySp.Width > Target.Width Then mySp.Width = Target.Width If mySp.Height > Target.Height Then mySp.Height = Target.Height '===============中央へ調整 myHH2 = (Target.Height / 2) - (mySp.Height / 2) myWW2 = (Target.Width / 2) - (mySp.Width / 2) mySp.Top = Target.Top + myHH2 mySp.Left = Target.Left + myWW2 Set mySp = Nothing End Sub

エクセル　写真貼り付け　マクロ

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Cancel = True '===============画像選択 myF = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False) If myF = False Then MsgBox "画像を選択してください(終了)" Exit Sub End If '===============画像の掃除 For Each mySP In ActiveSheet.Shapes myAD1 = mySP.TopLeftCell.MergeArea.Address myAD2 = Target.Address If myAD1 = myAD2 Then mySP.Delete Next '===============画像の貼り付け Set mySP = ActiveSheet.Pictures.Insert(myF) '===============タテヨコの縮尺を保持 myHH = Target.Height / mySP.Height myWW = Target.Width / mySP.Width If myHH > myWW Then mySP.Height = mySP.Height * myWW mySP.Width = Target.Width Else mySP.Height = Target.Height mySP.Width = mySP.Width * myHH End If '===============中央へ調整 myHH2 = (Target.Height / 2) - (mySP.Height / 2) myWW2 = (Target.Width / 2) - (mySP.Width / 2) mySP.Top = Target.Top + myHH2 mySP.Left = Target.Left + myWW2 Set mySP = Nothing End Sub ネットでこのマクロを見つけて応用したいのですが教えてくださいセルをダブルクリックすると画像が選べて貼り付けできるのですが全部のセルに反応してしまいますセルの範囲指定したいのですがどうすればいいでしょうか？ (1)セル結合でＡ１：Ｄ７範囲だけにこのマクロを入れておきたい場合 (2)セル結合でＡ１：Ｄ７とＸ１：ＡＡ４までとか複数選択したい場合宜しくお願いします

マクロで画像挿入の質問です

マクロ　初心者です。ワークシート指定して、ダブルクリック等を使っての画像選択、貼り付け＆セルの大きさに合わせる）ことはできるのですが、ダブルクリック等ではなく、手動でマクロを実行して指定のセル（B37）に貼り付けることはできるでしょうか？（セルの大きさに画像が変換するのは生かしたまま） Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)を sub マクロ名（）にして、Moduleに貼り付けて実行したら myAD2 = Target.Address 上記場所でエラーになってしまいます。どのように変更したら、できるでしょうか？または、できる手段はないのでしょうか？ご教授お願いします。使用ベースマクロは以下です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True '===============画像選択 myF = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False) If myF = False Then MsgBox "画像を選択してください(終了)" Exit Sub End If '===============画像の掃除 For Each mySP In ActiveSheet.Shapes myAD1 = mySP.TopLeftCell.MergeArea.Address myAD2 = Target.Address If myAD1 = myAD2 Then mySP.Delete Next '===============画像の貼り付け Set mySP = ActiveSheet.Pictures.Insert(myF) '===============タテヨコの縮尺を保持 myHH = Target.Height / mySP.Height myWW = Target.Width / mySP.Width If myHH > myWW Then mySP.Height = mySP.Height * myWW mySP.Width = Target.Width Else mySP.Height = Target.Height mySP.Width = mySP.Width * myHH End If '===============中央へ調整 myHH2 = (Target.Height / 2) - (mySP.Height / 2) myWW2 = (Target.Width / 2) - (mySP.Width / 2) mySP.Top = Target.Top + myHH2 mySP.Left = Target.Left + myWW2 Set mySP = Nothing End Sub

マクロで二つの構文を繋ぐには

いつもお世話になります。 WIN7 EXCELL2010　です。 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub ThisWorkbook　に上記のマクロに下記のマクロを追加したいのですが、 End Sub の　ところを　End If　End With などに変えたのですがうまくゆきません。御指導お願いできませんでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("M3:V27")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case "○" Target.Value = "●" Case Else Target.ClearContents End Select Cancel = True End If End Sub 宜しくお願いいします。

マクロでセルに入れたファイル名の画像を隣のセルに読

みこむ。マクロで「セルに入れたファイル名の画像を隣のセルに読み込む」作業をVBA でつくりました。そのファイル名がないときは、飛ばすようにできないでしょうか。「 Set myPic = ActiveSheet.Pictures.Insert(sCurDir & myCell.Value & ".JPG")」ここでとめられてしまいます。　　　A(No）　　B(名)　　　　C(画像) --------------------------------------------- 1　　　1　　　test01　　　D:\画像\teet01.JPG 2　　　2　　　test02　　　D:\画像\teet02.JPG 3　　　3　　　test03　　　D:\画像\teet03.JPG Private Sub CommandButton1_Click() Dim i As Long Dim myPic As Object Dim myCell As Range Dim sCurDir As String sCurDir = ThisWorkbook.Path & "\画像\" For i = 6 To Range("B" & ActiveSheet.Rows.Count).End(xlUp).Row Step 6 Set myCell = Range("B" & i) Set myPic = ActiveSheet.Pictures.Insert(sCurDir & myCell.Value & ".JPG") With myPic .Left = Range("C" & i).Left .Top = Range("C" & i).Top .Width = Range("C" & i).MergeArea.Width .Height = Range("C" & i).MergeArea.Height End With Set myPic = Nothing Next i End Sub

エクセルのマクロ

セルの値が変わったら動くマクロですが、2つ書くとエラーが出ます。どのように直したらいいでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address If Intersect(Target, Range("EK22")) Is Nothing Then Exit Sub Else Range("EK24:EM28").Select Selection.ClearContents End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("EK24")) Is Nothing Then Exit Sub Else Range("EK27:EM28").Select Selection.ClearContents End If End Sub

マクロでセルに入れたファイル名の画像を隣のセルに読み込む

こんにちは。宜しくお願いします。マクロで「セルに入れたファイル名の画像を隣のセルに読み込む」作業を行いたいのですが・・・。うまくいきません。どなたかご助言いただけると助かります。＜内容＞セル内には上から1位・2位と順位通りになっており、その順位に入っているセルのファイル名と一致している画像を隣のセルに読み込みたいと思っています。またファイル名と画像が一致しない場合は「No　Image」として1枚の画像を貼り付けることもしたいです。　　　A(順位)　　B(名)　　　　C(画像) --------------------------------------------- 1　　　1位　　　test01　　　D:\画像\teet01.JPG 2　　　2位　　　test02　　　D:\画像\teet02.JPG 3　　　3位　　　test03　　　D:\画像\teet03.JPG . . . 10　　10位　　　test10　　　D:\画像\teet10.JPG ＜問題点＞・B2の「test01」から順に読み込んでもらいたいのにB1の「名」を読み込んでしまうためエラーが生じる。・画像をセルの結合した分の大きさに合わせたいのだが、セル1個分のサイズに表示してしまうためうまく調節できない。＜マクロ文＞ Private Sub CommandButton1_Click() Dim i As Long Dim myPic As Object Dim myCell As Range For i = 1 To Range("C" & ActiveSheet.Rows.Count).End(xlUp).Row Set myCell = Range("C" & i) Set myPic = ActiveSheet.Pictures.Insert("D:\画像\" & myCell.Value & ".JPG") With myPic .Width = Range("D2").Width .Height = Range("D2").Height End With Set myPic = Nothing Next i End Sub 色々とネット等を見てはいるのですが・・・うまくいきませんでした。どこをどのようにして代えればうまく動作するか分かる方いらっしゃいましたら教えていただきたいです。宜しくお願い致します。

エクセル2007のマクロについて

B9に品番を入力するとA9に画像が自動挿入される所まではなんとか出来たのですが、同じくB10,B11,B12・・・と下の行にも同じように品番を入力すれば画像が自動挿入される様にするには,どうのようにすれば良いのでしょうか？宜しくお願い致します。　 A 　 B 9 画像品番 10 画像品番 11 画像品番 12 画像品番　　　・　　　・　　　・ Private Sub Worksheet_Change(ByVal Target As Range) Const ImagePath = "C:\Users\f\Desktop\画像\" If Intersect(Target, Range("B9")) Is Nothing Then Exit Sub Application.EnableEvents = False Dim codRange As Range Set codeRange = Range("B9") Dim picRange As Range Set picRange = Range("A9") Dim objPic As Picture For Each objPic In ActiveSheet.Pictures If objPic.Left >= picRange.Left And objPic.Left <= picRange.Left + picRange.Width _ And objPic.Top >= picRange.Top And objPic.Top <= picRange.Top + picRange.Height Then objPic.Delete Exit For End If Next picPath = ImagePath & codeRange.Value & ".jpg" If Dir(picPath, vbNormal) = "" Then picRange.Cells(1, 1).Value = "画像がありません" Else picRange.Select Sheets(1).Pictures.Insert(picPath).Select '画像ファイルの挿入 With ActiveSheet.Pictures(ActiveSheet.Pictures.Count).ShapeRange .LockAspectRatio = msoFalse .Parent.Visible = msoTrue .Left = picRange.Left .Top = picRange.Top .Height = picRange.Height .Width = picRange.Width End With picRange.Cells(1, 1).Value = "" End If Application.EnableEvents = True End Sub

Excel2010でのマクロによる画像貼付について

エクセル2010で下記のマクロを実行し、一旦保存して再度開くと、「リンクされたイメージを表示できません。ファイルが移動または削除されたか、名前が変更された可能性があります。リンクに正しいファイル名と場所が指定されていることを確認してください。」と表示されます。検索したところ、Pictures.Insertでなく、2010では、Shapes.Addを使用するとの事ですが、マクロに詳しく無いため、どこを修正したらいいのかわかりません。大量の写真貼り付けがあるので、教えて頂けると大変助かります。どうぞよろしくお願いいたします。 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) '===============起動の合図 If ActiveCell.FormulaR1C1 = "画像" Then Cancel = True '===============画像選択 SSS = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False) If SSS = False Then MsgBox "画像を選択してください(終了)" Exit Sub End If '===============画像の貼り付け Set CCC = ActiveSheet.Pictures.Insert(SSS) '===============タテヨコの縮尺を保持 HH = Target.Height / CCC.Height WW = Target.Width / CCC.Width If HH > WW Then CCC.Height = CCC.Height * 0.99 CCC.Width = Target.Width * 0.99 Else CCC.Height = Target.Height * 0.99 CCC.Width = CCC.Width * 0.99 End If '===============中央へ調整 HH2 = (Target.Height / 2) - (CCC.Height / 2) WW2 = (Target.Width / 2) - (CCC.Width / 2) CCC.Top = Target.Top + HH2 CCC.Left = Target.Left + WW2 Set CCC = Nothing End If End Sub

【急】Excelで写真張り付けマクロを書き換えたい

下記マクロを拾い利用しようと思っているのですが、以下の点を急ぎ修正しないと使えません。修正方法などが分からないので、ご教示ください。要件：・セルをクリックして写真選択して張り付け、・縦横比を変えずに、クリックした結合セルサイズ内に収める。・写真は縦横混在に対応・写真をセンターに配置する。・セルのサイズは変動する。現状の問題点：・縦向きの写真を挿入した際にセルの上下から画像がはみ出してしまう。以下コードーーーーーーーーーーーーーーー Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Cancel = True '画像選択コマンド myF = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False) If myF = False Then MsgBox "編集する場合はF2を押下してください。" Exit Sub End If '画像データの再構築 For Each mySp In ActiveSheet.Shapes myAD1 = mySp.TopLeftCell.MergeArea.Address myAD2 = Target.Address If myAD1 = myAD2 Then mySp.Delete Next 'リサイズして画像の貼り付け Set mySp = ActiveSheet.Shapes.AddPicture(Filename:=myF, LinkToFile:=False, _ SaveWithDocument:=True, Left:=Target.Left, Top:=Target.Top, _ Width:=0, Height:=0) mySp.ScaleHeight 1, msoTrue mySp.ScaleWidth 1, msoTrue '縮尺を変えずにリサイズ If mySp.Width > Target.Width Then mySp.Width = Target.Width * 0.99 If mySp.Height > Target.Height Then mySp.Height = Target.Height * 0.99 'センター中心に配置 myHH2 = (Target.Height / 2) - (mySp.Height / 2) myWW2 = (Target.Width / 2) - (mySp.Width / 2) mySp.Top = Target.Top + myHH2 mySp.Left = Target.Left + myWW2 Set mySp = Nothing End Sub 以上ご協力の程宜しくお願い申し上げます。

Excel 2007 マクロについて

初心者なりに試行錯誤しながら、チャレンジしています。 B1セルには日付が入力されています。 B1をダブルクリックしたときにUserForm1のTextBox1にその日付を表示したいのですが上手くいきません。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("B1:B15")) Is Nothing Then Exit Sub Cancel = True UserForm1.Show UserForm1.TextBox1.Value = Target.Value Unload UserForm1 End Sub どこをどのように修正したらよろしいでしょうか？

エクセル2003VBA　ウインドウズXP　基準のセルをつくる

エクセル2003VBA　ウインドウズXP　基準のセルをつくるエクセルの”Worksheet_Change”を使って自動処理をさせようとしています。 1）セルA1に「基準セル」と入力してあるとします。 2）その下のセルA2に入力をしたとき、”Worksheet_Change”を使って 3）さらにその下のA3のセルを赤色で塗りつぶすと言うVBAを組もうとしています。 2）3）の動作については、出来るのですが 1）の基準セルを作り方がわかりません。自分のレベルですと、 Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Excel.Range Dim myRow As Long, myCol As Long Set myRange = Range("A1")’※※※ myRow = myRange.Row myCol = myRange.Column If Target.Row - 1 = myRange.Row And Target.Column = myRange.Column Then Range(Cells(myRow + 2, myCol), Cells(myRow + 2, myCol)).Interior.ColorIndex = 3 End If End Sub ※※※の所をワークシートの「基準セル」と入力されている情報から取り込みたい myRangeは配列にして、ワークシート上に「基準セル」と入力しておけば、基準セルになるようにしたいと考えています。どうすれば良いかご回答をお願いいたします。

ダブルクリックで自動入力

初心者です。教えて下さい。一つのBOOKに二つのSheetがあります。 Sheet”データ”のA列に番号が入力してあり、そのセルをダブルクリックすると Sheet”印刷”の（A18）にダブルクリックした番号が入力され、 2回目からは前に入力したセルの一つ下に入力されるようにしたいのですが・・下記を自分で作ってみましたが、何度やっても（A18）にしか自動入力されません。どのようにしたら最終行の下に入力されるようになるのでしょうか？色々調べてみましたが分かりませんでした・・・宜しくお願い致します。 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub Cancel = True With Worksheets("印刷") MyRange = Range("A18").End(xlUp).Offset(1).Address .Range(MyRange).Value = Target.Value Application.Goto .Range(MyRange) End With End Sub

エクセルにてダブルクッリクしたときの動作

エクセルにて特定のセルをダブルクリックをした時に日付を表示させたくて以下のマクロを組みました。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,Cancel As Boolean) If intersect(Target, Range("A1")) Is Nothing Then Exit Sub If ActiveCell = "" Then ActiveCell = Format(date, "yyyy") Cancel = True End If End Sub この場合A1セルをダブルクリックした時のみ西暦が入力されるようになっていますが、他のセルで、例えばB1セルでは月、C1セルでは日にちをダブルクリックで入力させるにはどうしたら良いでしょうか？ If intersect(Target, Range("A1")) Is Nothing Then Exit Sub のTarget, Rangeを書き換えて複数このマクロを書き込んだのですがうまく動作しなくて。知恵を貸していただけると助かります。

マクロの疑問

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "A2" Then Range("A2").Select End If End Sub とすると、どのセルを選んでもA2に飛ぶのに、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "A3" Then Range("A2").Select End If End Sub とすると、A3を選んでも全く移動しないのはなぜでしょうか。なにか落とし穴がありそうで。。。よろしくお願いします。

エクセルマクロ：特定のセルをダブルクリックすると画像ファイルを参照し、そのセルの大きさに合わせて画像を貼りつける方法

エクセル　マクロ

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

お礼 2014/07/10 15:58

関連するQ&A

エクセルVisualBasicマクロ詳しい方

エクセル貼付けの画像がメール添付で表示されません

Excelセルのサイズに合わせて画像を表示させたい

エクセル２０１０　挿入画像の圧縮　VBA

エクセルに写真を挿入するVBA

excel　マクロ　画像挿入

エクセル　写真貼り付け　マクロ

マクロで画像挿入の質問です

マクロで二つの構文を繋ぐには

マクロでセルに入れたファイル名の画像を隣のセルに読

エクセルのマクロ

マクロでセルに入れたファイル名の画像を隣のセルに読み込む

エクセル2007のマクロについて

Excel2010でのマクロによる画像貼付について

【急】Excelで写真張り付けマクロを書き換えたい

Excel 2007 マクロについて

エクセル2003VBA　ウインドウズXP　基準のセルをつくる

ダブルクリックで自動入力

エクセルにてダブルクッリクしたときの動作

マクロの疑問

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

エクセルマクロ：特定のセルをダブルクリックすると画像ファイルを参照し、そのセルの大きさに合わせて画像を貼りつける方法

エクセル マクロ

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

お礼 2014/07/10 15:58

関連するQ&A

エクセルVisualBasicマクロ詳しい方

エクセル貼付けの画像がメール添付で表示されません

Excelセルのサイズに合わせて画像を表示させたい

エクセル２０１０ 挿入画像の圧縮 VBA

エクセルに写真を挿入するVBA

excel マクロ 画像挿入

エクセル 写真貼り付け マクロ

マクロで画像挿入の質問です

マクロで二つの構文を繋ぐには

マクロでセルに入れたファイル名の画像を隣のセルに読

エクセルのマクロ

マクロでセルに入れたファイル名の画像を隣のセルに読み込む

エクセル2007のマクロについて

Excel2010でのマクロによる画像貼付について

【急】Excelで写真張り付けマクロを書き換えたい

Excel 2007 マクロについて

エクセル2003VBA ウインドウズXP 基準のセルをつくる

ダブルクリックで自動入力

エクセルにてダブルクッリクしたときの動作

マクロの疑問

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

エクセル　マクロ

エクセル２０１０　挿入画像の圧縮　VBA

excel　マクロ　画像挿入

エクセル　写真貼り付け　マクロ

エクセル2003VBA　ウインドウズXP　基準のセルをつくる

カテゴリ
一覧

専門家に質問してみよう
専門家登録