エクセル2000 関数とマクロ 分かる人には簡単

質問

こんばんは。　こちらは、エクセル2000を使用しております。

　アクティブセルの一番上と一番左のセルの内容をくっつけて表示させるには、どうすればいいでしょうか？

掛け算の九九の表を思い出してください。　こんな感じ。。

　　2　　　3　　　4　　5

2　4　　　6　　　8　　10

3　6　　　9　　　12　　15　　　
このような表で例えば「12」と書かれているセルをアクティブにしたあと、マクロ起動させると　「4と3の掛け算です。」という文字を、どこかのセルに記入してもらうには
どうゆうマクロを組み立てればよいでしょうか？

　知ってる人にはものすごく簡単だとおもうのですが、
なにを手がかりに調べたらよいのか、分からなくて困ってます。　　教えてください。

回答No.2

nishi6

九九の表は例示なのか、九九の表で表示されたいのか確信が持てませんが、九九に限定して書いてみました。一応、九九の外を選んだ場合も対応しています。

標準モジュールに貼り付けます。メッセージボックスに表示する２行をコメント行にして、その上のコメント行を有効にすればセルA1に掛け算内容を表示します。Excel97でもOKと思います。（こんなのでいいのかな？）

Public Sub Sansyomoto()
　　Dim myMsg As String '答え
　　Dim myFormura As String 'アクティブセルの式
　　Dim adrCell1, adrCell2 As String '元のセル番地

　　On Error GoTo ErrorHandler

　　myFormura = ActiveCell.Formula
　　myFormura = Replace(myFormura, "=", "") '余分な文字をとる
　　myFormura = Replace(myFormura, "+", "") '余分な文字をとる

　　adrCell1 = Left(myFormura, InStr(myFormura, "*") - 1)
　　adrCell2 = Right(myFormura, Len(myFormura) - InStr(myFormura, "*"))

　　myMsg = Range(adrCell1) & "と" & Range(adrCell2) & "の掛け算です。"
　　'Range("A1") = myMsg
　　MsgBox myMsg

　　Exit Sub
ErrorHandler:
　　'Range("A1") = "エラーです"
　　MsgBox "エラーです"
End Sub

お礼

九九は例示で書きました。　もっと具体的なものを書いたほうがよかったですね。　

　貼り付けて試してみましたが、分かりませんでした。
すみませんでした。