標題: EXCEL VBA 當滑鼠選取儲存格 變數問題(已解決) [打印本頁]

---

作者: billkater000    時間: 2011-11-11 16:36     標題: EXCEL VBA 當滑鼠選取儲存格 變數問題(已解決)

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

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


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


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

---

作者: oobird    時間: 2011-11-11 16:56

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

---

作者: billkater000    時間: 2011-11-11 17:05

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

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

---

作者: billkater000    時間: 2011-11-11 17:10

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

---

作者: billkater000    時間: 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那塊 感恩

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)