请高手提供一个在Excel按一定规则生成数据的代码

Posted 2023-05-11

我需要制作一个机器IP地址表，但是是有一定规则的，所以不想输入太多的“192.168.”，想请教高手是否有相应的VB代码
具体情况如下：在C1中输入数值 015 ，回车后会自动补充为N153015，而D1中会自动生成对应的IP地址 192.168.153.15
有一难点就是我会输入3位的数值，如001、023、215等，但是对应的IP地址只能为192.168.153.1、192.168.153.23、192.168.153.215等
望高手给予指点,谢谢！
如果Excel自带的公式也能解决，那也望高人给予详解，不胜感激

这个问题很简单啊，用不着动用VB代码吧
EXCEL的公式就可以解决啊
具体是这样
选中C这一列，设置 单元格格式——数字——自定义
在 类型 中输入："N153"000
选中D这一列，设置 单元格格式——数字——自定义
在 类型 中输入："192.168.153."###
选中D1单元格，输入公式：=C1
然后用拖拉法，在D列把公式复制一下，拉到足够用的行数就行了
这样，就达到你的要求了 参考技术A 你前面设置 A1项为： 192.168.153.
后面输入 A2项为：15

后面结果项目只要将 A1+A2 就可以

公式是：=CONCATENATE(A1,A2)

是两个字符串连接起来

如何定位电子表格中一定数值范围内(如此60~70)单元格?请高手指点!

如何定位电子表格中一定数值范围内(如60~70数字之间)单元格?请高手指点!
说明:这些数字在不同行或列间,如何一次定位到满足上述条件的单元格?

感谢fjmxwrs同志的帮助.但是我用了您提供的宏,这些单元格并没有被选中,不知是何处存在问题,请继续指点!

如何定位电子表格中一定数值范围内(如此60~70)单元格?请高手指点!
悬赏分：0 | 离问题结束还有 12 天 23 小时 | 提问者：HAZXJGX
问题补充：

如何定位电子表格中一定数值范围内(如60~70数字之间)单元格?请高手指点!
说明:这些数字在不同行或列间,如何一次定位到满足上述条件的单元格?

推荐答案

例如需要选中A列60~C列70的单元格，使用“编辑/定位”菜单,在引用位置里输入“A60：C70”后按回车即可定位到所需要的数据。
如果要选中60行~70行的数据，在引用位置输入“60：70”。
如果要选中A60单元格，在引用位置输入“A60”。
假如是要定位60到70这些数字，我只会一种笨办法，那就是使用“编辑/查找”菜单，在查找内容中填上60，选择"查找全部"，查找完成后选“替换"，替换格式改个颜色，内容不变，等”替换全部“完后就会发现所有60都变了颜色，看起来一目了然。其他数字也如此
选择整个表的单元格区域，条件格式，值-介于，60,70，格式设置颜色，确定，这样所有值在60-70间的单元格就填充了颜色 参考技术A 选择整个表的单元格区域，条件格式，值-介于，60,70，格式设置颜色，确定，这样所有值在60-70间的单元格就填充了颜色。
选取用VBA搞定
代码如下
Sub test()
Dim c As Range
Dim rng As Range
On Error Resume Next
For Each c In UsedRange
If c >= 60 And c <= 70 Then
If rng Is Nothing Then
Set rng = c
Else
Set rng = Union(c, rng)
End If
End If
Next
rng.Select
End Sub
运行这个宏时，所有60-70（含60、70）的单元格都将被选取 参考技术B 在Excel表中，表格的范围是用冒号“ ：”隔开的
如E60:E70 例如求和为SUM(E60:E70) 参考技术C 先应用宏,实现主要的功能方向,后来再结合应用电子表格的VB函数功能细调解决,具体的时间隔太长了,忘了,你试着做看看!