1樓：平陽虎
假設以上內容在a1中。
sub 設定()
[a1].select
selection.characters(start:=1, length:=4).font.name = "黑體"
selection.characters(start:=1, length:=4).font.size = 10.5
selection.characters(start:=5, length:=20).font.name = "楷體"
selection.characters(start:=6, length:=2).font.fontstyle = "加粗"
selection.characters(start:=5, length:=20).font.size = 12
selection.characters(start:=12, length:=2).font.underline = xlunderlinestylesingle
end sub
2樓：落葉l無情
set rg = range("a1")
with rg.characters(start:=1, length:
=2).font 'start和length用來定位需要設定字型的文字，這裡表示從第乙個字元開始的2個字元
.name = "黑體" '字型名稱
.fontstyle = "加粗" '加粗
.size = 10.5 '大小
.strikethrough = false '刪除線
.superscript = false '上標
.subscript = false '下標
.outlinefont = false '空心字
.shadow = false '陰影
.underline = xlunderlinestylesingle '下劃線,xlunderlinestylenone表示無，xlunderlinestylesingle表示單下劃線，其他的可錄製巨集看看
.themecolor = xlthemecolorlight1 '主題顏色,具體值可錄製巨集得到
.tintandshade = 0 '顏色深淺,值為-1（最暗）到 1（最亮）
.themefont = xlthemefontnone '模板字型，比如標題，正文，表示定義好的字型，一般用不到
end with
上面只是舉個乙個例子，a1單元格前2個字元設定為黑體10.5加粗，其他的都是預設值，可以不寫。根據例子編寫你需要的吧，如果定位不知道的話，可先錄製巨集。
3樓：匿名使用者
為啥不多弄幾個單元格？
excel中模仿工具欄中設定字型大小大小，用vba程式設計來設定另一單元格中字型的大小，怎麼寫**？
4樓：匿名使用者
range("b2").font.size = range("e2")
excel vba 單個單元格內，根據不同文字設定不同字型大小、格式，程式執行太慢
5樓：微微一笑回
vba使用正規表示式控制項，可快速確定不同文字的起止位置，方便設定該段文字相應的字型格式。
如果你的**中沒有使用正規表示式，那麼可以考慮提速的可能性。另外，程式執行中關閉螢幕重新整理，也可顯著提公升格式設定速度。
6樓：匿名使用者
要設定函式，不要直接操作單元格
7樓：姓王的
**貼出來幫你分析分析
vba巨集怎麼把excel乙個單元格中,如何設定不同字型大小的兩個數字 10
8樓：匿名使用者
可以，你要說清楚如何判定你要變小號的字元？
例如，要把4）0135變小，用逗號來判斷？還是括號右側到字母左側的字元？還是怎樣？
把規則說清楚。
9樓：不想起名字了
你觀察一下你的資料的格式，總結一下。
要修改字元 在 文字出現的規律，要不vba**沒有辦法寫
10樓：太極健
所有的內容都是這個樣式的嗎？後面都是ok，前面都是()
excel中游標選中單元格，單元格所在一行以另一種顏色顯示
萬年金剛鑽 需要vba，著重要考慮的是 離開 這個單元格時的動作，開啟工作表時當前的單元格是哪個 excel中有個功能按鈕 選擇單元格後，會用別的顏色顯示單元格所在行列 或者http club.excelhome.net thread 1050586 1 1.html 圈圈叉叉小獅子 同時按住ctr...
excel中如何統計同一列中有內容單元格的總數
迮振華抗環 用counta函式可以實現，功能是返回引數列表中非空值的單元格個數。如果要統計某一列如a列的非空值個數，則公式 counta a a 如果要統一某一區域的，如a1 d10，則公式 counta a1 d10 如果是其他條件的，還可以用countif進行統計 你如果a同學去了一次就填寫一個...
excel中在單元格輸入數字在另單元格中顯示這個數字的大寫和小寫
a2輸入 if a1 0,if int a1 text trunc a1 dbnum2 元 if mod a1,1 0,整 if trunc a1,1 if a1 trunc a1,1 text left right a1 100,2 dbnum2 0角整 text right a1 100,2 d...