如何用vba实现在EXCEL固定区域坐标内点击单元格,显示日期控件

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何用vba实现在EXCEL固定区域坐标内点击单元格,显示日期控件相关的知识,希望对你有一定的参考价值。

如何用vba实现在EXCEL固定区域坐标内点击单元格,显示日期控件?

参考技术A 第一首先要用
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
触发事件。第二要用到日期控件:方法一:先将控件工具箱调出来。视图-工具栏-控件工具箱。
在控件工具箱上最下面那个按钮是其他控件,打开它,找到Microsoft
Date
and
Time
Picker
Control,
这个就是日历控件。然后在一个单元格上拖画一个框,日历控件就出来了。
然后在控件工具箱上退出设计模式,日历控件就能使用了。
在你所要用到的单元格内画出,大小要和单元格一样;

选中控件,右键单击选择菜单“设置控件格式”,在"属性"选项中选择“大小、位置均随单元格而变”,确定;

右键单击控件选择菜单“查看代码”,进入VBA后,键入以下代码:

Private

Sub

DTPicker1_Change()

Sheet1.Cells(1,

1)

=

CStr(DTPicker1)

End

Sub

Private

Sub

DTPicker1_Click()

Sheet1.Cells(1,

1)

=

CStr(DTPicker1)

End

Sub
返回到Excel,调整单元格大小使控件完全显示;
退出设计模式,OK。如果没有这个控件可以自己去网上下载个控件或者用方法2. 方法2:在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”添加“日历控件11.0”

在excel中如何用vba来实现查找特定的字符串?

例如excel中有一列的值分别是
invalidtype,
invalidstatus,invalidtype.
invalidstatus,
invalidtype.invalidstatus,invalidcode
如何在这些单元格中判断是否含有特定的字符串invalidstatus?
希望高手帮忙,这个问题比较急,在线等待···

1、首先打开需要编辑的Excel表格,进入到编辑的的页面中。

2、然后在弹出来的窗口中,鼠标右键单击工作表,选择打开“查看代码”。

3、然后在弹出来的窗口中,点击输入代码:

Sub AAA()

Dim I As Long

For I = 1 To 1000 '行 范围,自己修改

If InStr(Range("A" & I), "invalidstatus") > 0 Then

Range("A" & I).Font.Color = vbRed

End If

Next

End Sub

4、然后进行保存,点击运行就完成了。

参考技术A Sub Main()
Dim I As Long
For I = 1 To 1000 '行数,可以根据实际情况进行修改
If InStr(Range("A" & I), "invalidstatus") > 0 Then'假设数据都在A列中,从第一行开始
Range("A" & I).interior.Color = vbRed
End If
Next
End Sub
如果包含特定的字符串,则单元格填充为红色。

关于此例中用到的Instr函数的详细讲解:

InStr 函数
返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。

InStr([start, ]string1, string2[, compare])
InStr 函数的语法具有下面的参数:
start 可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果指定了 compare 参数,则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare可选参数。指定字符串比较。如果省略 compare,Option Compare 的设置将决定比较的类型。
compare 参数设置为:
常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access,执行一个基于数据库中信息的比较。
参考技术B Sub AAA()
Dim I As Long
For I = 1 To 1000 '行 范围,自己修改
If InStr(Range("A" & I), "invalidstatus") > 0 Then
Range("A" & I).Font.Color = vbRed
End If
Next
End Sub
运行后含有这个字符的单元格字体为红色。追问

这个A是代表的循环列吧。试验了一下是可以出来的,非常感谢···
我还有一个问题想请教一下。如果有一列类似于:
1.10089E+15
47GS794600000000
4.19504E+14 ,
如何 用vba的函数把这一列的所有科学计数法改成普通的一般的计数,类似于:
1100890502000600
47GS794600000000
419504100000000
非常感谢你。这个问题比较急,我在线等你哈···

追答

试试这个,没有做过太多验证,你自己测试看看数据对不对再用

Sub AAA()
Dim Ar
Ar = Columns("A").Formula
Columns("A").NumberFormatLocal = "@"
Columns("A") = Ar
End Sub

追问

谢谢,没用过此类的函数,Ar的类型是?测试了一下,这个貌似不可以,Ar = Columns("f").Formula的时候就有error,是runtime error 91:object variable or with block variable not set。 不知道该如何下手。麻烦你帮忙啦···

追答

方便的话加我看看。不然发附件到我邮箱。我这边测试没问题。

QQ邮箱 987122817@qq.com

追问

不好意思哈,我重新试了下,好像可以了,非常感谢,真的非常感谢。希望以后可以多多向你请教学习···
额外想问问,这种问题有没有类似于不是这种修改格式,而是通过逐行抽取的时候,以text的形式来实现的方法?

追答

要么设置单元格格式为文本,要么在字符前面加上逗号。不懂你的以 text形式是什么意思
Sub AAA()
DIM I AS LONG
I=1

MSGBOX =range("A" & I).Formula
END SUB
你读取对应单元格的 Formula 属性就可以了。

追问

利用Workbooks().Worksheets().Cells(iRow, 2).value这种形式,应该是string型,想直接在前面加逗号,成Workbooks().Worksheets().Cells(iRow, 2).value = " ' " + Workbooks().Worksheets().Cells(iRow, 2).value,这样会报错:application-defined or object-defined error;想转换成long型,有workflow的error,有人建议改成text试试,但是还没有实践过。
还有就是msgbox没有定义,我测试的时候不能通过,需要帮忙···

追答

不会啊,我这样测试没错啊。看看你的Irow 是不是0 ,工作簿工作表名称是否对

Dim I As Long
For I = 1 To [B65536].End(3).Row
Range("B" & I).Value = "'" & Range("B" & I).Value
Next

本回答被提问者和网友采纳

以上是关于如何用vba实现在EXCEL固定区域坐标内点击单元格,显示日期控件的主要内容,如果未能解决你的问题,请参考以下文章

在excel中如何用vba来实现查找特定的字符串?

在excel中如何用鼠标拖动实现单元格内容的复制与移动

如何用EXCEL VBA读入固定格式的TXT文档

如何用VBA语句让EXCEL里某单元格不能被输入或更改?(比如说要让A1单元格不被输入)请诸路VBA高手赐教,谢谢!!

excel如何用VB实现对表格中内容进行搜索定位?

如何用EXCEL VBA批量提取JPG文件日期时间信息到表格中?