一如既往哈
码龄15年
  • 1
    被访问
  • 暂无
    原创
  • 暂无
    排名
  • 195
    粉丝
  • 0
    铁粉
关注
提问 私信
IP属地以运营商信息为准,境内显示到省(区、市),境外显示到国家(地区)
IP 属地:天津市
  • 加入CSDN时间: 2007-10-18
博客简介:

Topc008的专栏

查看详细资料
个人成就
  • 获得0次点赞
  • 内容获得0次评论
  • 获得1次收藏
成就勋章
  • 最近
  • 文章
  • 资源
  • 问答
  • 帖子
  • 视频
  • 课程
  • 关注/订阅/互动
  • 收藏
搜TA的内容
搜索 取消

资源支付后无法下载,怎么联系ta或退款

发布问题 2022.01.03 ·
1 回答

MSDATGRD.OCX

发布资源 2015.03.26 ·
OCX

如何打印手机拍的照片

答:

手机照片一般都是内存卡上的,导入电脑硬盘后,除非格式比较稀有,否则一般都能打开的。

你用什么软件打印照片?它找不到相应的文件,说明不能识别你手机里的照片格式.......

用windows自带的应该可以打开的,试试

回答问题 2015.01.15

按byte截取字符串问题

答:

那就用个函数来处理呗:

 Sub test()
    Dim w1 As String, Byt() As Byte, Byt1(14) As Byte, i As Integer
    w1 = "sf906=我们的祖国是个伟大的国家"
    Byt = StrConv(w1, vbFromUnicode)
    For i = 0 To 14
        Byt1(i) = Byt(i)
    Next
    Debug.Print StrConv(Byt1, vbUnicode)
End Sub

回答问题 2015.01.13

按byte截取字符串问题

答:

如果inputstring 都是汉字,好办啊,直接取前7个汉字+空格

回答问题 2015.01.13

VBA Excel获取数据库图片

答:

ThisWorkbook.Path 在新工作簿中为空值,要注意了。

单步执行,看看问题出在哪里......

回答问题 2015.01.09

VBA Excel获取数据库图片

答:

你先把这句改了:If Target.Address = "$f$5" Then
改成 If Target.Address = "$F$5" Then

回答问题 2015.01.09

哪位大神可以帮我讲解一下这个vb程序啊 ,感激不尽

答:

呵呵,你要是经常和代码打交道的话,英语一般般,这些属性基本上一看就知道个大概。

要是想逐一弄懂都是什么意思,可以安装下面步骤:

录制一段宏(专录页面设置部分),随便设置几项内容,结束宏后查看代码然后逐一对应看是什么意思,
有不懂的属性直接在vba窗口内打开对象浏览器然后搜索相关的属性,看看是如何使用的。
比如:


Sub Macro1()
'
' Macro1 Macro
' 宏在 2015/1/9 由 MicroDDD 录制
'
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(3.17)
        .BottomMargin = CentimetersToPoints(3.17)
        .LeftMargin = CentimetersToPoints(2.54)
        .RightMargin = CentimetersToPoints(2.54)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterAutomaticSheetFeed
        .OtherPagesTray = wdPrinterAutomaticSheetFeed
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
End Sub

回答问题 2015.01.09

EXCEL如何实现动态筛选不重复记录复制到新列中

答:

这玩意用公式好像完成不了吧?
用vba:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("B1"), Unique:=True
    End If
End Sub

回答问题 2015.01.08

IE浏览器老是弹出实时调试器

答:

这个行不行?
ie属性>>高级>>勾选 禁用脚本调试

回答问题 2015.01.07

如何使表格中的内容在表格中置于顶部

答:

仅供参考:

 Sub test()
    Dim w1 As String
    w1 = "<table border='1'>"
    w1 = w1 & "<tr><td>dfg</td>"
    w1 = w1 & "<td style='padding-top:0px;'>"
    w1 = w1 & "<span style='margin-top:0px;background:green'>test</span>"
    w1 = w1 & "</td></tr></table>"
    WB.Document.body.innerhtml = w1
End Sub

回答问题 2015.01.05

如何使表格中的内容在表格中置于顶部

答:

试试类似的:... style='vertical-align:top'......

回答问题 2015.01.05

Excel删除表头导入Access

答:

你是用代码还是手工操作?代码的话,估计不会问这问题。猜你是手工导入,按下面步骤:
创建一个备份表,删除前2行===》保存==》打开access并新建一个空库==》选中“表”==》选中“文件”菜单==》获取外部数据==》导入==》
文件类型选xls==》找到你刚保存的xls文件==》选择相应的表格(刚刚删除表头的那个表)==》下一步......(这了选择若干个下一步,根据自己的需要做相应的调整)

回答问题 2015.01.04

VB中Windows Media Player如何读取text1.text中的数据

答:

这个控件没怎么用过,你看看我的代码,参考一下:

 Option Explicit
