excel中使用vba來設置行高列寬

excel中使用vba來設置行高列寬

 

工具/原料

 

• excel2013
• 更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支持。 好人一生平安。
• 先頂后看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。

方法/步驟

 

1. 1

   首先我們打開一個工作樣表作為例子。

   
2. 2

   使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，並在模塊中輸入以下代碼：

    

   Sub 設置行高列寬()dim w as integer

   dim h as integer    

   w = inputbox("請輸入列寬")

   h = inputbox("請輸入行高") 

   ActiveWindow.RangeSelection.ColumnWidth = w            ActiveWindow.RangeSelection.RowHeight = hEnd Sub

   
3. 3

   這里我們輸入兩個變量w和h分別聲明為整數變量，w為寬，h為高。

   
4. 4

   這兩個變量我們使用inputbox函數的輸入值來獲取，這樣比較靈活，如果有固定的格式需求，我們可以將變量值直接賦予，這樣也可以提高效率。

   
5. 5

   ActiveWindow.RangeSelection我們激活當前窗口並是對當前選擇的單元格區域進行屬性定義。這里分別定義行高和列寬。

   
6. 6

   實際使用時，最好先新建一個按鈕並指定宏，然后在選取區域單元格后，點擊按鈕運行宏，就能得到我們想要的結果了。

   
   END

注意事項

 

• 謝謝你的投票。
• 你的投票是我編輯經驗的動力。謝謝你。