Tag: 格式化用户

条件格式化VBA

我正在build立一个表格来input帐户信息和订单状态。 每一行需要根据同一行上的一个单元格的值来改变，在这种情况下单元格“H”。 我可以很容易地通过条件格式来实现，但是我认为这使得文件比编程代码更大。 我已经尝试了一些select，但我可以告诉在这一刻我迷路了。 我附上我想要完成的一个例子。 我不知道该怎么做，所以如果有人能帮助我，我会非常感激。 在这里input图像说明

在条件格式中更改字体颜色

我试图根据定义的单元格的值，在这种情况下单元格“H”中的值更改单元格范围的颜色（“A”到“N”）。 我需要在“凭证”，“错误/票证”和“完成/备份”的情况下换成白色和粗体，而其他情况则保持黑色。 我有更改定义的范围的单元格颜色的代码，但我不知道如何应用代码的字体样式和颜色更改。 这是我到目前为止： Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("H")) Is Nothing Then On Error GoTo bm_Safe_Exit Application.EnableEvents = False Dim trgt As Range For Each trgt In Intersect(Target, Columns("H")) Select Case LCase(trgt.Value2) Case "2 day process" Cells(trgt.Row, "A").Resize(1, 14).Interior.ColorIndex = 46 Case "advisor" Cells(trgt.Row, "A").Resize(1, 14).Interior.ColorIndex = 37 Case "back […]

VBA格式用户窗体数字输出

我有一个电子表格/用户界面的组合，需要用户input来计算产品定价/百分比税收和平方英尺，考虑到在用户表单的一个文本框中输出地板的总成本。 我的用户表单正在计算一切正常，但我想弄清楚如何格式化输出框，以便它只显示值超过小数两位数字（即$ 1.00）。 目前，最多显示小数点后四位数字（如“总面积”，“税额”和“最终价格”文本框中所示）。 我的用户表单代码如下（我忽略了一些与打开和closures用户表单有关的非相关部分，但是与它的function有关的所有内容都在那里）： Public Sub SumTool() Dim A, B, C, D, E, F As Double Dim x As Double Dim finalSum As Double Dim addUp As Double Dim BeforePercent As Double Dim Prcnt As Double Dim percentALT As Double Dim percentSum As Double Dim i As Integer addUp = 0 finalSum = 0 […]