Excel VBA、選択したセルでマクロを実行

Question

私の問題は、マークされたセルでのみマクロを実行する必要があることです。

次の操作を行うためのマクロニーズ：

選択したセルは、20の* 20 * 20、常に3つの数字として例えば、常にフォーマットされています。

このテキストをコピーして、数値の前に「=」を付けて別の列に出力する必要があります。今まで

コードは、私が得た：

Sub First() 
' 
' First Makro 
' 

' 
    Selection.Copy 
    Range("G11").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    ActiveCell.FormulaR1C1 = "=20*20*20" 
    Range("G12").Select 
End Sub 

は私が

どうもありがとうございました

Answer 1

@SiddharthRout正確に記録マクロ機能でこのコードを持っているが、私はする必要があります手作業でそれを選択することができる場合があります。たとえば、E17が時々e33であり、同じ行に常にG列を出力する必要があります。

これはあなたが試していることですか？

Sub Sample() 
    Dim wb As Workbook 
    Dim ws As Worksheet 

    Set wb = ThisWorkbook 
    '~~> Replace Sheet1 with the relevant sheet name 
    Set ws = wb.Sheets("Sheet1") 

    '~~> Check if what the user selected is a valid range 
    If TypeName(Selection) <> "Range" Then 
     MsgBox "Select a range first." 
     Exit Sub 
    End If 

    '~~> Check if the user has selected a single cell 
    If Selection.Cells.Count > 1 Then 
     MsgBox "Please select a single cell" 
     Exit Sub 
    End If 

    ws.Range("G" & Selection.Row).Formula = "=" & Selection.Value 
End Sub