请问用一个函数，能够解决字体设置的问题么？

浅色深蓝 · 发表于 2011-4-26 09:24

刚入门，希望能够用最简单的方法做出来~
谢谢各位了~

dsmch · 发表于 2011-4-26 09:38

两种方法，操作或vba

浅色深蓝 · 发表于 2011-4-26 09:39

可以给我个具体方法么？我觉得操作不可行~

dsmch · 发表于 2011-4-26 09:49

录制了一段宏，没有Dotum字体，用其他字体代替
  Cells.Select
With Selection.Font
      .Name = "楷体_GB2312"
      .Size = 11
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = 1
End With
With Selection.Font
      .Name = "Verdana"
      .Size = 11
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .ColorIndex = 1
End With
Columns("D:D").Select
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"";@"

dsmch · 发表于 2011-4-26 09:51

原帖由 浅色深蓝 于 2011-4-26 09:39 发表
可以给我个具体方法么？我觉得操作不可行~

其实操作方法最简单。

浅色深蓝 · 发表于 2011-4-26 09:57

给我个具体的菜单操作哎~
我用格式——字体——新建字体弄不出来
难不成我要一个变量一个变量的改？
我尝试选择所有对日期格式进行设置，结果编号也变成日期了
先设置中文字体，再设置英文字体的话，后面一些英文字体也会将中文字体的一些格式改变

dsmch · 发表于 2011-4-26 10:15

浅色深蓝 · 发表于 2011-4-26 11:06

要是海量数据（上万条记录），估计也只能用VBA了吧~尤其是英文和数字混杂的时候，而且数字也需要一定格式的~

浅色深蓝 · 发表于 2011-4-26 11:30

这段程序的话受用了，谢谢~

		自动登录	找回密码
密码			免费注册

[求助] 请问用一个函数，能够解决字体设置的问题么？

回复 2楼 dsmch 的帖子

回复 5楼 dsmch 的帖子

回复 7楼 dsmch 的帖子

回复 4楼 dsmch 的帖子