excel表批量宏命令ping
Private Sub CommandButton1_Click()宏1 End Sub 把这段代码复制到Excel中 往下拖直到100 再把这些代码复制到代码页
如果是“模块”下边那你同一个文件里所有的表都可以使用,
你必须要把你的宏里的代码发出来给别人看看,不同的宏批量的代码
插入行和列想必大家都应该会吧,但是批量插入行和列就会难道一些新手朋友了,其实很简单,下面为大家介绍下利用“宏”命令快速为Excel表格批量插入行和列。
W *** 批量Ping ForExcel工具运行于Excel下,主要作用是对 *** 连通情况进行批量检测、监测等(即:批量ping ip地址)。具有录入信息方便无须转换、批量检查速度奇快、检测结果显示直观明了
@echo off
setlocal enabledelayedexpansion
set 192.168.0.1=张三电脑
set 192.168.0.2=李四电脑
set 192.168.0.3=没人使用
::4-254就自己加了。
for /l %%u in (1,1,254) do (ping -n 1 192.168.0.%%unulcall echo !192.168.0.%%u! 正使用中...call echo !192.168.0.%%u! 正使用中...lock.txt||call echo !192.168.0.%%u! *** 不通...call echo !192.168.0.%%u! *** 不通...lock.txt)
start lock.txt
IP定意文件格式 "IP.txt"IP地址 空格 定意名
192.168.0.1 网关
192.168.0.2 DNS
198.120.23.5 网管机
100.100.100.1 机房
......
@echo off
echo 查看中.....
for /f "tokens=1,2" %%a in (ip.txt) do (ping -n 1 %%anulcall echo %%b 开机中...lock.txt||call echo %%b *** 不通...lock.txt)
start lock.txt
如只要不通的就删除"call echo %%b 开机中...lock.txt"内容就行了。
@echo off
for /f "tokens=1,2" %%a in (ip.txt) do (ping -n 1 %%anul||call echo %%b..... *** 不通lock.txt)
start lock.txt
@echo off
title 查看IP是否通20081202版
color 0a
echo 广告内容
echo 张运长 *** :16888888
echo.
echo.
echo 查看中.....
for /f "tokens=1,2" %%a in (ip.txt) do (ping -n 1 %%anulcall echo %%b.....开机中||call echo %%b..... *** 不通)
for /f "tokens=1,2" %%a in (ip.txt) do (ping -n 1 %%anulcall echo %%b.....开机中lock.txt||call echo %%b..... *** 不通lock.txt)
ping -n 3 127.1nul
start lock.txt
按照下面的 *** 写就可以了~~我只给了3个地址的事例,后面的自己加。。
@echo off
goto x1
:x1
start ping 60.20.43.40 -t
goto x2
:x2
start ping 59.15.28.63 -t
goto x3
:x3
start ping 59.14.18.31 -t
如果你需要在窗口标题栏上根据不同IP显示不同名字,可以改成下面的:
@echo off
goto x1
:x1
start "名字1" ping 60.20.43.40 -t
goto x2
:x2
start "名字2" ping 59.15.28.63 -t
goto x3
:x3
start "名字3" ping 59.14.18.31 -t