日常的に活用されているという方もいらっしゃると思います。
しかしながら、ちょっとしたソフトウェアなどの開発を依頼しようとした場合、
多くのシステム会社では受注してもらえないため、なかなか利便性が
高まらないとお悩みの方も多いと思います。
そこで私がお勧めしたいのが、オクムラ電器さんの
個人やSOHO、あるいは小規模オフィス用に実施てくれるという
激安、格安のソフトウェア開発サービスです。
仕様書も４００字程度のメモや箇条書きでメール送信するだけなので、
口頭説明などの心配をする必要もなく依頼しやすいものだと実感しております。
private void button1_Click(object sender, EventArgs e)
{
//１データごとの行数
int RowCount = 7;
int ColCount = 5;
int StartCol1 = 2;
int StartCol2 = ColCount + StartCol1;
int StartCol3 = ColCount + StartCol2;
Excel.Application oXls = new Excel.Application(); // Excelオブジェクト
string excelName = "C:\\Users\\x300\\sample.xls";
Excel.Workbook oWBook; // workbookオブジェクト
oXls.Visible = true;
// Excelファイルをオープンする
oWBook = (Excel.Workbook)(oXls.Workbooks.Open(
excelName, // オープンするExcelファイル名
Type.Missing, // （省略可能）UpdateLinks (0 / 1 / 2 / 3)
Type.Missing, // （省略可能）ReadOnly (True / False )
Type.Missing, // （省略可能）Format
// 1:タブ / 2:カンマ (,) / 3:スペース / 4:セミコロン (;)
// 5:なし / 6:引数 Delimiterで指定された文字
Type.Missing, // （省略可能）Password
Type.Missing, // （省略可能）WriteResPassword
Type.Missing, // （省略可能）IgnoreReadOnlyRecommended
Type.Missing, // （省略可能）Origin
Type.Missing, // （省略可能）Delimiter
Type.Missing, // （省略可能）Editable
Type.Missing, // （省略可能）Notify
Type.Missing, // （省略可能）Converter
Type.Missing, // （省略可能）AddToMru
Type.Missing, // （省略可能）Local
Type.Missing // （省略可能）CorruptLoad
));
// 与えられたワークシート名から、Worksheetオブジェクトを得る
string sheetName = "Sheet1";
Excel.Worksheet oSheet; // Worksheetオブジェクト
oSheet = (Excel.Worksheet)oWBook.Sheets[
getSheetIndex(sheetName, oWBook.Sheets)];
//データ取り出し（コピー）
for (int i = 0; i < 100; i++)
{
//何行目
int DataRowNum = (int)(i / 3);
//何列目
int DataColNum = (int)(i % 3);
Excel.Range range1;
Excel.Range range2;
//コピー元
range1 = (Excel.Range)oSheet.Cells[1, StartCol1];
range2 = (Excel.Range)oSheet.Cells[1 + RowCount - 1, StartCol1 + ColCount - 1];
range1 = oSheet.get_Range(range1, range2);
range1.Copy(Type.Missing);
int rowstart = 0;
int colstart = 0;
int rowend = 0;
int colend = 0;
//コピー先検索
switch (DataColNum)
{
case 0:
rowstart = DataRowNum * RowCount + 1;
colstart = StartCol1;
rowend = DataRowNum * RowCount + RowCount;
colend = StartCol1 + ColCount - 1;
break;
case 1:
rowstart = DataRowNum * RowCount + 1;
colstart = StartCol2;
rowend = DataRowNum * RowCount + RowCount;
colend = StartCol2 + ColCount - 1;
break;
case 2:
rowstart = DataRowNum * RowCount + 1;
colstart = StartCol3;
rowend = DataRowNum * RowCount + RowCount;
colend = StartCol3 + ColCount - 1;
break;
default:
break;
}
range1 = (Excel.Range)oSheet.Cells[rowstart, colstart];
range2 = (Excel.Range)oSheet.Cells[rowend, colend];
//ペースト
range1 = oSheet.get_Range(range1, range2);
range1.PasteSpecial(Excel.XlPasteType.xlPasteAll, Excel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, false, false);
//値を入れていく
int c1 = 0;
int r1 = 0;
//名前
((Excel.Range)oSheet.Cells[rowstart + r1, colstart + c1]).Value2 = "なまえ";
//年齢
c1 = 3;
r1 = 1;
((Excel.Range)oSheet.Cells[rowstart + r1, colstart + c1]).Value2 = rowstart + r1;
}
//oWBook.Close(Type.Missing, Type.Missing, Type.Missing);
//oXls.Quit();
}
// 指定されたワークシート名のインデックスを返すメソッド
private int getSheetIndex(string sheetName, Excel.Sheets shs)
{
int i = 0;
foreach (Excel.Worksheet sh in shs)
{
if (sheetName == sh.Name)
{
return i + 1;
}
i += 1;
}
return 0;
}
そんな時にはDataGridViewForMergeコンポーネントを是非ご活用されてみてはいかがでしょうか。
セル結合コンポDataGridViewForMergeダウンロードできます。
Grid（グリッド）でセルを結合したい時などに便利なコンポーネントです。
DataGridやDataGridViewで実現可能
複数セルの結合も可能です。
利用してみたいという方は、
Vector(ベクター)からダウンロードできます。
【サンプルソースはこちら】
'初期化
Me.DataGridViewForMerge1.MergeCellDataList.Clear()
'==================================
'詳細設定サンプル
'==================================
'----------------------------------
'Rowヘッダー作成
'----------------------------------
For rowIndex As Integer = 0 To 5
Me.DataGridViewForMerge1.Rows(rowIndex).Cells(0).Value = "予定" & rowIndex.ToString("000")
Me.DataGridViewForMerge1.Rows(rowIndex).Cells(0).Style.BackColor = Color.Gray
Next
'-----------------------------------
'Colヘッダー作成
'-----------------------------------
For colIndex As Integer = 1 To 31
Me.DataGridViewForMerge1.Columns(colIndex).HeaderText = colIndex.ToString("000")
Me.DataGridViewForMerge1.Columns(colIndex).Width = 50
Next
'-----------------------------------
'結合処理
'-----------------------------------
'結合クラス作成
Dim mergeCellClass As MergeCellData
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 0
'開始列
mergeCellClass.StartCol = 1
'終了行
mergeCellClass.EndRow = 0
'終了列
mergeCellClass.EndCol = 3
'色指定
mergeCellClass.BackColor = Color.Red
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 1
'開始列
mergeCellClass.StartCol = 2
'終了行
mergeCellClass.EndRow = 1
'終了列
mergeCellClass.EndCol = 4
'色指定
mergeCellClass.BackColor = Color.Blue
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 2
'開始列
mergeCellClass.StartCol = 4
'終了行
mergeCellClass.EndRow = 2
'終了列
mergeCellClass.EndCol = 6
'色指定
mergeCellClass.BackColor = Color.Green
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 3
'開始列
mergeCellClass.StartCol = 1
'終了行
mergeCellClass.EndRow = 3
'終了列
mergeCellClass.EndCol = 4
'色指定
mergeCellClass.BackColor = Color.Yellow
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 4
'開始列
mergeCellClass.StartCol = 1
'終了行
mergeCellClass.EndRow = 4
'終了列
mergeCellClass.EndCol = 9
'色指定
mergeCellClass.BackColor = Color.Blue
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'描画する
Me.DataGridViewForMerge1.Refresh()
そんな時にはDataGridViewForMergeコンポーネントを是非ご活用されてみてはいかがでしょうか。
Grid（グリッド）でセルを結合したい時などに便利なコンポーネントです。
DataGridやDataGridViewで実現可能
複数セルの結合も可能です。
利用してみたいという方は、
Vector(ベクター)からダウンロードできます。
'初期化
Me.DataGridViewForMerge1.MergeCellDataList.Clear()
'==================================
'詳細設定サンプル
'==================================
'----------------------------------
'Rowヘッダー作成
'----------------------------------
For rowIndex As Integer = 0 To 5
Me.DataGridViewForMerge1.Rows(rowIndex).Cells(0).Value = "予定" & rowIndex.ToString("000")
Me.DataGridViewForMerge1.Rows(rowIndex).Cells(0).Style.BackColor = Color.Gray
Next
'-----------------------------------
'Colヘッダー作成
'-----------------------------------
For colIndex As Integer = 1 To 31
Me.DataGridViewForMerge1.Columns(colIndex).HeaderText = colIndex.ToString("000")
Me.DataGridViewForMerge1.Columns(colIndex).Width = 50
Next
'-----------------------------------
'結合処理
'-----------------------------------
'結合クラス作成
Dim mergeCellClass As MergeCellData
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 0
'開始列
mergeCellClass.StartCol = 1
'終了行
mergeCellClass.EndRow = 0
'終了列
mergeCellClass.EndCol = 3
'色指定
mergeCellClass.BackColor = Color.Red
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 1
'開始列
mergeCellClass.StartCol = 2
'終了行
mergeCellClass.EndRow = 1
'終了列
mergeCellClass.EndCol = 4
'色指定
mergeCellClass.BackColor = Color.Blue
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 2
'開始列
mergeCellClass.StartCol = 4
'終了行
mergeCellClass.EndRow = 2
'終了列
mergeCellClass.EndCol = 6
'色指定
mergeCellClass.BackColor = Color.Green
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 3
'開始列
mergeCellClass.StartCol = 1
'終了行
mergeCellClass.EndRow = 3
'終了列
mergeCellClass.EndCol = 4
'色指定
mergeCellClass.BackColor = Color.Yellow
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'------------------------------------
mergeCellClass = New MergeCellData
'開始行
mergeCellClass.StartRow = 4
'開始列
mergeCellClass.StartCol = 1
'終了行
mergeCellClass.EndRow = 4
'終了列
mergeCellClass.EndCol = 9
'色指定
mergeCellClass.BackColor = Color.Blue
'登録
Me.DataGridViewForMerge1.MergeCellDataList.Add(mergeCellClass)
'描画する
Me.DataGridViewForMerge1.Refresh()
多くの方から人気を集めているのが、アクセサリーを自作して
それをインターネットのオークションやオンラインショップで販売するというものです。
人気が出れば一個あたり数万円で購入されることもあるようです、
ちょっとしたお小遣い稼ぎをお考えの際にはぴったりではないでしょうか。
私自身はこちらのサイトのオリジナルアクセサリーのシリーズを利用しています。
オシャレなアクセサリーが自分で作れちゃう!『オリジナルアクセサリーシリーズ スィートローズネックレス＆リング』
本業以外に収入が欲しいという方や将来独立や起業を考えている方は
是非チャレンジしてみてはいかがでしょうか。
 |
