真的好想你

考试加油站

脱贫奔小康低收入农户登记表批量打印模板.rar (92.15 KB, 下载次数: 155)

2012-5-27 12:33 上传

点击文件名下载附件

真的好想你.rar (262.27 KB, 下载次数: 587)

2012-5-27 15:37 上传

点击文件名下载附件

slywtj123

谢谢分享！

slywtj123

《真的好想你》中的歌曲你是用什么方法插入进去的？能说一说吗？

kakaco

Sub EXCELTOTXT()
With Sheet1
    Dim i&, j%, s$, arr
    With Sheet1.Range("a1").CurrentRegion
        arr = [c2].Resize(.Rows.Count - 1, .Columns.Count - 2)
    End With
    End With
    Open ThisWorkbook.Path & "\" & "我乡脱贫奔小康文本数据台账" & ".txt" For Output As #1
    For i = 1 To UBound(arr)
        s = ""
        For j = 1 To UBound(arr, 2)
            If IsError(arr(i, j)) Then arr(i, j) = ""
            s = s & "," & arr(i, j)
        Next
        Print #1, Mid(s, 2)
    Next
    Close #1
    MsgBox "已转换成：《我乡脱贫奔小康文本数据台账》，请到本文件同目录下查看。（QQ:445142530）"
End Sub
Public Sub xyz()
Sheet1.Select
Dim i, r, ar
ar = Array(10, 21, 32, 43, 54, 65, 76, 87, 98, 109, 121)
For i = 1 To 195
    If IsError(Application.Match(i, ar, 0)) Then
        Columns(i).TextToColumns Destination:=Cells(1, i), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
    End If
Next
End Sub

Sub EXCELTOTXT字典()
With Sheet1
    Dim i&, j%, s$, arr
    With Sheet1.Range("a1").CurrentRegion
        arr = [c2].Resize(.Rows.Count - 1, 2)
    End With
      End With
    Open ThisWorkbook.Path & "\" & "我乡脱贫奔小康字典" & ".txt" For Output As #1
    For i = 1 To UBound(arr)
        s = ""
        For j = 1 To UBound(arr, 2)
            If IsError(arr(i, j)) Then arr(i, j) = ""
            s = s & "," & arr(i, j)
        Next
        Print #1, Mid(s, 2)
    Next
    Close #1
    MsgBox "已转换成《我乡脱贫奔小康字典》，请到本文件同目录下查看。（QQ:445142530 ）"
End Sub


真厉害。。 高手什么时候教教我吧。

kakaco

slywtj123 发表于 2012-6-30 15:16
《真的好想你》中的歌曲你是用什么方法插入进去的？能说一说吗？

A1的地方有个小文本框 要不然你用全选  F5定位  就可以找出这个对象

lzqlaj

kakaco 发表于 2012-6-30 19:13
A1的地方有个小文本框 要不然你用全选  F5定位  就可以找出这个对象

我没找到，能动画演示一下吗？谢谢。

kakaco

lzqlaj 发表于 2012-6-30 19:36
我没找到，能动画演示一下吗？谢谢。

sorry 我没找到我的做动画工具。
我给你用文字描述下吧。
全选 F5 定位 对象 回车
就可以找到这个文本框了。
你把 这个大小 改下。稍微大点



如果你要编辑这个文本框的话。可能你要先把 VB变成设计模式了。你就可以移动了。
他原本是透明的。我把他变成黑色了。

lzqlaj

kakaco 发表于 2012-6-30 19:55
sorry 我没找到我的做动画工具。
我给你用文字描述下吧。
全选 F5 定位 对象 回车

谢谢。我的是excel2003，全选--- F5 定位---定位条件---对象---回车,提示找不到对象，可能是版本的原因。以前一直是删除重做的。

lzqlaj

slywtj123 发表于 2012-6-30 15:16
《真的好想你》中的歌曲你是用什么方法插入进去的？能说一说吗？

做了一个excel背景音乐，荷塘月色，动画演示来自论坛，非本人演示。

kakaco

lzqlaj 发表于 2012-6-30 20:06
谢谢。我的是excel2003，全选--- F5 定位---定位条件---对象---回车,提示找不到对象，可能是版本的原因。 ...

没事。我找出来给你。

不过您下次得好好教我VBA哦。。