使用換行符打破IF語句訪問VBA

Question

我有如下一個VBA條件腳本：

If COMORBIDITY_CANCER = -1 Or COMORBIDITY_CHRONIC_SKIN_LESIONS = -1 Or COMORBIDITY_CHRONIC_LUNG_DISEASE = -1 Or COMORBIDITY_CARDIOVASCULAR_DISEASE = -1 Or COMORBIDITY_DM = -1 Or COMORBIDITY_IMMUNODEFICIENCY_OR_CHEMOTHERAPY = -1 Or COMORBIDITY_ADL = -1 Or COMORBIDITY_HEPATIC_DISEASE = -1 Or COMORBIDITY_RENAL_IMPAIRMENT = -1 Then 
RS_REPORT.AddNew 
RS_REPORT!REPORT_UID = REPORT_UID 
RS_REPORT!CATEGORY1_ID = 2 
RS_REPORT!CATEGORY2_ID = 1 
RS_REPORT!CATEGORY3_ID = 1 
RS_REPORT.Update 
End If 

我想起來了，第一行是太長，我想它使用回車，喜歡什麼就砍可以在R中完成，但似乎它在VBA中是無效的，我試過

& _ 

但它也失敗了。

有什麼建議嗎？謝謝！

Answer 1

試試這個：

If COMORBIDITY_CANCER = -1 Or COMORBIDITY_CHRONIC_SKIN_LESIONS = -1 Or _ 
COMORBIDITY_CHRONIC_LUNG_DISEASE = -1 Or COMORBIDITY_CARDIOVASCULAR_DISEASE = -1 Or _ 
COMORBIDITY_DM = -1 Or COMORBIDITY_IMMUNODEFICIENCY_OR_CHEMOTHERAPY = -1 Or _ 
COMORBIDITY_ADL = -1 Or COMORBIDITY_HEPATIC_DISEASE = -1 Or _ 
COMORBIDITY_RENAL_IMPAIRMENT = -1 Then 

Answer 2

你可以嘗試的東西，如：

Boolean b = false 
If condition1 b = true 
If condition2 b = true 
. . . 
If b ...