|
サラリーマンの副業の第二弾としてお勧めなのが『鋼鉄戦記Ｃ２１』 
に無料登録して
レアアイテムを集めてネットオークションで販売するという方法です。
具体的なやり方は以下の通り。
まず、プロフィールは適当で良いので無料登録をします、
ゲーム自体も無料で出来るので、空き時間にただひたすらアイテムを集めます。
これだけでたまにレアアイテムが見つけられるので、入手次第オークションへ出品します。
ゲーム内でアイテムの受け渡しができるので、落札された方にアイテムを渡すだけです。
では、皆さんも是非チャレンジしてみてくださいね。
以下の簡単な方法で月にお小遣い程度は稼ぐことが可能です。
無料でモラエル貯金箱300円全員プレゼント
まず無料登録すると不思議な貯金箱がもらえます。
携帯貯金箱が厳選しておすすめするサイトで遊ぶだけでどんどんポイントが貯まる。
ポイントは1pt=1円で現金と交換できるんだ。 1,000円以上をあっという間に貯金できます。
【お金はかかりません】 携帯貯金箱は広告費によって運営しておりますので、
参加費や月額料金などは一切かかりません。安心してお楽しみください。
ハンゲ.jpを利用してお小遣い稼ぎが出来ることを
皆さんご存知でしょうか、以下の簡単な方法で月数万円程度は稼ぐことが可能です。
是非チャレンジしてみて下さいね
ちなみに出費は一切無いので安心して取り組むことが可能です。
まだ登録していないという方はこちらから無料登録が可能です。
[無料]携帯ゲームはハンゲ.jpスグ遊べる
【ハンゲ.jpを利用した金儲けの方法】
①まずハンゲ.jpを始める（プロフィールは適当で良い）
②ハンゲ.jp内にあるゲームを始める（テレビでもよくCM流れてる）
③ハンゲ.jpのレアアイテムをゲットしまくる。
このアイテムを集めている人がいるので
オークションなどで転売することで利益を生み出すことが可能なのです。
