我們?cè)谛枰陆ㄒ粋€(gè)office文檔的時(shí)候都會(huì)習(xí)慣性的直接在桌面空白處右擊一下鼠標(biāo)選擇新建一個(gè)Word或者Excel等選項(xiàng)，但是有的小伙伴反應(yīng)在安裝了office之后，右鍵新建中并沒有發(fā)現(xiàn)Word、Excel等這類選項(xiàng)，使用起來很不方便，今天我們就帶領(lǐng)大家一起學(xué)習(xí)如何解決這個(gè)問題。
1、按住鍵盤上的“Windows+R”鍵，在運(yùn)行中輸入“regedit”打開注冊(cè)表。
2、在注冊(cè)表里面找到“HKEY_CLASSES_ROOT”選項(xiàng) 。
3、在該文件下找到“.doc”選項(xiàng)，在右側(cè)窗口中雙擊“默認(rèn)”，修改數(shù)值數(shù)據(jù)為“Word.Document.12”
4、要找回其他的office文檔，如Excel、PPT需要重復(fù)以上操作，雙擊“默認(rèn)”，修改數(shù)值數(shù)據(jù)。
這樣就可以解決新建找不到office選項(xiàng)的問題啦，希望對(duì)大家有所幫助。
Excel工作表，新建方法一般都會(huì)操作。那么如果有成百上千個(gè)表，如何創(chuàng)建，是不是十分困難？
大概是太困難了 ，一個(gè)一個(gè)建表有點(diǎn)不可思議。
如果，表名稱十分有規(guī)律，那么這個(gè)操作就變得輕松了，毫不夸張地說，一秒建成。（這個(gè)說話可能就是個(gè)笑話，但也不是完全不可能。）
利用VBA可以解決任何想解決的問題，新建表這個(gè)功能也不例外。
下面我們學(xué)習(xí)一下。
操作頁主要是對(duì)新建的工作表進(jìn)行格式參數(shù)設(shè)置。其中有標(biāo)題參數(shù)和內(nèi)容參數(shù)兩個(gè)大的分類。
具體參數(shù)可看圖片。
這個(gè)表需要手動(dòng)設(shè)置，不能自動(dòng)變出來，如果有什么可以自動(dòng)實(shí)現(xiàn)的辦法，請(qǐng)告訴我。
編輯完成后，單擊新建表按鈕，眨眼之間表就新建成功了。
新建后的表格效果如下
表一
表二
表三
表樣式取色都不美觀，勉強(qiáng)看一下，主要介紹如何實(shí)現(xiàn)這種新建表的方法。
算是一種工作思路吧！
只要把想建表的參數(shù)在這一個(gè)頁面里輸入，以后，再進(jìn)行類似操作就簡(jiǎn)單的不能再簡(jiǎn)單了。
似乎更加適合重復(fù)性高，相同表新建辦法。
感覺和Excel模版表一樣了，有沒有覺得多此一舉了？
下圖為代碼圖：
這個(gè)功能，其實(shí)只有一頁代碼，并不多，也不復(fù)雜，邏輯也簡(jiǎn)單，只用了一個(gè)For...next循環(huán)。
就是這么簡(jiǎn)單的一段代碼，可以完成手動(dòng)工作幾個(gè)小時(shí)的工作量。
這就是學(xué)習(xí)VBA十分必要的原因。
代碼
Private Sub CommandButton1_Click()
On Error Resume Next
Dim R As Range, Rx As Range, wR As Range
Set Rx = Me.Range("B2:B" & Range("A65535").End(xlUp).Row)
Dim w As Worksheet
For Each R In Rx
Call DelSheets(R.Value)
Set w = ThisWorkbook.Worksheets.Add(after:=Sheets(1))
w.Name = R.Value
'''設(shè)置標(biāo)題格式
Set wR = w.Range(w.Cells(1, 1), w.Cells(1, Range("D" & R.Row)))
With wR
.Merge
.Interior.Color = Range("G" & R.Row).Value
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = Range("B" & R.Row).Value
With .Font
.Size = Range("I" & R.Row).Value
.Name = Range("H" & R.Row).Value
.Bold = Range("J" & R.Row).Value
.Color = Range("F" & R.Row).Value
End With
End With
Set wR = w.Range(w.Cells(2, 1), w.Cells(Range("C" & R.Row), Range("D" & R.Row)))
With wR
.Interior.Color = Range("G" & R.Row).Value
.Borders.LineStyle = 1
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Next R
End Sub
此代碼為簡(jiǎn)化版，或許不完全實(shí)現(xiàn)上圖效果，作為參考可以學(xué)習(xí)一下。
喜歡這篇文章請(qǐng)關(guān)注：江覓
收藏或轉(zhuǎn)發(fā)更有利于記憶深刻