我的vba出了什么问题？日期复制过去自动添加星期几了~

lengcj

vba程序从一个表截取copy日期字段，然后复制到另一个表的单元格，过去自动添加星期几了

相关代码如下
If sht1.Cells(3, 3) = "放送曜日" Then
    sht1.Cells(30, 7) = sht1.Cells(3, 4): sht1.Cells(3, 4) = "": sht1.Cells(3, 3) = ""
    Else
    If sht1.Cells(4, 3) = "放送曜日" Then
        sht1.Cells(30, 7) = sht1.Cells(4, 4): sht1.Cells(4, 4) = "": sht1.Cells(4, 3) = ""
        Else
    End If
End If



*************
hangsht2 = 2        '取首播日期
Do Until sht1.Cells(hangsht2, 1) = "放映日" Or hangsht2 >= hangsht1
hangsht2 = hangsht2 + 1
Loop

'hangsht2 = 340
If InStr(sht1.Cells(hangsht2, 2), "～") = 0 Then
a = InStr(sht1.Cells(hangsht2, 2), "～")
sht1.Cells(hangsht1, 6) = sht1.Cells(hangsht2, 2)
sht1.Cells(hangsht1, 6).NumberFormatLocal = "yyyy-m-d"
a = sht1.Cells(hangsht1, 6)
End If



If InStr(sht1.Cells(hangsht2, 2), "～") > 0 Then
a = InStr(sht1.Cells(hangsht2, 2), "～")
sht1.Cells(hangsht1, 6) = Mid(sht1.Cells(hangsht2, 2), 1, a - 1)
sht1.Cells(hangsht1, 6).NumberFormatLocal = "yyyy-m-d"
k1 = sht1.Cells(hangsht1, 6)

sht1.Cells(hangsht1, 11) = Mid(sht1.Cells(hangsht2, 2), a + 1, Len(sht1.Cells(hangsht2, 2)))
sht1.Cells(hangsht1, 11).NumberFormatLocal = "yyyy-m-d"
k2 = sht1.Cells(hangsht1, 11)
End If


For k = 1 To 20
sht3.Cells(hangsht2, k) = Mid(sht1.Cells(hangsht1, k), 1, Len(sht1.Cells(hangsht1, k))): sht1.Cells(hangsht1, k) = ""
Next k


以前的电脑运行得很正常的，后来换了个电脑就开始多了星期几，office2003也重装了还是多了星期几成了这样【

2017/10/2 星期一

】。郁闷啊~

出演.rar (23.76 KB, 下载次数: 5)

2018-3-9 00:40 上传

点击文件名下载附件

liulang0808

没有附件，建议楼主看看单元格设置情况吧

看见星光

单元格自定义格式里能删的都删掉，特别是看着很乱很长的那种，然后保存后重新打开excel

lengcj

liulang0808 发表于 2018-3-8 16:55
没有附件，建议楼主看看单元格设置情况吧

单元格设置肯定早就看了的
都玩vba30多年了啊~

jiangxiaoyun

围观，过来学习一下。

lengcj

lengcj 发表于 2018-3-8 16:57
单元格设置肯定早就看了的
都玩vba30多年了啊~

想要什么附件？

我的vba是把一段影视资料整理成一行保存到excel的~

lengcj

看见星光 发表于 2018-3-8 16:56
单元格自定义格式里能删的都删掉，特别是看着很乱很长的那种，然后保存后重新打开excel

office我都删 了重装了~

chxw68

选择[控制面板]--[区域和语言]，然后设置长日期格式试试，第一张图片是带星期的，后面一张是不带星期的。

lengcj

chxw68 发表于 2018-3-9 08:58
选择[控制面板]--[区域和语言]，然后设置长日期格式试试，第一张图片是带星期的，后面一张是不带星期的。

大神啊~感恩~

abc123281

感谢褚老师    我就是遇到同样的问题     代码运行后日期后面就会自动添加了星期几     百思不得其解     用这样的方法解决了问题