Excel vbaの数値入れ替え方法

Question

A1に"123",B1が"456"だとすると
ボタンを実行するたびに
B1が"456",A1に"123"と交互になるにはどのようなプログラムを書けばいいのでしょうか？

Answer 1

あなたが提示したSub Rensyu15()を交互に呼び出せばよいのではないでしょうか。
1回目　call 上のRensyu15()
2回目　call 下のRensyu15()
3回目　call 上のRensyu15()
4回目　call 下のRensyu15()
以降同様

それとも、こういうことでしょうか？

Public Sub 行列転置()
    Worksheets("Sheet3").Range("A1:J10").Value = WorksheetFunction.Transpose(Worksheets("Sheet3").Range("A1:J10").Value)
End Sub

Comments

[todo293]

解決方法が分かりました。
ありがとうございました！

Answer 2

次のコードでいかがでしょうか。

Sub Rensyu15()
    Static k As Long
    Dim i As Integer, j As Integer, Keisan As Integer
    For i = 1 To 10
        For j = 1 To 10
            Keisan = k * (10 * (i - 1) + j) + (1 - k) * (10 * (j - 1) + i)
            Worksheets("Sheet3").Cells(i, j) = Keisan
        Next j
    Next i
    k = 1 - k
End Sub

Comments

[todo293]

そういう事です！
解決しました、ありがとうございました！！

[todo293]

簡単な質問で申し訳ないのですがkに数値を格納していない場合は０になるということでしょうか？

[kitasue]

はい。数値型の変数の初期値は０です。

[todo293]

ありがとうございます！

Answer 3

Sub Macro1()
    Range("B1").Cut
    Range("A1").Insert Shift:=xlToRight
End Sub

Sub Macro2()
    Cells(2).Cut
    Cells(1).Insert Shift:=xlToRight
End Sub

Sub test1()
    Dim Rng As Range
    Dim tmp As Variant
    
    Set Rng = Range("A1:B1")
    tmp = Rng(1).Value
    Rng(1).Value = Rng(2).Value
    Rng(2).Value = tmp
End Sub

Sub test2()
    Dim c As Range
    Dim v As Variant
    
    Set Rng = Range("A1").Resize(, 2)
    v = Rng.Value
    Rng(1).Value = v(1, 2)
    Rng(2).Value = v(1, 1)
End Sub

エクセル的にセルを切り取って挿入するか、
セルの値を一時的に変数に退避しておいて書き直すか、
やり方は2種類ですかね？

セルの位置の表現のしかた、変数の使い方で、様々に書けます。

Comments

[todo293]

Sub Rensyu15()
Dim i As Integer, j As Integer, Keisan As Integer
For i = 1 To 10
For j = 1 To 10
Keisan = 10 * (i - 1) + j
Sheet3.Cells(i, j) = Keisan
Next j
Next i
End Sub
というコードを
Sub Rensyu15()
Dim i As Integer, j As Integer, Keisan As Integer
For i = 1 To 10
For j = 1 To 10
Keisan = 10 * (j - 1) + i
Sheet3.Cells(i, j) = Keisan
Next j
Next i
End Sub
というコードを交互に実行するようになるコードを作りたいのです。

よろしくお願いします????

[mattuwan]

話が全然違うと思いますが、その点についてどう思われてますか？
また、コードを考えても話がうまくこちらに伝わってなければ、
時間の無駄ですよね？その点についてどう思われますか？

マクロ実行前の前提条件として、
セルA1:J10の範囲にはすでに何かしらの値が入っているのですか？
それとも、今までの入力はクリアして、
「連番」を横優先で振ったり、
縦優先で振ったりしたいのですか？

まずはやりたいことを日本語で伝えるところから、
プログラミングを始めましょう。
日本語で作業内容を論理立てて順序良く説明し、
それをVBA語に翻訳してエクセル君に伝えばよいかと思いますが、
そのことについてどう思われますか？

[todo293]

伝達能力の低さにより気分を害してしまったのでしたらすいませんでした。
解決方法が分かりました。
ありがとうございました。

[mattuwan]

別に気分など害しても損ねてもいません。
todo293さんにちゃんと考えていただいて、
そして自分で気づいて、言葉にして発して頂けたらと思います。

今回の件も、ちゃんと言葉にできていたら、自分でコードを書けたのでは？
と思ってます。
こういう時はこうするという暗記みたいな勉強法は進歩がないですよ。

どうやったら、自分のやりたいことが相手に伝わるか、
3時間でも4時間でもかけて考えを整理し、言葉にしてみるということが、
一番の勉強法だと思います。
VBAに時間を使いたくないのであれば、一生、他人に作ってもらうことになるかと思います。

Answer 4

1. なにか変数を用意しておく
2. 変数にA1のナカミを代入
3. A1にB1のナカミを代入
4. B1に変数を代入
5. おしまい

Comments

[todo293]

その事は分かっているのですが、実行するたびにセルに出力した数値が変わるにはどうしたらよいのでしょうか？
失礼ですいません。よろしくお願いします????

[y_waiwai]

ちと意味がよくわかりませんが、
セルに出力した数値が変わらないってのはまた話が違ってきますが。。

どういうコードで実行した時に値が変わらないって話なんでしょうか

[todo293]

Sub Rensyu15()
Dim i As Integer, j As Integer, Keisan As Integer
For i = 1 To 10
For j = 1 To 10
Keisan = 10 * (i - 1) + j
Sheet3.Cells(i, j) = Keisan
Next j
Next i
End Sub
というコードを
Sub Rensyu15()
Dim i As Integer, j As Integer, Keisan As Integer
For i = 1 To 10
For j = 1 To 10
Keisan = 10 * (j - 1) + i
Sheet3.Cells(i, j) = Keisan
Next j
Next i
End Sub
というコードを交互に実行するようになるコードを作りたいのです。

よろしくお願いします????

[vann_2921]

同じコードが2個書かれていますけど書き間違いではないですか？
コードではなくイメージしている結果を教えてもらえますか？

[todo293]

2個目では10 * ( i - 1 ) + 1のiとjの値が逆になっています。
イメージとしてはセルのA1からJ10まで自然数の1-100までを出力して
A B C D E F G H I J
1 1 2 3 4 5 6 7 8 9 10
2 11 12 13..... 20
3 21.....
4
5
6
7
8
9
10 100

というものがiとjをいれかえて

A B C D E F G H I J
1 1 11 21 31 41 51 61 71 81 91
2 2 12
3 3 13
4 4 14...
5 5
6 6
7 7
8 8
9 9
10 10 100

とVBAを実行する度に列と行が入れ替わるように設定したいのです。

[todo293]

解決方法が分かりました。
ありがとうございました！