kakashi-blog・カカシブログ・

Python備忘録を書きドローンやバイクなど好きな事で生きて行こうとしているブログ

Excel PC プログラミング

Excel VBAを使用して、セルの中の図形をコピーして別のセルにペースト

投稿日:

 

実はVBAは使用せずに、関数だけでコピペをしようと思いましたが、なかなか上手くいきませんでした。

なのであきらめてVBAで作ります。

 

目的

 

順序がバラバラのセルに番号をふって、別のシートに整列させたい
※フィルター機能は使えないという前提。

 

例題

 

 

A列のセルに入ってる図形をB列のセルに入っている番号順に並べ変えたい。

1〇、2△、3□の順に。

現在のシートは”2”、並べ替えたものをシート”1”に入れたい。

 

 

VBAを書く

 

開発→VisualBasic→挿入→標準モジュール

 

Sub cp()
    Dim i As Long
    Dim R As Long
    
    
    For i = 1 To 3

        Sheets("2").Select
        Cells(i, 1).Select
        Selection.Copy
        R = Cells(i, 2).Value

        If R = 1 Then
            Sheets("1").Select
            Range("A1").Select
            ActiveSheet.Pictures.Paste
            
        ElseIf R = 2 Then
            Sheets("1").Select
            Range("A2").Select
            ActiveSheet.Pictures.Paste
            
        Else: R = 3
            Sheets("1").Select
            Range("A3").Select
            ActiveSheet.Pictures.Paste
            
        End If
        
        
    Next i
    
End Sub

 

 ちなみに普段pythonを書いているので、インデントは癖です。

 適当にボタンを作って実行してみます

 

 

実行結果

 

 

一応並びました。

ペーストされる方のセルの大きさは、合わせておかないと重なってしまって見辛くなってしまいます。

とりあえず実用出来そうなので、目的は達成されました。

もっといいやり方があればおしえてください。

-Excel, PC, プログラミング
-, ,

執筆者:


comment

メールアドレスが公開されることはありません。

関連記事

仮想通貨マイニング、電気代は実際いくらかかるのか

現在暴落中の仮想通貨ですが、先週くらいまではイケイケでした。 そんな中マイニングを始めたわけですが、儲かるのかどうなのか、 ちゃんと計算してみました。   基本的な収支の考え    マイニング収益 ー …

カプレカ数をpythonで求める

カプレカ数とは まず6174を例にとってみます。 ’6’、’1’、’7’、’4’と桁を関係なく数字をバラバラにします。 その数字の並び替えを[最大]と[最小]になるように並び替えます。 ・最大 764 …

PythonでFizzBuzz問題を書く

  FizzBuzz とは   元々は数人で遊ぶシンプルなゲーム。 1から順番にカウントアップして発言していき、3で割り切れる数のときは「Fizz」、5で割り切れる数の時は「Buzz]と発言していく。 …

pythonで画像処理 Pillow(PIL)

画像処理なんて大げさですが、Pillow(PIL)を使用して少し画像の操作をやりました   ライブラリのインポート~ from PIL import Image im=Image.open(‘C:\\ …

Pythonプログラミング備忘録 ―エクセル操作編

pytohnプログラミング学習で勉強したことをまとめました 備忘録といった感じで、初心者向けに書いてあります   退屈なことはPythonにやらせよう ―ノンプログラマーにもできる自動化処理プログラミ …