「Excel VBA プロパティのコードを生成する」の版間の差分
ナビゲーションに移動
検索に移動
(同じ利用者による、間の1版が非表示) | |||
1行目: | 1行目: | ||
− | ==Excel VBA プロパティのコードを生成する== | + | ==[[Excel VBA プロパティのコードを生成する]]== |
− | [[Excel VBA]][[Python]] | + | [[Excel VBA]] | [[Python]] | |
− | *Excel VBA | + | *[[Excel VBA プロパティのコードを生成する]]Pythonスクリプト |
# -*- coding: utf-8 -*- | # -*- coding: utf-8 -*- | ||
2020年2月16日 (日) 04:25時点における最新版
Excel VBA プロパティのコードを生成する
- Excel VBA プロパティのコードを生成するPythonスクリプト
# -*- coding: utf-8 -*- def make_vba_properties(): fields = ['aaa','bbb','ccc'] comments = ['AAA','BBB','CCC'] for i in range(len(fields)): print 'Private m_%s\t\t\tAs String\t\' %s' % (fields[i], comments[i]) for i in range(len(fields)): print '\ print '\' %s' % (comments[i]) print '\ print 'Public Property Get %s() As String' % (fields[i]) print '\t%s = m_%s' % (fields[i], fields[i]) print 'End Property' print '\ print '\' %s' % (comments[i]) print '\ print 'Public Property Let %s(ByVal %s As String)' % (fields[i], fields[i]) print '\tm_%s = %s' % (fields[i], fields[i]) print 'End Property' if __name__ == '__main__': make_vba_properties()
© 2006 矢木浩人