安卓机下载WhatsApp网页版
打开电脑浏览器,输入WhatsApp网页版的登录网址,访问其官方网页。打开手机版的WhatsApp,点击右上角的三个点,选择"WhatsApp Web"选项。此时,手机屏幕会出现一个二维码扫描器,对准电脑屏幕上的二维码进行扫描。扫描二维码后,手机上会出现一个提示,询问你是否确认登录电脑版WhatsApp,点击确认后,电脑版的WhatsApp就会自动登录并同步你的聊天记录。
在Excel中制作工资条一般有三种方法可供选择。首先,可以使用操作法来实现:在每行下面插入一个空行,在复制标题行,并定位到空行的第一个单元格进行粘贴。这种方法的优点是可以保留原始格式,但缺点是每次都需要重复相同的操作步骤。第二种方法是使用函数法,主要依靠indi删除whatsapp怎样弄回以前的账号rect函数来实现。通过计算,如奇数行等于标题行,偶数行等于row() / 2 + 1行,得到类似效果。这种方法的优点是以后可以直接复制这些计算结果到表格中使用,并且能够保留原有华为手机怎么加whatsapp好友格式,但缺点是只引用了值过来,并且格式会被丢失。
最后一种方法是通过VBA代码来处理。可以直接对原始表格进行处理,也可以处理到新工作表中。无论哪种方式,都可以选择是否保留原始格式。
需要注意的是,在使用VBA代码时需要确保已经正确地定义了工作表和单元格对象,并且在代码中使用正确的属性和方法来操作它们。
工资条制作样张实例有很多样板的。。+每个公司都应该有固定的。。以Office2007为例:
1、复制语句(就是你说的“公式”)
2、打开你的工资表--视图--宏--名字录入“生成工资条”--创建--粘贴(此时注意SUB和END Sub不要多了,有一个即可)
这里提供一个我所用的宏:
Sub 生成工资条()
Cells.Select
'选择整个表去掉表格线
Range("F1").Activate
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStwhatsapp网页版 pc端二维码yle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selectwhatsapp功能图标调上去ion.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Rows("2:2").Select
'选择第2行
Selection.Insert Shift:=xlDown
'在第2行前插入一行,保持第2行为选中状态
num = 900
'总人数×3,如工资表中有10电脑可以注册whatsapp网页版吗0人则为100×3即num=300
col = 48
'工资表的栏数,如工资表有17栏则
'col=17
num1 = 4
Do While num1 <= num
'循环插入空行
Range(Cells(num1, 1), Cells(num1, col)).Select
'选中第num1行的第1列到第col列
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
num1 = num1 + 3
Loop
Range(Cells(1, 1), Cells(1, co大陆whatsapp登录连接不了l)).Select
Application.CutCopyMode = False
'剪切复制模式无效
Selection.Copy
'复制选择区域
Range("最好用的whatsapp群发软件A2").Selecwhatsapp 消息状态图标t
'选择A2单元格
ActiveSheet.Paste
'从A2单元格起粘贴内容
num2 = 5
Do While num2 <= num
'循环插入标题行
Range(Cells(1, 1), Cells(1, col)).Select
Applicati为什么whatsapp网页版登录不上on.CutCopyMode = False
Selection.Copy
Cells(num2, 1).Select
ActiveSheet.Paste
num2 = num2 + 3
Loop
Range(Cells(2, 1), Cells(3, col)).Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
'定义表格边框线、内线样式
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlwhatsapp网页版如何设置新用户Double
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Copy
Range(Cells(5, 1), Cells(6, col)).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'接上行删除上行尾的连字符_,复制表格线样式
num3 = 8
Do While num3 <= num
'循环复制表格线样式
Range(Cells(num3, 1), Cells(num3 + 1, col)).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
num3 = num3 + 3
Loop
Rows("1:1").Select
'删除多余的一行
Selection.Delete
End Sub
3、复制以后你会发现有绿字部分,这些绿字均为提示,可以对绿字上方的进行修改,比如下面例子
col = 48
'工资表的栏数,如工资表有17栏则
'col=17
如果你的工资表只有10列,你就把Col后面的48改成10,其他的类推。
4、关闭宏的编辑栏,点宏--查看宏--选中生成工资条--执行(这里提醒一句:每次生成工资条的时候最好用工资表所在sheet的副本来执行宏)
慢慢来不要着急,一定能成功的
WhatsApp中文网页版 - WhatsApp官网请注明:WhatsApp中文网页版 - WhatsApp官网 » 安卓机下载whatsapp网页版 whatsapp手机号码验证怎么连不上