VBA常用技巧代码解析

yuxuan1277

如果同一订单号有多个产品，有没有办法只COPY单一订单号的内容？？比如：在新表中输入一个指定的订单号，然后复制其相应内容。。。不知道能实现不？？期待解决。。

卢阳

很好的帖子.收藏,学习,备用.
有类实例就更完美.

hx0682

请教一个简单的问题，怎样通过vba实现 对外部xls文件中 符合条件的 单元格 批量添加超链接。

y = Me.UsedRange.Count - 1
     For i = 1 To y
            If Workbooks( "C:\MyBook.xls").Worksheets("sheet1").Trim(Cells(i, str1).Value) = str2 And Workbooks("C:\MyBook.xls").Worksheets("sheet1").Cells(i, str1).Font.Bold Then
                   x = "リンクの添付が完成しました"
                   MsgBox x
                                For j = i + 1 To y
                                               If      Workbooks("C:\MyBook.xls").Worksheets("sheet1").Trim(Cells(j, str1).Value) <> "" Then '遍歴非空単元格
                                                       Workbooks("C:\MyBook.xls").Worksheets("sheet1").Cells(j, str1).Hyperlinks.Add Cells(j, str1), "", , str3
                                               End If
                              Next j
             End If
     Next

新手刚入门 望高人指教! 谢谢！！！

FAHNTIAN

感謝分享這麼多有用的教學訊息...感恩...

鱼求雨

无与伦比的教程,感恩不尽,偶对您的敬仰犹如滔滔江水之延绵不绝!

曾经有一份极好的教程摆在我的面前,我却没有珍惜,等我失去的时候我才后悔莫及，人世间最痛苦的事莫过于此。 ... 如果上天能够给我一个再来一次的机会，我会对那本教程说三个字：我爱你。如果非要在这份爱上加上一个期限，我希望是……一万年。

说句实在的，要是掏钱买书，这些字字珠玑的文字得值多少钱哪！

[ 本帖最后由 鱼求雨 于 2009-9-17 13:10 编辑 ]

samcruise

太多了，有汇总版就太好了

hx0682

解决了
x = Me.UsedRange.Columns.Count - 1
y = Me.UsedRange.Rows.Count - 1
  For i = 1 To x
     For j = 1 To y
        If file1.Sheets("sheet1").Cells(i, j).Value = str2 And file1.Sheets("sheet1").Cells(i, j).Font.Bold Then
            For p = i + 1 To y
                 If file1.Sheets("sheet1").Cells(p, j).Value <> "" Then '遍歴非空単元格
                     file1.Sheets("sheet1").Cells(p, j).Hyperlinks.Add file1.Sheets("sheet1").Cells(p, j), "", , str3
                 End If
            Next p
         End If
     Next j
   Next i
换成了对整张Sheet 遍历 并为同列非空值添加超链接

lvxiaowei

太好了～我前面看了一部分内容。帮我解决了VBA自动填充

huanguan80

太经典了，真得好好学习。

正长石

好强大啊。正好学习学习。