易创云论坛

 找回密码
 立即注册
查看: 2409|回复: 0

vba 常用代码

[复制链接]

170

主题

178

帖子

10万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
100700
发表于 2021-5-14 09:38:51 | 显示全部楼层 |阅读模式

原文链接:https://jingyan.baidu.com/article/cb5d61055d5d35405c2fe0c0.html


  1. Sub adc()



  2.      On Error Resume Next        '出错继续执行后面的代码


  3.      'Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3


  4.      'Selection.Font.ColorIndex = 5


  5.      'Range("A1:A11").Select     '选择辅助的区域


  6.      'Selection.Copy             '复制


  7.      'Range("A13").Select        '选择粘贴的第一个单元格


  8.      'ActiveSheet.Paste          '粘贴


  9.      'Selection.Font.ColorIndex = 5 '字的颜色号为3 红色


  10.      Selection.Interior.ColorIndex = 44 ' 背景的颜色为3 红色


  11.      'Selection.Font.Color = RGB(0, 255, 0) '字的颜色绿色


  12.      'Selection.Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色


  13. End Sub
复制代码



回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|易创云论坛 ( 吉ICP备17001024号-1 )

GMT+8, 2025-2-1 22:42 , Processed in 0.243511 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表