Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54404 / 76732 ←次へ | 前へ→

【27122】Re:2つのセルの中身を入れ替える方法を教...
発言  kaeru144  - 05/7/29(金) 11:21 -

引用なし
パスワード
   初めまして kaeru144といいます
私も高校で教務をしており、今年から私が作成したもので時間割変更を行っています。まだまだ改良の余地があるのですが、今のところは動いています。
良ければ参考までに…。

Public Sub セル交換()
  Sheets("変更").Select
  Dim w, x As Range, y As Range
   If Selection.Areas.Count <> 2 Then Exit Sub
  Set x = Selection.Areas(1)
  Set y = Selection.Areas(2)
   w = x.Formula
  x.Formula = y.Formula
  y.Formula = w

'上:入れ替え 下:備考欄
    Dim Number1
      Number1 = Selection.Areas(1).EntireColumn.Range("A1").Value
    Dim Number2
      Number2 = Selection.Areas(2).EntireColumn.Range("A1").Value

    
    Selection.Areas(1).Offset(2, 0).Value = Number1 & Range("A1").Value & Number2
    Selection.Areas(2).Offset(2, 0).Value = Number1 & Range("A1").Value & Number2
   
    
End Sub

セル交換の後、その下にいつから変更がきたのか分かるようになっています。
実際のプログラムをみないと分からないかもしれませんね・・・

0 hits

【27093】2つのセルの中身を入れ替える方法を教え... 田村亮 05/7/28(木) 20:32 質問
【27095】Re:2つのセルの中身を入れ替える方法を教え... bykin 05/7/28(木) 21:00 回答
【27096】Re:2つのセルの中身を入れ替える方法を教... ponpon 05/7/28(木) 21:32 発言
【27098】マウスで「ずりっ」と二つ選ぶと??? ponpon 05/7/28(木) 21:45 発言
【27099】Re:2つのセルの中身を入れ替える方法を教... MARBIN 05/7/28(木) 22:08 回答
【27100】Re:2つのセルの中身を入れ替える方法を教え... かみちゃん 05/7/28(木) 22:17 回答
【27101】Re:2つのセルの中身を入れ替える方法を教え... ponpon 05/7/28(木) 22:34 発言
【27108】Re:2つのセルの中身を入れ替える方法を教え... 田村亮 05/7/29(金) 9:27 お礼
【27122】Re:2つのセルの中身を入れ替える方法を教... kaeru144 05/7/29(金) 11:21 発言
【27124】Re:2つのセルの中身を入れ替える方法を教... 田村亮 05/7/29(金) 11:48 お礼
【27167】Re:2つのセルの中身を入れ替える方法を教... マキチャン 05/7/31(日) 16:20 発言

54404 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free