如何將單元格值的一部分轉換爲粗體

-2

我有下面的VBA代碼，A和B正在持有一些字符串。我想連接這些值與一些其他字符串，並將結果存儲在不同的單元格中，但我想只有A和B中的字符串被格式化爲粗體，其餘爲普通文本。如何將單元格值的一部分轉換爲粗體

Set A = Worksheets("Mapping").Cells(rowNumber, columnNumber) 
Set B = Worksheets("Mapping").Cells(rowNumber, 3) 

' E.g.: A="currency", B="Small Int" 

Worksheets("TestCases").Cells(i, 2) = "Verify the column " & A & " has same Data type " & B & " in code as well as Requirement document"

預期輸出：

驗證柱貨幣具有相同的數據類型小整數在代碼以及需求文檔

注：A的值和B不斷變化，所以我們不能使用Characters()函數。

任何幫助將不勝感激。

來源

2017-01-23 ranjan jaiswal

你不能一個變量轉換爲大膽的（我想不出一個單一的爲什麼你想這樣做）。但是，您可以根據要顯示的位置更改顯示變量的方式。您可能希望[在[MsgBox]]中以粗體顯示文字（https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=vba%20msgbox ％20bold）或[在單元格中以粗體格式顯示文本]（https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=vba%20cell% 20font％20bold）。如果你想要其中的任何一個，谷歌是你的朋友，並呼籲幫助你與它 –

可能重複的[Excel VBA的字符串設置粗體特定文本？]（http://stackoverflow.com/questions/11644566/excel- vba-set-bold-specific-text-of-string-into-the-cell） – Lankymart

感謝您的回覆。我已經更新了這個問題，請你再檢查一次嗎？ –

-1

改變字體樣式的功能是：

[Cells/Cell range].Font.FontStyle = "Bold"

因此類似可能的工作：

Worksheets("Mapping").Cells(rowNumber, columnNumber).Font.FontStyle = "Bold"

您也可以讓事情下劃線，刪除線等...我發現這真的有用的博客文章，通過你應該知道的一切：

http://software-solutions-online.com/excel-vba-formating-cells-and-ranges/#Jump4

來源

2017-01-23 10:49:10

感謝您的回覆。我已經更新了這個問題，請你再檢查一次嗎？ –

-1

我想你應該搜索此信息自己......不過這是你應該使用一些單元格數據轉換爲粗體顯示的代碼：

Worksheets("Mapping").Cells(rowNumber, columnNumber).Font.Bold = True

來源

2017-01-23 10:50:09

感謝您的回覆。我已經更新了這個問題，請你再檢查一次嗎？ –

我沒有更多的評論。正如我所說的，你不應該問這些問題......看起來你在問之前沒有做足夠的研究。如果你的問題是將一個變量轉換爲粗體，你應該只做你需要做的事情，然後按照我們所說的方式將它轉換爲粗體。 –

您可以使用Characters()方法 - 你只需要跟蹤子串的長度。就個人而言，我會存儲在變量靜態字符串，以便以後可以修改，而不必手動重新計算索引：

' Untested 

Set A = Worksheets("Mapping").Cells(rowNumber, columnNumber) 
Set B = Worksheets("Mapping").Cells(rowNumber, 3) 
Dim S1 = "Verify the column " 
Dim S2 = " has same Data type " 
Dim S3 = " in code as well as Requirement document" 

With Worksheets("TestCases").Cells(i, 2) 
    .Value = S1 & A & S2 & B & S3 
    .Characters(Len(S1), Len(A)).Font.Bold 
    .Characters(Len(S1)+Len(A)+Len(S2), Len(B)).Font.Bold 
End With

來源

2017-01-27 07:47:43

如何將單元格值的一部分轉換爲粗體

回答

相關問題