求助各位大大，碰到一个format的问题，希望有人可以帮忙解答一下，谢谢！

糖醋小排骨 · 发表于 2018-2-8 14:21

各位大神，

我工作中需要用excel处理数据，最近碰到一个问题，请见下图：

A-C列是我这边原有的数据格式，但现在客户要求必须要改成E列这种格式（每句attribute对应的三行数据转变成一行数据）

需要改成2种情况：
1. 如果第三行数据没有带有颜色，只要第一行数据+(第二行数据)
2. 如果第三行数据带有颜色，需要第一行数据+(第二行数据/第三行数据)
另外还需要做一点就是：针对有颜色的数据需要加粗加下划线。

因为需要加括号斜杠之类的，我一般都是拉公式处理的。但比较头疼的是加粗和加下划线，因为公式是不支持格式的。
但我这边会碰到成千上万的个有颜色的数据需要加粗加下划线，没法手动一个个修改。

特此请教一下各位大神，有没有什么宏程序可以实现这个的？谢谢大家！

糖醋小排骨 · 发表于 2018-2-8 14:24

不好意思，刚才图片没上传成功，重新传了一下。

seayoung · 发表于 2018-2-12 13:09

这个就是两点：
1，用interior.colorindex >0 检查是否有底色;
2, 对第一格的结果进行部分加粗，用.Characters(Start:=9, Length:=1).Font；

下面代码供参考：

Sub Format4U()
Dim iRow, iColumn, il, ir As Integer
Dim str As String
iRow = Selection.Row
iColumn = Selection.Column
If Cells(iRow + 2, iColumn).Interior.ColorIndex > 0 Then
str = Cells(iRow, iColumn).Value & "(" & Cells(iRow + 1, iColumn) & "/" & Cells(iRow + 2, iColumn) & ")"
Else
str = Cells(iRow, iColumn).Value & "(" & Cells(iRow + 1, iColumn) & ")"
End If
il = InStr(str, "(") + 1
ir = InStr(str, ")")
ActiveCell.Value = str
Debug.Print "il=" & il & " ir=" & ir
With ActiveCell.Characters(Start:=il, Length:=ir - il).Font
.Name = "等线"
.FontStyle = "加粗"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End Su

复制代码

糖醋小排骨 · 发表于 2018-2-20 11:58

seayoung 发表于 2018-2-12 13:09
这个就是两点：
1，用interior.colorindex >0 检查是否有底色;
2, 对第一格的结果进行部分加粗，用.Char ...

您好！
我想请问一下，我运行的时候出现“编译错误语法错误”的提示，是我操作不对还是代码可能存在一些小问题？
能麻烦您这边自己试一下看看是什么问题吗，谢谢了！

liulang0808 · 发表于 2018-2-20 20:34

糖醋小排骨发表于 2018-2-20 11:58
您好！
我想请问一下，我运行的时候出现“编译错误语法错误”的提示，是我操作不对还是代码可能存在一 ...

建议楼主上传附件，结合附件举例描述问题

糖醋小排骨 · 发表于 2018-2-20 21:35

liulang0808 发表于 2018-2-20 20:34
建议楼主上传附件，结合附件举例描述问题

如上图所示,

我需要把每个Attribute所属的1-3行数据并在一个单元格里（即上图E列中的最终结果）

规则共有2个：
1. 如果每个Attribute的第三行数据如果是有颜色的就需要在E列中放上去。例如，图中的attribute1的第三行数据4.6是带有绿色的，那么在E列中结果就是93(30/4.6)。而attribute 2的第三行数据4.21不带有绿色，那么在E列中就不需要放了，只用放第一行数据90和第二行数据25就可以了，即90(25)
2.所有带有颜色的数据在E列中显示的结果必须是“加粗且带有下划线”

我需要找个快捷的方法做出E列中这种格式，因为平时会遇到成千上万这种的情况，那么光加粗加下划线就是一个非常庞大的工程了。

麻烦各位解答一下，谢谢大家！

liulang0808 · 发表于 2018-2-20 21:38

糖醋小排骨发表于 2018-2-20 21:35
如上图所示,

我需要把每个Attribute所属的1-3行数据并在一个单元格里（即上图E列中的最终结果）

请楼主参考下5楼的建议

糖醋小排骨 · 发表于 2018-2-21 21:32

liulang0808 发表于 2018-2-20 21:38
请楼主参考下5楼的建议

您好，附件已上传。

问题描述如6楼所示，想找个快捷方法得出E列中的数据格式。

谢谢了！

工作簿1.rar (7.28 KB, 下载次数: 8)

taller · 发表于 2018-2-22 07:59

E列数据有的包含了C列全部值，有的不是，不清楚楼主的合并规则是什么，所以代码处理格式，

Private Sub CommandButton1_Click()
Dim bFlag As Boolean, sPos, ePos, c, d As Range
Set Rng = Range([c1], [c1].End(xlDown))
For i = Rng.Cells.Count To 2 Step -1
bFlag = False
Set c = Rng.Cells(i)
Set d = c.Offset(0, 2)
If d.Value = "" Then
Set d = d.End(xlUp)
bFlag = True
End If
If c.Interior.ColorIndex > 0 Then
sPos = VBA.InStr(1, d.Value, c.Value)
lth = Len(c.Value)
If c.Offset(-1, 0).Interior.ColorIndex > 0 Then
sPos = sPos - 1: lth = lth + 1
End If
If sPos > 0 Then
With d.Characters(sPos, lth).Font
.Bold = True
.Underline = True
End With
End If
End If
Next
End Sub

复制代码

liulang0808 · 发表于 2018-2-22 08:23

Sub 按钮1_Click()
Application.ScreenUpdating = False
For j = 1 To Cells(Rows.Count, 3).End(3).Row Step 3
If Cells(j, 1) <> "" Then
str1 = Cells(j, 3)
If Cells(j + 2, 3).Interior.ColorIndex = 43 Then
str1 = str1 & "(" & Cells(j + 1, 3) & "/" & Cells(j + 2, 3) & ")"
Else
str1 = str1 & "(" & Cells(j + 1, 3) & ")"
End If
Cells(j, 7) = str1
End If
Next j
Application.ScreenUpdating = True
End Sub

复制代码

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

[求助] 求助各位大大，碰到一个format的问题，希望有人可以帮忙解答一下，谢谢！

最新热点 /1