【原】世界頂尖大師如何在Excel中打個勾

ForSheet 2022-04-06

展開全文

“ 成功就是將平凡的事做到徹底,，做到極致。”

細(xì)節(jié)不會撒謊,，一個小小的動作就可以出賣你,。

如下表格，A列需要標(biāo)記完成還是未完成狀態(tài),，如果你是手動輸入“未完成”,，“已完成”，一萬行的數(shù)據(jù),，你就需要輸入一萬次,。

青銅

普通人的做法,，【插入】,，【符號】，選擇【數(shù)學(xué)運(yùn)算符】,。

這樣就你只要打個勾勾,，就可以代替輸入“未完成”，“已完成”,。

白銀

如果覺得輸入特殊符號還是挺麻煩的,，接下來的操作會讓你眼前一亮。

你只需要在單元格輸入1,，顯示打勾,，輸入0，顯示打叉,。

以下是動圖

▼

這是如何做到的,？

使用條件格式，選擇A列中除了標(biāo)題之外的區(qū)域,，如選擇A2:A10,點(diǎn)擊【開始】,，【條件格式】，【新建規(guī)則】,。

注意,，選擇圖標(biāo)集，僅顯示圖標(biāo),，大于等于數(shù)字1時,，顯示為勾，大于等于數(shù)字0,，顯示為叉,。

黃金

如果覺得輸入數(shù)字1，或輸入數(shù)字0還是不方便,，接下來的操作就更厲害了,。

你只需要鼠標(biāo)在單元格中,，右下角進(jìn)行選擇1或0，將自動出現(xiàn)打勾或打叉,，讓你一個字都不要寫,。

以下是動圖

▼

這個是怎么做到的？

原來,，只要你選擇A2:A10,，點(diǎn)擊【數(shù)據(jù)】，【數(shù)據(jù)驗(yàn)證】,，按如下設(shè)置就可以做一個下拉列表,。

鉑金

如果標(biāo)記了完成，整行都顏色,，這樣就更酷了,。

來個動畫先。

以下是動圖

▼

這是如何實(shí)現(xiàn)的,？還是用條件格式,，選擇A2:F10，【開始】選項(xiàng)卡,，【條件格式】,，新建規(guī)則，按如下操作,，這里用到了一個混合引用,。

鉆石

使用下拉列表去打個勾勾，已經(jīng)很快了,，但是每次需要點(diǎn)擊兩步,，第一步點(diǎn)擊右下角，第二步選擇0或是1,，可不可以實(shí)現(xiàn)一步到位,？沒有任何廢動作？

錄制一個宏就可以,。

以下動畫展示了宏的效果,，錄制宏之后，按下CTRL+J可以快速標(biāo)記完成,，按下CTRL+M快速標(biāo)記未完成,，當(dāng)然，這個快捷鍵你可以隨心所欲自己設(shè)置,。

以下是動圖

▼

王者

使用快捷鍵已經(jīng)非?？炝耍强旖萱I通常還要用眼睛去找鍵盤,，往往還是兩個手指去按,，能不能只動動一根蔥蔥玉指,，就愉快的把事情給辦了？

你這樣想,，如果這件事情交給世界頂尖大師來做,，將是如何實(shí)現(xiàn)的？

展現(xiàn)真正技術(shù)的時刻到了,！

你只需要動動一根手指,，在單元格中雙擊，將打勾,，再次雙擊,，將打叉。

以下是動圖

▼

大師不愧是大師,，這玩意究竟是怎么實(shí)現(xiàn)的,？

原來用到了以下一段代碼。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)    On Error Resume Next    With Application        .Cursor = xlNorthwestArrow        BooleanCellDoubleClick Target, Range("已完成"), Cancel        .Cursor = xlDefault    End WithEnd SubPrivate Sub BooleanCellDoubleClick(rTarget As Range, rValidRange As Range, Cancel As Boolean)    On Error Resume Next    Application.CellDragAndDrop = False    If rTarget.Cells.Count > 1 Then Exit Sub    If Intersect(rTarget, rValidRange) Is Nothing Then Exit Sub      If rTarget = 1 Then        rTarget = 0    Else        rTarget = 1    End If       Cancel = TrueEnd Sub