EXCEL VBA 當滑鼠選取儲存格 變數問題(已解決)

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: VISTA
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
來自: TAIPEI
註冊時間: 2011-11-11
最後登錄: 2011-11-11

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-11 16:36 | 只看該作者

EXCEL VBA 當滑鼠選取儲存格變數問題(已解決)

本帖最後由 GBKEE 於 2011-11-11 18:37 編輯

想請問一下各位高手假如我做了一顆按鈕我希望按下去後他會把我當前滑鼠選取的複數儲存格做跨欄置中的動作然後把他的欄位+1 也做跨欄置中的動作我該怎麼寫?

EX: 滑鼠目前選取到 A1:A3 按鈕按下去他會把這個範圍儲存格做跨欄置中然後再把 B1:B3 也做跨欄置中

我一直沒有辦法抓到滑鼠選取的範圍當作變數請各位高手救救我謝謝

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-11-11 16:56 | 只看該作者

With Union(Selection, Selection.Offset(1))
.Value = 123
.HorizontalAlignment = 7
End With

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: VISTA
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
來自: TAIPEI
註冊時間: 2011-11-11
最後登錄: 2011-11-11

3^#

發表於 2011-11-11 17:05 | 只看該作者

本帖最後由 billkater000 於 2011-11-11 17:10 編輯

抱歉可以說的詳細一點嗎我程度沒有很好感謝高手

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: VISTA
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
來自: TAIPEI
註冊時間: 2011-11-11
最後登錄: 2011-11-11

4^#

發表於 2011-11-11 17:10 | 只看該作者

這個程式看完後我還有兩個問題要請教一下
1. 她會多寫入一行是為啥麼 (選取3列他會寫入四列的資料)
2. 他要怎麼欄數+1 再繼續做一次動作?

帖子: 4
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: VISTA
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
來自: TAIPEI
註冊時間: 2011-11-11
最後登錄: 2011-11-11

5^#

發表於 2011-11-11 17:15 | 只看該作者

高手謝謝你我弄懂了感謝您的教導

With Union(Selection, Selection.Offset(0, 0))
.HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
End With
Selection.Merge
With Union(Selection, Selection.Offset(0, 1))
.HorizontalAlignment = xlCenter
      .VerticalAlignment = xlCenter
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = False
End With
Selection.Merge

原來重點要利用 OFFSET屬性  我一直在想SELECT那塊感恩