- 博客(19)
- 收藏
- 关注
RSS订阅原创 確認字串是否為有效的電子郵件格式
確認字串是否為有效的電子郵件格式 return Regex.IsMatch(email, @"^(?("")("".+?(?<!\\)""@)|(([0-9a-z]((\.(?!\.))|[-!#\$%&'\*\+/=\?\^`\{\}\|~\w])*)(?<=[0-9a-z])@))" + @"(?(\[)(\[(\d{1,3}\.){3}\d{1,3}\])|(([0-9...
2019-08-19 11:00:22
2220
转载 word文档如何批量修改图片大小
參考：http://www.360doc.com/content/10/0921/22/2619988_55466952.shtml Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlin
2016-05-26 14:41:44
3934
转载 How to Login Automatically into Website Using Excel VBA
1.出處 2. Code Sub Auto_Open() ‘打開EXCEL時 'Application.Visible = False 'MsgBox Workbooks.Count Call cga If Workbooks.Count Application.Quit End If Application.DisplayAlerts = False W
2016-01-18 17:17:55
642
转载 excel：照片縮圖
建置條件：從？欄有圖片檔名資料，再選擇照片所在目錄對應出每一欄位的實際路徑， 並自動加入圖片在？欄，後再清除圖片檔名，但不知為何第一次加入的照片很糊，需Run二次才OK。 Private Sub CommandButton1_Click() Dim stMedd As String stMedd = "請選擇照片來源目錄：" '選擇
2015-12-24 16:13:23
515
转载 使用郵件合拼並分存文件資料
前提：先製作完成Word和資料來源的關聯 Sub ProduceDoc() 'Dim stMedd As String 'Dim obMapp As Variant 'stMedd = "請選擇分割後申請表目錄：" '選擇目錄 'Set obMapp = CreateObject("Shell.Application").BrowseForFolder(0, stMedd, &H1)
2015-12-18 13:59:47
949
转载 more than 255 characters in filepath
C# file with more than 255 characters in filepath
2015-11-02 15:40:26
503
转载 下載北風資料庫(NORTHWIND)
微軟提供的Northwind http://www.microsoft.com/en-us/download/details.aspx?id=23654 按下了 "Download" 將SQL2000SampleDB.msi複製到你的電腦上 再Double Click這個檔案 接這就是 Next(下一步) , 一直到 Finish 最後, 會在你的電腦上
2015-09-17 10:02:54
1376
转载 圖片輪播增加播放影音檔功能
圖片輪播增加播放影音檔功能 利用Freemake Video Converter轉檔FLV、SWF後，自動生成HTMLcode當範例，並使用fancybox的功能加寫影音資料去呈現，須有特定的大小和fancybox做對應。 1.Freemake Video Converter:https://mega.co.nz/temporary/mega/M85iUa7I 2.fancybox:http
2015-05-14 14:46:16
702
转载 jquery submit 前的檢查
var allowSubmit = false; // By default deny the submit $("#btn_SAVE").on('click', function (e, options) { options = options || {}; if ($("#OrderMtn").valid()) {
2015-04-24 17:16:46
983
转载 Excel 有資料，但匯入到資料庫後卻是 NULL；設定登錄機碼 TypeGuessRows、連線字串 IMEX
Excel 有資料，但匯入到資料庫後卻是 NULL；設定登錄機碼 TypeGuessRows、連線字串 IMEX
2015-02-24 17:24:11
1416
转载 [Excel格式] 設定Excel cell的格式
利用網頁轉出資料到 Excel 上常會遇到想要以文字格式顯示的數字，像是手機號碼、帳號之類的資料，被 Excel 自動轉換成數字格式，於是前面的 0 被省略掉了、帳號變成科學記號了...等等的麻煩，有個方便的方式不會去加入奇奇怪怪的東西到欄位裡面，讓 Excel 不會去判斷成數字，很簡單，只要在 td 裡面加入 style 設定就行了。 mso-number-format:"0" N
2015-01-29 10:42:14
781
转载 robots.txt
使用robots.txt教學、防止目錄內資料被登錄 拒絕全部的搜尋引擎登錄資料。 User-agent: * Disallow: /
2015-01-29 09:56:34
472
转载 Trigger
http://www.codeproject.com/Articles/25600/Triggers-SQL-Server create trigger my_trigger on my_table after insert, update as begin declare @dt datetime = getdate(); update a set expire_date = CO
2015-01-28 14:43:31
684
转载 分割【節】Word
Sub SplitSectionsAsDocuments() ' ' 分文件 ' ' Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer
2015-01-09 09:49:34
488
转载 刪除Word全部文字方塊
Sub DeleteAllDocInfoShapes() Dim oShp As Word.Shape Dim i As Long vResponse = MsgBox("Delete All DocInfoShapes ? ", vbYesNoCancel, "刪除文字方塊") For i = ActiveDocument.Shapes.Count To 1 Step -1 Set o
2014-09-11 11:42:16
4175
转载 Excel SendMail
Msg Subject EmailTo EmailCC EmailBCC Attachment Importance Public Enum ImportanceLevel High Medium Low End Enum Function SendMessage(Msg As String, Subject As Strin
2011-11-25 13:49:49
492
转载 Word 操作
1. Microsoft.Office.Interop.Word 各個屬性的定義及翻譯 2.使用C#將word文檔轉換為可供傳真的tif文件
2011-10-26 10:46:22
249
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人