求大神帮写VBA，以及导入方法，有函数的单元格内容自动转换为纯文本。 vba发微信
- 怎样用VBA单元格内容转换做转换
- 用VBA代码实现公式自动转化数值
- 请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！
- 求高手师傅 用vba在excel不同的单元格中插入文字和单元格.
怎样用VBA单元格内容转换做转换
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2:$E$2" Then
If [D2] = "生产工作单" Then
[D2] = "备料工作单"
Else
[D2] = "生产工作单"
End If
End If
End Sub
用VBA代码实现公式自动转化数值
Sub Update()
Dim a As Variant
Dim s As String
Application.OnTime TimeValue("09:00:00"), "Update" '早上9点转一次,可以自己改时间
Application.OnTime TimeValue("17:00:00"), "Update" '晚上5点转一次,可以自己改时间
a = DateDiff("d", "2009-10-28", Now()) '今天从第二行开始转,如果起始行与你的要求不符就改变"2009-10-28"以达到你要求的行号
Columns(a).Select '复制
Selection.Copy
Columns(a + 1).Select '选中下一列
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False '贴公式
Columns(a).Select '选中上一列
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '回贴数值
End Sub
请问用vba在excel表里指定内容转成文本一键自动发到指定的微信群上？求帮忙！
这个很难的。
可以一键将单元格内容转换成文本放在剪贴板上，然后手动到微信群上粘贴。
求高手师傅 用vba在excel不同的单元格中插入文字和单元格.
可以，下面这个宏可以利用以下：
sub InputF()
i = Application.WorksheetFunction.Counta(Range("a:a")) ' 计算A列非空单元格数量
Range("d2:x" & i).Formula = Range("d2:x2").Formula '将D2:X2的公式填充到最后一行
end if
当然，你在用的时候可能因为表格的结构有差异，自己看着改着用吧
如果需要更多的功能，联系我，我帮你做