TOP > 一行コード集 1  2  3    4    5    6   

151

アシスタント動き指定

Assistant.Animation =

152

アシスタント大きく表示

Assistant.Reduced = False

153

アシスタントサウンド付

Assistant.Sounds = True

154

アシスタント自動で移動

Assistant.MoveWhenInTheWay = True

155

アシスタント選択

Assistant.FileName =

156

アシスタント小さく表示

Assistant.Reduced = True

157

アシスタント日替わりヒント

Assistant.TipOfDay = True

158

アシスタント表示

Assistant.Visible = True

159

アシスタント表示位置

Assistant.Move xLeft:=450, yTop:=325

160

ウィンドウ最小表示

Applicarion.WindowState = xlMinimized 

161

ウィンドウ最大表示

Applicarion.WindowState = xlMaximized

162

ウィンドウ標準表示

Applicarion.WindowState = XlNormal

163

エラー行無視

On Error Resume Next

164

エラーコメント

MsgBox Err.Description

165

エラーを発生させる

Err.Raise 番号

166

大文字に変換

StrConv(文字列,vbUpperCase)

167

大文字に変換(先頭)

StrConv(文字列,vbProperCase)

168

カタカナをひらがなに

StrConv(文字列,vbHiragana)

169

行高さ指定

Rows("1:1").RowHeight =

170

行高さ指定(全体)

ActiveSheet.Rows.RowHeight =

171

小文字に変換

StrConv(文字列,vbLowerCase)

172

シートスクロール上

ActiveWindow.SmallScroll Up:=

173

シートスクロール下

ActiveWindow.SmallScroll down:=

174

シートスクロール左

ActiveWindow.SmallScroll ToLeft:=

175

シートスクロール右

ActiveWindow.SmallScroll ToRight:=

176

スクロールバー最小値

ScrollBar1.Min = 1

177

スクロールバー最大値

ScrollBar1.Max = 100

178

スクロールバーの値

ScrollBar1.Value = 85

179

スピンボタンの最小値

SpinButton1.Min = 1

180

スピンボタンの最大値

SpinButton1.Max = 10

181

スペースの挿入

Space(個数)

182

セル塗りつぶし

ActiveCell.Interior.Color = RGB(0, 0, 0)

183

セル塗りつぶしなし

ActiveCell.Interior.ColorIndex = xlNone

184

全角を半角に

StrConv(文字列,vbNarrow)

185

入力できる文字数

TextBox1.MaxLength =

186

配列の初期化

Erase 配列

187

半角を全角に

StrConv(文字列,vbWide)

188

表示できる高さ

Application.UsableHeight

189

表示できる幅

Application.UsableWidth

190

ひらがなをカタカナに

StrConv(文字列,vbKatakana)

191

ラベルに表示

Label1.Caption = ScrollBar1.Value

192

ラベルのいろ指定

Label1.BackColor = RGB(0, 0, 0)

193

ラベル非表示

Label1.Visible = False

194

乱数発生

Int((10*Rnd)+1)

195

レジストリに値保管

SaveSetting "appname","section","key","setting"

196

レジストリの値を読込む

GetSetting("appname","section","key")

197

レシストリのキー値調べ

GetAllSettings("appname","section")

198

レシストリのキー削除

DeleteSetting "appname","section","key"

199

列幅指定

Columns("A:A").ColumnWidth =

200

列幅指定(全体)

ActiveSheet.Columns.ColumnWidth =

TOP   codepar5