返回列表下一主題上一主題發帖

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

billkater000

小學生 Rank: 1

帖子: 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 也做跨欄置中

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

billkater000

小學生 Rank: 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那塊感恩

TOP

billkater000