VBA_針對儲純格中( )內字眼標示顏色

 

針對儲純格中( )內字眼標示顏色，如果同一個儲存格純在兩個()，也會都標示顏色。

Sub ChangeColor()

    Dim cell As Range

    Dim i As Integer, j As Integer

    For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

        If cell.Value <> "" Then

            i = InStr(1, cell.Value, "(")

            j = InStr(1, cell.Value, ")")

            If i > 0 And j > 0 And i < j Then

                cell.Characters(i, j - i + 1).Font.ColorIndex = 5 '修改括號內字元的顏色

                If InStr(j + 1, cell.Value, "(") > 0 Then '判斷是否存在第2個以上的括號

                    k = InStr(j + 1, cell.Value, "(")

                    l = InStr(j + 1, cell.Value, ")")

                    If k > 0 And l > 0 And k < l Then

                        cell.Characters(k, l - k + 1).Font.ColorIndex = 5 '修改第2個以上括號內字元的顏色

                    End If

                End If

            End If

        End If

    Next cell

End Sub

目前AI進展讓我聯想到的電影《人類升級Upgrade》

 

        本來我忘了電影名稱，好像是去年在第四台看到，看完讓我印象深刻，現在AI的進展讓我最先想到這就是《人類升級Upgrade》,但是搜尋AI電影時卻沒這部電影的關聯介紹，於是我問了chatgpt,總共在第三次時找到答案，不得不佩服AI的功力，因為我只輸入簡單的情節，他就找到了...

從這個詢問可以知道，越詳細越精準，問chatgpt也是有技巧...

下面是這部電影的概要:

《人類升級》（Upgrade）是一部2018年上映的科幻動作電影，由雷·韋恩·沃恩執導，洛根·馬歇爾-格林和麥肯吉·格瑞斯編劇。影片由洛根·馬歇爾-格林、賈斯汀·史密斯、哈里森·吉伯特森等人主演。

故事發生在未來的一個不太遙遠的世界，技術高度發達。主人公格雷·特雷西是一個機械修理師，他和妻子阿什利生活幸福，直到一天他們被一群劫匪襲擊，導致阿什利死亡，格雷則成為半身不遂的殘疾人。一位名叫艾倫的億萬富翁向他提供了一種名為STEM的人工智慧晶片，讓他重獲行動自如的能力。通過STEM的幫助，格雷得以追查兇手並展開復仇。

然而，格雷在追查兇手的過程中發現了一個更加深刻的陰謀，他被捲入了一個旨在將人類與科技整合的計畫中。他與STEM之間的關係逐漸變得複雜起來，最終他面臨著一個困境：是保護人類免受技術的侵蝕，還是成為這個新世界的一部分？

《人類升級》以科技與人類之間的關係為主題，通過一個充滿動作場面的故事來探討這個話題，同時也讓觀眾思考著人類與科技整合的價值和影響。影片獲得了很高的評價，被譽為是一部探討人工智慧與人性關係的優秀科幻電影。

第一次詢問AI的問題

第二次詢問AI的問題

第三次詢問AI的問題