Private Plays() As String, PlayIndex As Integer
Private Sub Command1_Click()
    If Text1.Text <> "" Then
        Dim w1 As String, w2 As String, i As Integer
        Plays = Split(Text1.Text, vbCrLf)
        ''去掉不存在的歌曲和空白的行
        For i = 0 To UBound(Plays)
            w2 = Trim(Plays(i))
            If w2 <> "" Then
                If Dir(w2) <> "" Then w1 = w1 & IIf(w1 <> "", vbCrLf, "") & w2
            End If
        Next
        Plays = Split(w1, vbCrLf) ''得到有效的地址
        PlayIndex = 0
        Wmp.URL = Plays(0) ''播放第一首
        Wmp.Controls.play
    Else
        MsgBox "请输入音乐地址!"
    End If
End Sub
Private Sub Timer1_Timer()
    If Wmp.playState <> wmppsPlaying Then
        Wmp.Controls.play
    Else
        Timer1.Interval = 0
    End If
End Sub
Private Sub Wmp_PlayStateChange(ByVal NewState As Long)
    Select Case NewState
    Case 8
        PlayIndex = PlayIndex + 1
        If PlayIndex > UBound(Plays) Then PlayIndex = 0
        Wmp.URL = Plays(PlayIndex)
        ''Wmp.Controls.play''这里不起作用,不知为啥
        Timer1.Interval = 100 ''只好用定时器来启动了
        Timer1.Enabled = True
    End Select
End Sub

回答问题 2015.01.02

宏碁v5-531 bios进不去开机 就显示"Operating system not found"

答:

这么悲剧啊,不过现在的系统备份都是放在隐藏分区的,这你也能删除?
如果没有过保修期,建议找售后重做一份系统,否则以后可能还会有麻烦的
过了保修期,那就瞎折腾呗.......

回答问题 2015.01.01

如何开发获取当前计算机cpu,内存,硬盘,进程,网络流量等使用率或传输情况

答:

WMI足可以满足楼主的要求

搜 微软脚本中心大全 -----反正是够全的啦

回答问题 2015.01.01

【vb+sql】选中datagrid的某一行,使其第一个单元格的内容显示在text文本框中?

答:

给你一个通用的方法吧:

 Sub Test()
    Dim iRow As Long, iCol As Long
    iRow = 2
    iCol = 1
    With DataGrid1
        Text1.Text = .Columns(iCol).CellValue(.GetBookmark(iRow))
    End With
End Sub

这个方法,只要指定行列(都是从0开始的)就可以读取到相应的值
本例中,设icol=0,irow=datagrid1.row即可

回答问题 2014.12.27

使用VB打开部署在ReportServer中的报表

答:

这样不行吗?
http://localhost/reportserver/your filepath/your filename

回答问题 2014.12.27

请哪位大神知道如何用VBA代码做word索引,求代码啊。。拜托拜托。。

答:

我是word2003的,这代码在我那很正常啊,没有出现错误,如果不能建立索引,是不是你输入的内容中根本就没有关键词啊。

测试方法:新开一个word,随便输入一些内容,但必须包含学校、编辑2个关键词,然后复制下面的代码到当前document的vba里,
运行test会立即看到效果的。


Sub Test()
    BiaoJiAll "编辑|学校" ''
End Sub
Sub BiaoJiAll(ByVal bStr As String)
    ''bStr为关键词,用|分割
    On Error Resume Next
    Dim i As Long, w1 As String, ww
    ww = Split(bStr, "|")
    If UBound(ww) >= 0 Then
        For i = 0 To UBound(ww)
            Selection.HomeKey Unit:=wdStory ''移动到开始
            With Selection.Find
                .ClearFormatting
                .Text = ww(i)
                .Execute
                If .Found Then ''如果找到了则添加到索引
                    ActiveDocument.Indexes.MarkAllEntries Range:=Selection.Range, Entry:= _
                    ww(i), EntryAutoText:=ww(i), CrossReference:="", CrossReferenceAutoText _
                    :="", BookmarkName:="", Bold:=False, Italic:=False
                End If
            End With
        Next
        ''定位到最后
        Selection.EndKey Unit:=wdStory
        ''在文档最后插入索引
        ThisDocument.Indexes.Add Range:=Selection.Range, HeadingSeparator:= _
        wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _
        True, NumberOfColumns:=2, SortBy:=wdIndexSortByStroke, IndexLanguage _
        :=wdSimplifiedChinese
    End If
End Sub

回答问题 2014.12.26

求解 .........................

答:

这很简单嘛,有规律可循,下面是在excel的vba里测试的:

 Sub Test()
    Dim n As Integer, i As Integer, iR As Integer
    Dim iC As Integer, arr() As Integer
    n = 5 ''方格数
    ReDim arr(1 To n, 1 To n)
    iR = 1
    iC = (n + 1) \ 2
    arr(iR, iC) = 1
    For i = 2 To n ^ 2
        iR = iR - 1
        If iR < 1 Then iR = n
        iC = iC + 1
        If iC > n Then iC = 1
        If arr(iR, iC) > 0 Then
            iR = (iR + 2) Mod n
            If iR = 0 Then iR = n
            iC = iC - 1
            If iC < 1 Then iC = n
        End If
        arr(iR, iC) = i
    Next
    ''输出结果==>到excel单元格
    Cells.Clear
    Cells.HorizontalAlignment = xlCenter
    Cells.Font.Size = 16
    For i = 1 To n
        For iR = 1 To n
            Cells(i, iR) = arr(i, iR)
        Next
    Next
End Sub

回答问题 2014.12.26
加载更多