@@take5627 一応、できるか考えてみましたが、こんなので良ければ試して使ってみてください。 参考になれば幸いです。 sample1,写真のあるセルを選択して実行、E6セルに写真を一旦保管するマクロ sample2,移動先のセルを選択してから実行、E6のセルから選択したセルに写真を移動するマクロ ボタンに割り当てると楽に操作できます。 ------------------------------------------------------------------- Sub Sample1() '移動元のアクティブセルの位置を取得 Dim cellAd As String cellAd = ActiveCell.Address Range(cellAd).Select Selection.Cut 'E6セルに一時保管 Range("E6").Select ActiveSheet.Paste End Sub Sub Sample2() '移動先のアクティブセルの位置を取得 Dim cellAd As String cellAd = ActiveCell.Address 'E6セルから移動したいセルに写真を移動 Range("E6").Select Selection.Cut Range(cellAd).Select ActiveSheet.Paste End Sub
That is an awesome and interesting place, my friend! What a nice exploration and experience! Beautiful views if the mountains and lovely landscapes. I love the colors of the autumn foliage. Thanks for sharing. Have a great weekend.👍
@konan0119video10 ай бұрын
Thank you for watching. Although it is a low mountain, I enjoy climbing it during the autumn leaves season. I hope you have a Merry Christmas and a Happy New Year.🤗